Scholieren.com forum - [VB] Gettok?

Scholieren.com forum (https://forum.scholieren.com/index.php)

- Software & Hardware (https://forum.scholieren.com/forumdisplay.php?f=20)

- - [VB] Gettok? (https://forum.scholieren.com/showthread.php?t=161165)

dafelix

17-07-2002 17:11

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

eddie

17-07-2002 18:13

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

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

dafelix

17-07-2002 18:21

Citaat:

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

eddie

17-07-2002 18:24

Citaat:

dafelix schreef:

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

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

tnxz m8

:eek: 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

17-07-2002 18:26

Citaat:

eddie schreef:

:eek: 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 :D

eddie

17-07-2002 18:31

Citaat:

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

17-07-2002 19:12

Citaat:

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 :S

eddie

17-07-2002 19:26

Citaat:

dafelix schreef:

wtf ik kom dur niet uit :S

Let me try ;)

Code:

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 :o

Aegishjalmur

17-07-2002 19:45

zowiets denk ik

Code:

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

17-07-2002 20:11

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?

Alle tijden zijn GMT +1. Het is nu 14:16.