split function

[davyquyo]

why doesn't this work

Private Sub Command1_Click()
On Error Resume Next
Text2.Text = Split(ophalen, "seta")(Text3.Text - 1)
End Sub
 
Private Sub Form_Load()
Dim ophalen As String
Open "C:\Program Files\Call of Duty\Main\config_mp.cfg" For Input As #1
Input #1, ophalen
Text1.Text = ophalen
Close #1
End Sub

and i have an other problem
i want to split it with a gign that looks like an empty square
if i copy it and paste than i begin the next rule

how can i let cbscript know tht he must split it with this sign

he must get info from this file

http://www.davyquyo.be/config_mp.cfg

but when i try he give error
out of range
because of the empty squares
he only can read //generate by call of duty

[RhinoBull]

Originally posted by davyquyo
why doesn't this work

Private Sub Command1_Click()
On Error Resume Next
[b]Text2.Text = Split(ophalen, "seta")(Text3.Text - 1)[/b]
End Sub

Highlighted line is not a valid syntax.
Also, when some text is splitted it becomes an array of values "located" between that character that you're splitting on.
Here is a quick sample for you:

Option Explicit
 
Private Sub Form_Load()
'==========================
Dim strFile As String
Dim varAllValues As String
Dim MyValues() As String
Dim i&
 
    'provide full and valid path and file name
    strFile = "c:\temp\test.txt"
    Open strFile For Input As #1
        'load entire file into a string variable
        varAllValues = Input(LOF(1), #1)
    Close #1
    'in my test file delimeter is a carriage return, so
    'I will split string based on it
    MyValues() = SplitStringOnDelimiter(varAllValues, vbNewLine)
    
    'you may now do anything you need to do with your data.
    For i = 0 To UBound(MyValues) - 1 'this array is ZERO based
        List1.AddItem MyValues(i)
    Next i
 
End Sub
 
Public Function SplitStringOnDelimiter(varValues As Variant, _
                                       varDelimiter As Variant) As Variant
    SplitStringOnDelimiter = Split(varValues, varDelimiter, , vbTextCompare)
End Function

[Deepak Sakpal]

eek.. what is this Rhino.

[davyquyo]

rhino
youre code shows now error but
but there are no values in list box

it's empty

[RhinoBull]

Originally posted by davyquyo
... a gign that looks like an empty square ...

This could be a NULL character Chr(0) or Carriage Return Chr(13) or Linefeed Chr(10) or combination of char 10+13 ...

[RhinoBull]

Originally posted by davyquyo
rhino
youre code shows now error but
but there are no values in list box

it's empty

??? That's just a sample for you that demonstrates HOW split() function works and NOT soomething that you can copy/paste. Be a little more creative in adapting someoneelse's code in your programs.

Cheers

[davyquyo]

ok with chr(10) it worked

so i'think i can move on now

thanx a lot

[RhinoBull]

Originally posted by Deepak Sakpal
eek.. what is this Rhino.

I usually don't respond to such useless posts but I will in this case:

OTHER THAN YEEEEEKING DO YOU HAVE TO OFFER ANYTHING AT ALL ???

[RhinoBull]

Originally posted by davyquyo
ok with chr(10) it worked

so i'think i can move on now

thanx a lot

No problem.

[davyquyo]

Originally posted by RhinoBull
??? That's just a sample for you that demonstrates HOW split() function works and NOT soomething that you can copy/paste. Be a little more creative in adapting someoneelse's code in your programs.

Cheers

i did copy past so i can see how it workbut i will change it little by little so i can go on with what i want so
i won't be using exactly the same script don't worry about that

thanx for the help
i appreciate it

[davyquyo]

only one little question

how is this been written in vb "
i want to replace this to something else but i know i can't say

test=replace(ophalen, """, "something else")

[RhinoBull]

Sure ...
Something like this will do the job:

Private Sub Command1_Click()
    
    MsgBox "Good Monday Morning!"
    MsgBox StrConv(Replace(UCase("Good Monday Morning!"), "MONDAY", ""), vbProperCase)
    
End Sub

[davyquyo]

no i

i talking about this sign "

how do i replace this

[RhinoBull]

Oh, sorry - it's a character 34 ... so here we go again:

Private Sub Command1_Click()
Dim strMsg$
 
    strMsg = "Hello " & Chr(34) & "davyquyo" & Chr(34)
    MsgBox Replace(strMsg, Chr(34), "'")
 
End Sub

[davyquyo]

ok thanx