Wort aufteilen

Computer: Software & Programmierung Visual Basic
#1

Hallo,
Ich habe ein Wort mit „1“, „0“ und „.“.
z.B.: .0.1.111.0.10010.
Dieses möchte ich jetzt aufteilen, also in:
A(0)=.0.
A(1)=1.
A(2)=111.
A(3)=0.
A(4)=10010.

Wie kann ich die oben genannte Zahl aufteilen?

Gruß
GURKE

#2

Hallo,

mit split() ganz einfach:

Sub aufteilen()
Dim wort() As String
wort() = Split(".0.1.111.0.10010.", ".")
For x = LBound(wort()) To UBound(wort())
 If wort(x) nul Then
 MsgBox wort(x)
 End If
Next
End Sub

Gruß, Bernd

#3

Hi,

Sub aufteilen()
Dim wort() As String
wort() = Split(".0.1.111.0.10010.", „.“)
For x = LBound(wort()) To UBound(wort())
If wort(x) nul Then
MsgBox wort(x)
End If
Next
End Sub

Danke! Hat mit kleinen Variablenänderungen auf Anhieb funktioniert!

Gruß
GURKE

#4

Sub aufteilen()
Dim wort() As String
wort() = Split(".0.1.111.0.10010.", „.“)

Danke! Hat mit kleinen Variablenänderungen auf Anhieb
funktioniert!

Hallo Luxusgurke,

wenn du nur Variablen ändern mußtest auf den Namen den du in deinem sonstigen Code benutzt ist ja diese Rückmeldung, übrigens danke daß du dich überhaupt zurückmeldest, machen leider die Wenigsten :frowning:((, vollkommen ausreichend.

Wenn aber mit wort() o.ä. „was faul“ sein sollte, dann poste doch bitte fürs Archiv und Mitlesende deine anscheinend funktionierende Lösung.

Ohne getestet zu haben ist mir zumindest „wort() = Split(…“ suspekt, also die „()“.

Gruß
Reinhard

#5

Hallo Reinhard,

Wenn aber mit wort() o.ä. „was faul“ sein sollte, dann poste
doch bitte fürs Archiv und Mitlesende deine anscheinend
funktionierende Lösung.

Also um es genauer zu sagen, habe sien Code kopiert und erstmal durchlaufen lassen, funktionierte einwandfrei. Dann habe ich den Code mit Variablen gespickt, damit das auch in mein Thema passte und nach etwas tüfteln ging auch dies einwandfrei! :wink:

Ohne getestet zu haben ist mir zumindest „wort() = Split(…“
suspekt, also die „()“.

Habs jetzt nochmal kopiert, und per ComandButton ausgelöst, ging wieder :wink:

Gruß

GURKE

PS: Mein Code sieht jetzt wie folgt aus:

Private Sub Entschlüsseln\_Click()
 Dim wort() As String
 wort() = Split(TBEntschlüsseln.Text)
 For x = LBound(wort()) To UBound(wort())
 If wort(x) nul Then
 For i = 1 To 64
 If Cells(i, 2) = wort(x) Then
 Cells(6, 3) = Cells(6, 3) & Cells(i, 1)
 TBErgebnis.Text = TBErgebnis.Text & Cells(i, 1)
 End If
 Next
 End If
 Next
End Sub