04. november 1999 - 17:22Der er
11 kommentarer og 1 løsning
Function in reverse...!?!
Hvordan skal jeg nu beskrive mit spørgsmål ?!? (Der gives ikke point for dette *GG*)
Okey, jeg har eks. lavet en simpel funktion der deler en String i to.
Function StrSplit(StrA as String, StrB as String, Second as Boolean) Dim I as Integer I = InStr(1, StrA, StrB) If Not Second Then StrSplit = Mid(StrA, 1, I - 1) Else StrSplit = Mid(StrA, I + 1) End If End Function
Kaldes StrSplit først med StrSplit("Test1#Test2", False) ..så returnerer den "Test1" StrSplit("Test1#Test2", True) ..så returnerer den "Test2"
Hvordan laver jeg dette med ét kald til funktionen??? Altså sådan at "Test1" bliver gæmt i FirstStr og "Test2" bliver gemt i SecondStr...
Januskh >> Hvad er forskellen på din og min funktion ud over at din returnerer halvdelen af string'en. Jeg kan stadigt ikke få begge halvdele i hver sin string uden at skulle kalde funktionen to gange.
Her er så den endelige rutine.. testet og det hele..
Option Explicit
Private Sub Command1_Click() Dim Retur As Variant Retur = SplitStr("TEST1#TEST2") MsgBox Retur(0) MsgBox Retur(1) End Sub
Private Function SplitStr(ByVal Inputt As String) As Variant Dim Resultt() As String ReDim Resultt(1) As String Resultt(0) = Left$(Inputt, Len(Inputt) / 2) Resultt(1) = Right$(Inputt, Len(Inputt) / 2) SplitStr = Resultt End Function
Med venlig hilsen
Janus Kamp Hansen Systemudvilker og Webmaster EDB-Afdelingen Nordisk Solar A/S
Det blev lidt sent inden jeg var hjemme... anyway, nu har jeg afprøvet rutinen og det kører perfekt. Problemet med det jeg selv havde lavet var at jeg prøvede at jeg prøvede at returnerer en String Array til en String - jeg må virkeligt have været træt igår aften ;) Tak for hjælpen.
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
