Teil eines über UART empfangenen Textes ignorieren?

[Barracuda_cy]

Aaaaalso, ich bekomme über UART von einem Modem einen Text, der grösste Teil davon ist unwichtig.
Hier mal der Text:

+CMGL: 1,"REC UNREAD","xxxxxxxxxx",,"09/08/04,15:50:23+08"

Test1

Alles was auf der 1. Zeile steht ist für mich unwichtig, nur was in der 2. Zeile steht (hier eben als Beispiel "Test1") ist für mich wichtig. Wie bekomme ich Bascom dazu, die erste Zeile - die Anzahl der Zeichen ist ja immer dieselbe, zu ignorieren und die 2. Zeile in eine Variable zu schreiben?

Vielen Dank für Anregungen und Codeschnippsel schon im Voraus!

Liebe Grüsse

[Barracuda_cy]

ich glaub ich komm dem ganzen langsam auf die schliche, hab mal in der Bascom hilfe nachgeschaut:

http://avrhelp.mcselec.com/index.html?string.htm

kanns nur noch nicht ganz richtig anwenden, das heisst ihr dürft gerne weiter eure anregungen schreiben aber einfach als zeichen das ich auch dran bleibe

[peterfido]

Was hast Du denn schon? Es ist einfacher bestehendes zu verbessern, als komplett neu anzufangen

[Barracuda_cy]

ah, hi peterfido

Aaaaalso, mein bescheidener anfang:

ACHTUNG: Habe die ganze Konfigurationssache obendran zwecks Platzeinsparung weggelassen

Hier mein Code:

Cls
Dim B1 As String * 10
B1 = String(9 , 10)
Lcd B1
End

Also eigentlich sollte dieses BEISPIEL doch auf den Text warten, die ersten neun Zeichen rauspicken und die dann aufm LCD ausgeben?

edit-----

aufm LCD werden 9 schwarze vierecke angezeigt, unabhängig von der Kontrasteinstellungen

[peterfido]

Sorry, aber da fehlt mir so einiges...
Nicht mal eine Schleife finde ich da...
Auch keine Empfangsroutine...

Falls das im ersten Post eine Telefonnummer ist, würde ich die unkenntlich machen...

[peterfido]

Probier mal das. Fehlt noch die LCD init...

$hwstack = 32
$swstack = 10
$framesize = 40

Dim B As Byte
Dim Empfang As String * 20


Do
B = Inkey()
If B <> 0 Then
   If B = 13 Then
      If Left(empfang , 4) = "+CMGL" Then
          nop
      Else
         Cls
         Locate 1 , 1
         Lcd Empfang
      End If
      Empfang = ""

   Else
      If B <> 10 Then
         Empfang = Empfang + Chr(b)
      End If
   End If

End If


Loop

End

[Che Guevara]

Probier mal das:

$regfile = "m32def.dat"
$crystal = 16000000
$baud = 19200



Dim Text As String * 67
Dim Auswahl As String * 5

Text = "+ Cmgl : 1 , REC UNREAD , xxxxxxxxxx , 09/08/04,15:50:23+08 , test1"



Do

Auswahl = Mid(text , 63 , 5)

Print Auswahl


Loop

End

Gruß
Chris

[Barracuda_cy]

Aber eigentlich kann doch mein Programm so nicht ganz falsch sein da ich ja nur 9 anstatt 10 "Kästchen" auf dem LCD rauskriege?!
An was liegt das aber das es kästchen sind und nicht buchsataben oder Zahlen?!

Lg

[peterfido]

Woran das liegt, kann Dir so ohne Code keiner sagen.... Mir fehlt auch die Motivation alle möglichen Ursachen dafür zu posten... Hast Du die anderen Vorschläge jetzt schon versucht? Funzt das LCD, wenn du ein "Hallo" oder so ausgibst?

Am besten die Vorschläge testen und/oder kompletten Code einstellen.

[Barracuda_cy]

ja, die vorschläge von euch hab ich (natürlich) getestet, ohne erfolg

Das LCD geht, das hab ich schon ausprobiert