Kommentar: Einfügen von HTML im Kommentar: Link einfügen: <a href="LINKURL" target="_blank">LINKTITEL</a> Bild einfügen: <img src="BILDURL"> Text formatieren: <b>fetter Text</b> <i>kursiver Text</i> <u>unterstrichener Text</u> Kombinationen sind auch möglich z.B.: <b><i>fetter & kursiver Text</i></b> C Quellcode formatieren: <code>Quellcode</code> BASIC Quellcode formatieren: <basic>Quellcode</basic> (Innerhalb eines Quellcodeabschnitts ist kein html möglich.) Wichtig: Bitte mache Zeilenumbrüche, bevor Du am rechten Rand des Eingabefeldes ankommst ! -> I > > > Hallo zusammen, > > > > > > ich stehe im Moment genau vor einer ähnlichen Aufgabenstellung. Ich möchte einen > > > seriell eingelesenen String (kommt von einer Messeinheit im 60 Sekunden-Takt mit Semikolon > > > als Trennzeichen) zwischen einzelnen Werten aufteilen und zwecks Weiterverarbeitung im > > > Programm in Variablen speichern. > > > > > > > > > Wäre toll, wenn es hier schon eine Lösung gibt. Ich komme im Moment mit der Doku nicht weiter. > > > > > > Viele Grüsse > > > aus Hessen > > > Stephan > > > > > > Hallo, > > > > hier ein paar Prozeduren, die ich für so etwas geschrieben habe: > > Die Sub GetValWord liest die erste Zahl aus dem String > > und löscht den ersten Teil des Strings bis zum Ende der Zahl. > > Durch wiederholtes Auslesen kann man so alle Zahlen schrittweise herausholen. > > > > Hop it helps! > > Wolfgang > > > > Sub Str_Delete (ByRef Strg As Char, Pos As Word, I As Word) > > 'Deletes in Strg at Pos I Chars > > Dim n As Byte > > n = Str_Len (Strg) > > Do While Pos+I <= n > > Strg (Pos) = Strg (Pos +I) > > Pos = Pos +1 > > End While > > End Sub > > > > > > Sub GetValWord (ByRef InpStrg As Char) As Word > > 'Gets the first WordVal from a string And removes it > > Dim val As Word > > Dim i, n As Byte > > Dim c As Char > > val = 0 > > n = Str_Len (InpStrg) ' String-Funktionen funktionieren nicht in log Ausdrücken! > > i = 0 > > > > 'zuerst Anfang der Zahl suchen > > c = InpStrg(i) ' String-Funktionen funktionieren nicht in log Ausdrücken! > > Lab SuchLabel > > Do While ((c>&H39) Or (c<&H30)) And (i<n) > > i=i+1 > > c=InpStrg(i) > > End While > > > > 'Jetzt Ende der Zahl suchen > > Do While (c<=&H39) And (c>=&H30) And (i<n) > > val = 10*val +InpStrg(i)-&H30 > > i=i+1 > > c=InpStrg(i) > > End While > > Str_Delete (InpStrg, 0, i) > > Return val > > End Sub > > > > Hallo > > Was bedeutet > > -->' String-Funktionen funktionieren nicht in log Ausdrücken! <-- > > das es beim Compelieren zu problem kommt? > die hätte ich nämlich. > > was kann ich tun das es funktioniert? > > Gruß > > Markus
