Split function in string

[Ram2009]

Hi,

I think there is nothing to split in "blah 1234" with respect to chars.

If u use a split function for "This is good" by space as delimiter then following result will be displayd.
This
is
good

I am not sure of split function with regard to the numeric values.

[nikhilcogni]

Hi I have a text file contaning email ids. I need to kow how many email ids are there. Each is separated by ;

I wrote this code but didnt work

Code:

Dim FSO
Dim ObjTxtF1
Dim ObjTxtF2

Set FSO=CreateObject("Scripting.FileSystemObject")
Set ObjTxtF1=FSO.OpenTextFile("C:\t1.txt",1)

i=0
    text=ObjTxtF1.ReadLine
    Do Until ObjTxtF1.AtEndOfStream
     Y=split(text,";")
        i=i+1
       msgbox Y(i)
     Loop
     msgbox i

ObjTxtF1.Close
Set FSO=nothing

[nikhilcogni]

Thanks selvam. name of variables looks different

[helmzshelmz]

Hi,

Refer the below example:

 

Code:

var="blah 1234"
  sp_var=split(var, " ")

  For i=lbound(sp_var) to ubound(sp_var)
      msgbox  sp_var(i)
  Next

Thanks for this @sreekanth chilam, work like a charm