String filtern (BASCOM BASIC)

Michael U. Gast 03.03.2008 13:01 #800311

Lesenswert?

•

Hallo

Ich habe folgendes Problem:
Ich habe einen String, der folgendermaßen aussieht:

<A><C><K><CR><1><SP><1><SP><8><7><SP><1><4><3><CR>

Jedes Zeichen in < > sind ASCII-Zeichen, darunter auch 2 nicht-druckbare 
(CR und SP).

Ich will nun die Zahlen aus dem String herausfiltern und jede Zahl in 
einer extra Stringvariablen abspeichern. Das Problem welches nun 
hinzukommt ist, dass die Zahlen nicht fix sind, alle anderen Zeichen 
jedoch schon.

Sprich, der String könnte auch so aussehen:

<A><C><K><CR><1><3><SP><4><1><SP><1><8><7><SP><4><3><CR>


Ich habe schon eine gute Weile überlegt aber eine richtig gute 
Angehensweise habe ich nicht gefunden. Meine Lösung wäre, die ersten 3 
Zeichen erstmal wegzuschneiden (<A><C><K><CR>) und dann für jedes 
Zeichen extra eine Fallunterscheidung zu machen ob es eine Zahl ist.

Aber vielleicht weis ja einer on euch wie es einfacher geht :)

Antwort Zitieren Bearbeiten Thread verschieben Thread sperren Anmeldepflicht aktivieren Anpinnen Thread löschen Thread mit anderem zusammenführen Beitrag melden

Avr N. (avrnix) 03.03.2008 13:05 #800323

Lesenswert?

•

▲
▼

Wenn deine Zahl immer eine feste Position hat würde ich sagen mit MID 
Befehl die Zahl auschneiden.


http://www.comwebnet.de - Bascom AVR Projekte

Antwort Zitieren Bearbeiten Löschen Beitrag melden

Harry U. (harryup) 03.03.2008 14:23 #800407

Lesenswert?

•

▲
▼

hi,
die sprache dabei ist eigentlich egal, du kannst die einzelnen strings 
innerhalb der klammern mit der funktion 'val(string)' auf ihren 
numerischen wert untersuchen, dann bekommst du raus, welcher einer zahl 
entspricht.
grüssens, harry

Antwort Zitieren Bearbeiten Löschen Beitrag melden

Michael U. Gast 03.03.2008 15:40 #800536

Lesenswert?

•

▲
▼

Hallo

Ich bin die Sache nun folgendermaßen angegangen, hier der Code:

Definitionen:

Dim received_char_len As Byte
Dim schleifenvar As Byte
Dim received_char_split As String * 1
Dim Cmu_vw_array As String * 30

  '***** String filtern*****
  received_char_len = Len(received_char)
  received_char_len = received_char_len - 1     'wegen dem <CR> am Ende
  For schleifenvar = 5 To received_char_len
    received_char_split = Mid(received_char , schleifenvar , 1)
    Select Case received_char_split
       Case "0" : Mid(cmu_vw_array , schleifenvar , 1) = "0"
                   Print #2 , "0";              'Zur Kontrolle
       Case "1" : Mid(cmu_vw_array , schleifenvar , 1) = "1"
                   Print #2 , "1";
       Case "2" : Mid(cmu_vw_array , schleifenvar , 1) = "2"
                   Print #2 , "2";
       Case "3" : Mid(cmu_vw_array , schleifenvar , 1) = "3"
                   Print #2 , "3";
       Case "4" : Mid(cmu_vw_array , schleifenvar , 1) = "4"
                   Print #2 , "4";
       Case "5" : Mid(cmu_vw_array , schleifenvar , 1) = "5"
                   Print #2 , "5";
       Case "6" : Mid(cmu_vw_array , schleifenvar , 1) = "6"
                   Print #2 , "6";
       Case "7" : Mid(cmu_vw_array , schleifenvar , 1) = "7"
                   Print #2 , "7";
       Case "8" : Mid(cmu_vw_array , schleifenvar , 1) = "8"
                   Print #2 , "8";
       Case "9" : Mid(cmu_vw_array , schleifenvar , 1) = "9"
                   Print #2 , "9";
      Case Else : Mid(cmu_vw_array , schleifenvar , 1) = " "
                   Print #2 , " ";
   End Select
   Waitus 10
 Next schleifenvar


Die Variable cmu_vw_array soll später die einzelnen Zahlen in einem 
String speichern und sie mit einem Leerzeichen trennen.

Wenn ich mir mit dem Logic Analyzer die Print-Befehle anschaue passt das 
soweit. Aber die Zuweisung

Mid(cmu_vw_array , schleifenvar , 1) = "9"

funktioniert nicht. Da bekomme ich nichts brauchbares zusammen...
Wie kann ich das umschreiben?

Antwort Zitieren Bearbeiten Löschen Beitrag melden

avrnix = Spammer Gast 03.03.2008 20:07 #800828

Lesenswert?

•

▲
▼

Avr Nix ist ein Spammer

Antwort Zitieren Bearbeiten Löschen Beitrag melden

STK500-Besitzer Gast 03.03.2008 20:29 #800847

Lesenswert?

•

▲
▼

>Mid(cmu_vw_array , schleifenvar , 1) = "9"

kann auch nicht gehen, da MID 1 Zeichen des cmu_vw_array an der Stelle 
schleifenvar zurückliefert. Es setzt keine Strings zusammen.

Das einfachste wäre so:

for i = 1 to received_char_len
    if mid(received_char,i,1) >= "0" and mid(received_char,i,1) <="9" 
then cmu_vw_array = cmu_vw_array + mid(received_char,i,1)
next i

Zumindest funktioniert das so oder ähnlich in verschiedenen 
PC-Basic-Dialekten.
Du solltest dir die Stringverarbeitung von Bascom mal ansehen...

Antwort Zitieren Bearbeiten Löschen Beitrag melden

String filtern (BASCOM BASIC)

Antwort schreiben