|
Anzeige
|
String untersuchen
Gast
#465451
Hallo, ich habe da ein Problem mit einer String Variablen in Bascom. Ich möchte einen 5-stelligen String untersuchen, und eine doppeleingabe von Ziffern die zweite ersetzen. Also z.b. aus 12334 eine 123R4 machen. Ich komme nicht so recht weiter. Könnt Ihr mir bitte Helfen ? Danke !!!
Gast
#465466
Das funktioniert nicht ?????
For X1 = 1 To 5
X2 = X1 - 1
If Mid(folge_string , X2 , 1) = Mid(folge_string , X1 , 1) Then
Mid(folge_string , X1 , 1) = "R"
End If
Next
Gast
#465636
For X1 = 2 To 5 ******* 2 ANSTATT 1!!
X2 = X1 - 1
If Mid(folge_string , X2 , 1) = Mid(folge_string , X1 , 1) Then
Mid(folge_string , X1 , 1) = "R" ***** so kann man nix zuweisen
End If
Next
ich hab zwar kaum Ahnung von BASIC, so geht die Zuweisung jedenfalls
nicht,
Gast
#465718
Habe es geändert, ohne erfolg. Warum geht die zuweisung so nicht ?
A = "76552"
B = "R"
For X = 2 To 5
Y = X - 1
If Mid(a , Y , 1) = Mid(a , X , 1) Then
Mid(a , X , 1) = B
End If
Next
Upperline
Lcd B
Do
Loop
End 'end program
Gast
#465750
Hallo,
weil Mid() von Basic üblicherweise als Funktion behamdelt wird und damit
nicht links in einer Zuweisunf auftreten darf.
If Mid(a , Y , 1) = Mid(a , X , 1) Then
a = Mid(a,0,Y) + B + Mid(a,X)
End If
Keine Ahnung, was Bascom an Stringbefehlen bietet, auch nach Left() oder
Right() schauen, eventuell noch Länge Len() mit einbauen, falls beim
zweiten Teil die genaue Anzahl der Zeichen angegeben werden muß.
...lange nichts mehr mit Basic gemacht... ;)
Gruß aus Berlin
Michael
Also zumindest in Visual Basic kann man Mid() sehr wohl etwas zuweisen. Wenn das bei BASCOM nicht geht, ist das ziemlich... schlecht. In VB konnte man die Strings üblicherweise aber auch in Byte-Arrays umkonvertieren, da war das dann kein Problem. Wie man das aber in BASCOM macht weiss ich net. In VB sieht das etwa so aus: Dim barr() As Byte barr = StrConv(DeinString, vbFromUnicode) StrConv ist aber nur dazu da, erstmal jedes zweite Byte rauszuschneiden, das Unicode mit sich bringt. Da Microcontroller, bzw. BASCOM aber wohl kaum Unicode verwendet, solltest du das weglassen können. Die Konvertierung müsste implizit passieren. Wie das dann aber mit dem Speicherverbrauch aussieht weiss ich nicht. Dürfte bei 5 Zeichen aber kein Problem darstellen.
Gast
#465830
Das ist aus der HILFE: Dim S As String * 15 , Z As String * 15 S = "ABCDEFG" Z = Mid(s , 2 , 3) Print Z 'BCD Z = "12345" Mid(s , 2 , 2) = Z Print S 'A12DEFG End Da wird doch auch zugewiesen.......Nur bei mir klappt es nicht. Antwort schreiben |
Anzeige
|
