[GastForen Programmierung/Entwicklung AppleScript Anzahl der Nachkommastellen

  • Suche
  • Hilfe
  • Lesezeichen
  • Benutzerliste
Themen
Beiträge
Moderatoren
Letzter Beitrag

Anzahl der Nachkommastellen

Rainer M
Beiträge gesamt: 11

13. Mär 2009, 11:04
Beitrag # 1 von 5
Bewertung:
(1764 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Hallo,
eigentlich wollte ich  die Anzahl der Nachkommastellen ermitteln:
set Countnachkomma to (number of characters of Xy) - (number of (characters 1 thru (offset of "," in Xy) of Xy))
aber sogar folgendes läuft nicht:

tell application "QuarkXPress8"
    copy "1234,567" to Xy
    offset of "," in Xy
end tell

Aber ohne die tell-Anweisung (also ohne Quark) geht das ohne Probleme.
Hat jemand eine Erklärung oder Lösung?
X

Anzahl der Nachkommastellen

TMA
Beiträge gesamt: 399

13. Mär 2009, 12:43
Beitrag # 2 von 5
Beitrag ID: #422933
Bewertung:
(1763 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Hallo Rainer,
im tell-Block von XPress geht es nicht. Der Befehl offset wird von XPress anderweitig verwendet.
Am besten du verlässt den tell-Block von XPress mittels einem Handler:
Code
tell application "QuarkXPress8" 
    set x to "1234,567"
    set theOffset to my getOffset(x)
    log theOffset
end tell

on getOffset(x)
    return offset of "," in x
end getOffset


Gruß
TMA


als Antwort auf: [#422932]

Anzahl der Nachkommastellen

Rainer M
Beiträge gesamt: 11

13. Mär 2009, 12:53
Beitrag # 3 von 5
Beitrag ID: #422934
Bewertung:
(1763 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Danke TMA

Gruß Rainer


als Antwort auf: [#422932]

Anzahl der Nachkommastellen

Hans Haesler
  
Beiträge gesamt: 5826

13. Mär 2009, 13:07
Beitrag # 4 von 5
Beitrag ID: #422935
Bewertung:
(1763 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
Hallo Rainer,

TMA hat schon die Erklärung und eine Lösung geliefert.

Hier dennoch eine Variante, welche auch Werte ohne Nachkommastellen bewältigt.
Zudem eine kürzere Fassung des Zählbefehls.
---
tell application "QuarkXPress8"
   set x to "1234,567"
   set nDigits to my getDigits(x)
end tell

on getDigits(x)
   set o to offset of "," in x
   if o is 0 then
      return 0
   else
      return (count characters of x) - o
   end if
end getDigits
---
Gruss, Hans


als Antwort auf: [#422932]

Anzahl der Nachkommastellen

Rainer M
Beiträge gesamt: 11

13. Mär 2009, 14:55
Beitrag # 5 von 5
Beitrag ID: #422936
Bewertung:
(1763 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen
eigentlich einfach ;-)
Danke
Es grüßt ein ewiger Anfänger


als Antwort auf: [#422932]
X