Leerzeichen verhindern

Coldfist

Mitglied
Hi!
Ich habe ein Programm geschrieben, dass ein Wort in ascii code umwandelt und zwischen jeden Ascii-Buchstaben ein variables Trennungszeichen (fdisruptor) einfügt. Leider fügt vb auch immer ein Leerzeichen zwischen dem Semikolon und der neuen Zahl an, was ich aber verhindern möchte.
Code ist wie folgt
Code:
Private Sub cencrypt_Click()
Dim vi As Integer
If feingabe = "" Then
   MsgBox ("Bitte einen gültigen Text/Code eingeben!")
  Else
     For vi = 1 To Len(feingabe)
       fausgabe = fausgabe + Str(Asc(Mid(feingabe, vi, 1)))
       fausgabe = fausgabe + fdisruptor
     Next
End If
End Sub


Hat einer ne Idee?
 
Stichwort Trim

Verwende einfach Trim um vorne und hinten Leerzeichen "wegzutrimmen":
Code:
Private Sub cencrypt_Click()
Dim vi As Integer
If feingabe = "" Then
   MsgBox ("Bitte einen gültigen Text/Code eingeben!")
  Else
     For vi = 1 To Len(feingabe)
       fausgabe = fausgabe + Trim(Str(Asc(Mid(feingabe, vi, 1))))
       fausgabe = fausgabe + fdisruptor
     Next
End If
End Sub

Gruß Homer
 
Trim / Trim$ schneidet alle Leerzeichen rechts und links ab, bis ein Text kommt. Leerzeichen in diesem Text werden nicht mehr rausgeschnitten. Eine Kontrolle der Funktion ist nicht möglich (oder?)
 
Ich hab mal nachgeforscht und anscheinend kann man die Funktion Trim nicht weiter beeinflussen. Es gibt da aber noch die Aufrufe
Rtrim() und
Ltrim()
wobei man links oder rechts (Anfang oder Ende des Strings) die Leerzeichen wegschneiden kann.

Cold
 
Zurück