PureBoard

Verfasst: **27.12.2007 01:47**

% ist meines Wissens nach der Modulo, sozusagen Teilen mit Rest.

7 % 5 = 2, weil 7 / 5 = 1 Rest: 2

If Zahl % 13 = 0 
  Debug Str(Zahl)+" ist duch 13 teilbar." 
EndIf

Stargate fragt einfach ab, ob der Rest bei 13 "0" ist. Wenn ja, dann ist die Zahl entsprechend teilbar.

Verfasst: **27.12.2007 01:50**

@Kiffi
das mit den mehreren Zeichen liegt daran das ich in 3.3 selber diese Procedure schreiben musste: Und da konnte ich eine TrennStringKETTE angeben

Code: Alles auswählen

Procedure.s StringField(String$, Index, TrennString$)
 Stelle = 1-Len(TrennString$)
 For n = 1 To Index
  x = Stelle+Len(TrennString$)
  Stelle = FindString(String$+TrennString$, TrennString$, x)
  If Stelle = 0 : n = Index : EndIf
 Next n
 If Stelle
  NewString$ = Mid(String$, x, Stelle-x)
 EndIf
 ProcedureReturn NewString$
EndProcedure

Habe mein Code vorhin angepasst

@PB42: jo sry das ich nix weiter dazu geschrieben habe
Hier ein paar Informationen:

Zahl % Teiler = Rest
das % nennt sich hier Modulo und Dividiert Zahl durch den Teiler und gibt dann den Rest aus, der beim Dividieren entsteht, ist die Zahl nun durch 13 Teilbar kommt als Rest 0 raus.

Val(Trim(StringField(Zeile$,Index,",")))
Hier wird Zeile$ in kleine Stücke zerteilt und eine String an der Stelle (Index) ausgegeben. Dieser String hat nun aber Leerzeichen am Anfang oder Ende, mit Trim() werden diese gelöscht, danach wird dann die Zeichenkette als Zahl mit Val() umgewandelt.

Verfasst: **27.12.2007 04:01**

Ich hatte das mit dem Modulo und die Funktionsweise mit Stringfield und Trim mittlerweile gerafft, aber trotzdem Danke für die nachträglichen Infos. Ich komme jetzt echt weiter.

PB42

Verfasst: **27.12.2007 09:54**

STARGÅTE hat geschrieben:@Kiffi
das mit den mehreren Zeichen liegt daran das ich in 3.3 selber diese Procedure schreiben musste: Und da konnte ich eine TrennStringKETTE angeben

Dir sei verziehen!

Grüße ... Kiffi

PureBoard

Dateien einlesen und damit arbeiten