[VB] Gettok?

[dafelix]

Ik weet dat het met mIRc mogelijk is, Gettok. Gettok doet het volgende: Je geeft een waarde op waardoor woorden worden gescheiden (Chr(Space)), dan geef je op het hoeveelste woord je wil (2e bijv) en voila! Vb hoe ut ongeveer gaat:


Dim Blaat As String
Dim Text As String

Blaat = "dit niet maar DIT wel"

text = Gettok Blaat(Chr(space), 4, 2)


Dus nu heeft text als waarde "DIT wel"

Is dit ook mogelijk met VB? ik heb al gezocht maar nix gevonden (wel gevonden van zoveelste teken, maar dat wil ik dus niet) tia

euhm...
heeft de substr()-functie niet zo'n eigenschap?

iets in de trand van
substr( cTextSearched, cTextSearchedFor, [nStartPosition, [nOccurences]])
?

[dafelix]

eddie schreef:
euhm...
heeft de substr()-functie niet zo'n eigenschap?

iets in de trand van
substr( cTextSearched, cTextSearchedFor, [nStartPosition, [nOccurences]])
?

tnxz! is officieel PHP taal wat je zegt, maar ik heb wat gevonden:

http://www.codeproject.com/vbscript/tokenize.asp

tnxz m8

dafelix schreef:


tnxz! is officieel PHP taal wat je zegt, maar ik heb wat gevonden:

http://www.codeproject.com/vbscript/tokenize.asp

tnxz m8

anders ga je even een ingewikkelde functie maken...

Dat is trouwens VBScript, niet VB.

Wat ik zei is niet per definitie PHP. Het ook FoxPro. Waarschijnljk ook VB.

*zoekt even*

[dafelix]

eddie schreef:

anders ga je even een ingewikkelde functie maken...

Dat is trouwens VBScript, niet VB.

Wat ik zei is niet per definitie PHP. Het ook FoxPro. Waarschijnljk ook VB.

*zoekt even*

Is idd VBScript, maar ik bouw hem wel ff om

eddie schreef:

*zoekt even*

*heeft dit gevonden*
Split(expression[, delimiter[, limit[, compare]]])

http://msdn.microsoft.com/library/en...vafctSplit.asp

Kun je zelf wel de array gaan ombouwen. (zelf even functie schrijven)

[dafelix]

eddie schreef:

*heeft dit gevonden*
Split(expression[, delimiter[, limit[, compare]]])

http://msdn.microsoft.com/library/en...vafctSplit.asp

Kun je zelf wel de array gaan ombouwen. (zelf even functie schrijven)

wtf ik kom dur niet uit

dafelix schreef:



wtf ik kom dur niet uit

Let me try

function Gettok( byVal cStringToSplit, byVal cDelimiter, byVal nStartChomp, byVal nNumberOfChomps )

dim aChomps(), cReturn, nOffset
cReturn = ""
nOffset = 0

aChomps = split( cStringToSplit, cDelimiter )
for i = nStartChomp to nStartChomp + nNumberOfChomps 
 cReturn = cReturn + aChomps[nOffset + i] + cDelimiter
 nOffset = nOffset + 1
next i

Gettok = cReturn
end function

Ben niet zo goed in VB

[Aegishjalmur]

zowiets denk ik

Public Function Gettok(str As String, firstWord As Integer, lastWord As Integer, Optional delimiter As String = " ")
    Dim splitStr() As String
    Dim ret As String
        ret = ""
    Dim i As Integer

    splitStr = Split(str, delimiter)

    'out of range error vermijden als lastWord hoger is als aantal woorden in string
    Dim j As Integer
        j = 0
    Dim x As Variant
    
    For Each x In splitStr
        j = j + 1
    Next
    
    If j < lastWord Then lastWord = j
    'einde error-vermijden
    
    For i = firstWord To lastWord
        ret = ret + splitStr(i - 1) + " "
    Next i
    
    Gettok = RTrim$(ret)
    'met RTrim$ de spatie op het eind verwijderen
End Function

[dafelix]

Thanks Aegishjalmur, ik was er zelf NOOJT uitgekomen seg, ik zet je naam wel ff bij me README.TXT, als me progje af is, en EDDIE, jouw zet ik er ook in want jij hebt me ook wel vaak geholpen, ok?