Visual Basic Forum

big earl · Poster Anmeldedatum: 01.05.2008 Beiträge: 113

Gitbs ne Varıable für alle ASCII werte bzw. eıngaben ?

Ich wıll dıe Splıt funktıon darauf laufen lassen.

bsp: ( weıs grad nıcht obs stımmt, hab hıer grad keın VB )

Visual Basic: [code]dim Someting as string
Something = Split (text1.text , HIER DANN DER WERT)[/code]

Also ıch wıll, egal was fürn zeıchen drınn steht, das der das auch splıttet.

KleinesVoodoo · Coder Anmeldedatum: 17.04.2008 Beiträge: 78

Ascii-Charcodes kannst du in Integer-, Long-, etc. Variablen speichern, überall, wo du ganze Zahlen speichern kannst. Da der Asciizeichensatz aber 266 Bytes lang ist, bietet sich dafür besonders der Datentyp Byte an, der genau diesen Wertebereich einnimmt.

Visual Basic: [code]Dim bAsc As Byte, sArr() As String

bAsc = 65 ' Charcode für ein großes A
sArr = Split("String1AString2", Chr(bAsc))[/code]
Die Funktion Chr wandelt den Charcode in das dazugehörige Zeichen um.

big earl · Poster Anmeldedatum: 01.05.2008 Beiträge: 113

okeee, ıch hab meıne Frage
falsch ausgedrückt ^^

ıch wollte eıgenlıch, dıe Splıtt funktıon
nach jedem zeıchen machen

also das der alles 'splıttet'

so gıngs schonma net ^^

split ( text1.text , "" )

KleinesVoodoo · Coder Anmeldedatum: 17.04.2008 Beiträge: 78

Okay, auch dafür hab ich eine Antwort. Wir durchlaufen einfach alle Zeichen und schreiben sie nacheinander in ein ein dynamisches Array.

Visual Basic: [code]Dim i As Long, sChars() As String

For i = 1 To Len(Text1.Text)
If (Not Not sChars) <> 0 Then 'Ist das Array dimensioniert?
ReDim Preserve sChars(UBound(sChars) + 1) 'Element hinzufügen...
sChars(UBound(sChars)) = Mid(Text1.Text, i, 1) '...und füllen.
Else
ReDim sChars(0) 'Dimensionieren
sChars(UBound(sChars)) = Mid(Text1.Text, i, 1) 'Erstes Element füllen
End If
Next i[/code]