Leerzeichen aus einem String entfernen [Archiv] - ProgForum.com

Vollständige Version anzeigen : Leerzeichen aus einem String entfernen

Import-Script

21.09.2003, 02:46

Hallo, ich will aus dem String text die Leerzeichen entfernen um dann den Wert einer Single Veriable zu übergeben dim Text as string dim zahl as single text = "20 000" . . . zahl = text wer weiß da rat ?

Import-Script

21.09.2003, 09:34

dim TextOhneLeerzeichen as string TextOhneLeerzeichen = "" : rem erstmal leer eben for i%=1 to len(Text) if mid$(Text,i,1) <> " " then TextOhneLeerZeichen = TextOhneLeerzeichen + Mid$(Text,i,1) rem also zeichenweise umkopieren und nur wenns kein Leerzeichen ist rem if ASC(mid$(Text,i,1)) <> 32 müsste auch gehen Next i% probiers mal..<img src="http://progshop.com/elektronik/diskussion/clipart/smile.gif" border=0> und dann natürlich zahl = val(TextOhneLeerzeichen) : rem eben den Wert (VALue) des Strings

Import-Script

21.09.2003, 10:27

mh... das könnte klappen ich werde es mal versuchen Danke Dir!

Import-Script

21.09.2003, 11:25

wie es scheint bin ich der einzige (auch noch)BASIC Mensch hier im Forum ausser Dir. Kann doch nicht sein; oder??? <img src="http://progshop.com/elektronik/diskussion/clipart/smile.gif" border=0>

Import-Script

21.09.2003, 18:05

oder es hat kein anderer Lust ! na egal es ist aber schon komisch da gibt's das Trim() oder das MID() aber nichts um direkt ein Leerzeichen aus einem String zu entfernen ... aber mit ein bischen Zauberei geht's dann doch

Import-Script

21.09.2003, 21:19

Hallo Tobias, es kann nicht alles fertig geben; ein bisschen Hirnschmalz müssen die Programmierer der heutigen Zeit noch investieren; aber die Werkzeuge dazu sind (leider) schon viel zu viele. Nimm mal Trim, Ltrim, Rtrim, (ich hab mal in VB5.0 Hilfe geblättert) - das braucht´s eigentlich nicht. Das macht die "neuen"-alten Hochsprachen doch so unüberschaubar. KlioFunktionen im MegabyteZeitalter!!! - wozu??? Demnächst noch paar mehr; MontagTrim, DienstagTrim.. alles mit Left, Mid, Right... ??? WochentagUpTrim, DownTrim; schau Dir mal EXCEL an; grausig; die gliedern das noch auf in "BörsenTrim .wenn. DAX < 50" und schachteln das in eine der Menschheit unbekannte Formel, aber das mindestens auf 100 Kommastellen genau<img src="http://progshop.com/elektronik/diskussion/clipart/sad.gif" border=0>(gibt leider kein Kotz Symbol hier). Also Augen auf, und ran an die Materie; ist einfach zu einfach.. <img src="http://progshop.com/elektronik/diskussion/clipart/smile.gif" border=0> P.S. nennt sich BASIC (=Anfang)

Import-Script

22.09.2003, 17:25

Hallo zusammen, um welche BASIC-Dialekt handelt es sich?? In Power-Basic gibts die Funktion REMOVE$. Hier die Erläuterung: Funktion: Liefert eine Kopie eines Strings zurück, in dem Zeichen oder Strings entfernt wurden. Syntax: x$ = REMOVE$(haupt-string, [ANY] teil-string) haupt-string ist der String-Ausdruck, von dem die Zeichen entfernt werden sollen, und teil-string ist der String-Ausdruck, ab dem die auftretenden Zeichen entfernt werden sollen. Befindet sich teil-string nicht in haupt- string, wird der ganze haupt-string unverändert zurückgeliefert. Wird das Schlüsselwort ANY verwendet, bestimmt teil-string eine Liste von Einzel- zeichen, die individuell gesucht werden. REMOVE$ ist von der Schreibweise abhängig, es muß also auf Groß- und Kleinschreibung in haupt-string und teil-string geachtet werden. Gruss Giesie

Import-Script

23.09.2003, 22:41

so Andreas - ich habe das mal für VB umgebastelt und siehe da es klappt - man muß eben nur die einfachen Mid Right Left's usw sinnvoll und richtig einsetzten !!! Also Dank euch allen Nochmal ! Private Sub Command1_Click() Dim TextOhneLeerzeichen As String Dim text As String Dim i As Byte text = "Hallo Batronix Bastler Nummer xxx 000 111" TextOhneLeerzeichen = "" For i = 1 To Len(text) If Mid(text, i, 1) <> " " Then TextOhneLeerzeichen = TextOhneLeerzeichen + Mid(text, i, 1) End If Next i MsgBox TextOhneLeerzeichen End End Sub

Import-Script

24.09.2003, 00:48

es geht auch einfacher TextOhneLeerzeichen = Replace$(text, " ", "") fettisch... :-) oder falls mehrere leerzeichen hintereinander vorkommen können: do while instr(text," ") text = replace$(text, " ", "") loop

Import-Script

24.09.2003, 12:25

..."wie es scheint bin ich der einzige (auch noch)BASIC Mensch hier im Forum ausser Dir"... Gut dass es doch noch ein paar andere gibt<img src="http://progshop.com/elektronik/diskussion/clipart/smile.gif" border=0>

Import-Script

24.09.2003, 12:36

kurzes Review noch: Meine Variante hätte nie funktioniert, es hätte nämlich mid$ (..i%..) und nicht i heissen müssen. Einer der häufigsten Fehler in QB, also das mit dem "Dim as" macht schon Sinn. Wäre jetzt mal ganz interessant, wie Visual-Basic das mit Strings hält die grösser 255 Zeichen sind. Frage geht das überhaupt? - wenn ja ist "Byte" als Laufvariable zu klein.

Import-Script

24.09.2003, 23:53

wunderbar geht das. auch schon in qb. in gb gings bis 32767 zeichen, bei vb gehts bis 2147483648 zeichen.