---

Hej NG...

Det her kan lyde lidt dumt, men jeg kan ikke finde ud af at bruge Split...
Giv mig et eksempel, ud fra

Option Explicit
Dim FromString As String
Dim SplitString As String

Private Sub Form_Load()
FromString = "Hejsa"
SplitString = Split(FromString)
MsgBox SplitString(0)
End Sub

Hilsen Mathias

---

> Det her kan lyde lidt dumt, men jeg kan ikke finde ud af at bruge Split...
> Giv mig et eksempel, ud fra
>
> Option Explicit
> Dim FromString As String
> Dim SplitString As String
>
> Private Sub Form_Load()
> FromString = "Hejsa"
> SplitString = Split(FromString)
> MsgBox SplitString(0)
> End Sub
>

Split(expression[, delimiter[, count[, compare]]])
Arguments
expression
Required. String expression containing substrings and delimiters. If
expression is a zero-length string, Split returns an empty array, that is,
an array with no elements and no data.
delimiter
Optional. String character used to identify substring limits. If omitted,
the space character (" ") is assumed to be the delimiter. If delimiter is a
zero-length string, a single-element array containing the entire expression
string is returned.
count
Optional. Number of substrings to be returned; -1 indicates that all
substrings are returned.
compare
Optional. Numeric value indicating the kind of comparison to use when
evaluating substrings. See Settings section for values.
eks:
Dim MyString, MyArray, Msg
MyString = "VBScriptXisXfun!"
MyArray = Split(MyString, "x", -1, 1)
' MyArray(0) contains "VBScript".
' MyArray(1) contains "is".
' MyArray(2) contains "fun!".
Msg = MyArray(0) & " " & MyArray(1)
Msg = Msg & " " & MyArray(2)
MsgBox

---

> Dim MyString, MyArray, Msg
> MyString = "VBScriptXisXfun!"
> MyArray = Split(MyString, "x", -1, 1)
Hvis den erstattes med
MyArray = Split(MyString, "", -1, 1)
Så burde MyArray(0) være "V" (som fra "VBScriptXisXfun!" da man splitter
altsammen)?

---

Mathias <mathias@nonne.tld> wrote in news:Xns940F54065E1BB5q738hgq@
212.54.64.134:

> Hvis den erstattes med
> MyArray = Split(MyString, "", -1, 1)
> Så burde MyArray(0) være "V" (som fra "VBScriptXisXfun!" da man splitter
> altsammen)?

Woops nej, sådan er det ikke...
Jeg mener:
Hvordan får jeg...

MyArray(0) = "V"
MyArray(1) = "B"
MyArray(2) = "S"
MyArray(3) = "c"
Etc.

.... hva'?

---

Mathias skrev:
> > Så burde MyArray(0) være "V" (som fra "VBScriptXisXfun!" da man splitter
....
> Hvordan får jeg...
>
> MyArray(0) = "V"
> MyArray(1) = "B"
> MyArray(2) = "S"
> MyArray(3) = "c"
> Etc.

Det får du ikke med Split!
Split deler ved et kendt tegn.

Men det er da ufattelig let at kreere en lille stump kode som klarer
ærterne:

Dim S As String
Dim Count As Long
Dim SArray() As String
S = "abcDEF789"
ReDim SArray(1 To Len(S))
For Count = 1 To Len(S)
SArray(Count) = Mid(S, Count, 1)
Next

Bemærk at jeg her har brugt base 1, men der er naturligvis intet i vejen for
at bruge base 0.

-------
Tomas

---

Mathias skrev:
> Option Explicit
> Dim FromString As String
> Dim SplitString As String
Erstat med: Dim SplitString() As String
>
> Private Sub Form_Load()
> FromString = "Hejsa"
> SplitString = Split(FromString)
Erstat med: SplitString = Split(FromString, "j")
> MsgBox SplitString(0)
> End Sub

SplitString(0) vil indeholde "He" og SplitString(1) vil indeholde "sa" (alt
før og efter "j").

------
Tomas