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
