Hva er galt?

[Degeim]

Jeg bruker koden under, og får "Type Mismatch". Hvorfor?

(caller den slik: text1.text = teken "hei <-> hallo")

 

Function teken(tekst As String) As String
Dim vtemp() As Variant
vtemp = Split(tekst, " <-> ")      '<---- får mismath her
teken = vtemp(0)
End Function

 

Takk

Endret 29. oktober 2005 av Degeim

[aadnk]

Endre den første linjen i prosedyren til følgende:

 

Dim vtemp As Variant

[GeirGrusom]

Split gir vel tilbake String array hvis jeg ikke tar helt feil... bruke UBound og LBound for å finne ut hvor mange den gir tilbake

 

Dim vtemp() As String

vtemp = Split(tekst, "<->")

teken = Trim(vtemp(0)) ' Bruker trim for at programmet skal bli mindre streng med syntaks