dim teil as string*4
dim ganzes as string*15
ganzes="Ich will nicht"
teil=mid (ganzes,5,4)
der string "teil" wird aus dem string "ganzes" Ausgestanzt ab Position 5 mit einer Länge von 4 Zeichen
"Print teil" ergibt also "will"
dim teil as string*4
dim ganzes as string*15
ganzes="Ich will nicht"
teil=mid (ganzes,5,4)
der string "teil" wird aus dem string "ganzes" Ausgestanzt ab Position 5 mit einer Länge von 4 Zeichen
"Print teil" ergibt also "will"
Hallo molleonair,
Danke für deine Antwort. Jetzt habe ich es verstanden
Mfg
bnitram
Eine Alternative für Overlayfetischisten wie ich es bin:
Code:$regfile = "M32DEF.DAT" $crystal = 16000000 $hwstack = 512 $swstack = 512 $framesize = 512 $baud = 57600 Dim S As String * 4 Dim Werte(4) As Byte At S Overlay Dim B As Byte Config Portd = Output Do Gosub Werteausstringnachport Loop End Werteausstringnachport: If Len(s) = 4 Then 'geht auch mit 8 Werten For B = 0 To 3 'For B = 0 To 7 Portd.b = Werte(b).0 'bit0 ist bei 49 (asc("1")) =1, bei "0" =0 Next B End If Return
Wenn das Herz involviert ist, steht die Logik außen vor! \/
Lesezeichen