String untersuchen

[Mr-400-Volt (Gast)]

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 !!!

[Mr-400-Volt (Gast)]

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

[Walter (Gast)]

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,

[Mr-400-Volt (Gast)]

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

[Michael U. (Gast)]

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

[Philipp B. (philipp_burch)]

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.

[Mr-400-Volt (Gast)]

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.