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 !!!
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
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,
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
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.
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.
Bitte melde dich an um einen Beitrag zu schreiben. Anmeldung ist kostenlos und dauert nur eine Minute.
Bestehender Account
Schon ein Account bei Google/GoogleMail? Keine Anmeldung erforderlich!
Mit Google-Account einloggen
Mit Google-Account einloggen
Noch kein Account? Hier anmelden.