DaniWeb Forum Index > Software Development > Visual Basic 4 / 5 / 6

Visual Basic 4 / 5 / 6 RSS

string handling

Please support our Visual Basic 4 / 5 / 6 advertiser: Programming Forums - DaniWeb Sister Site

Thread Solved

•

Join Date: Jun 2008

Posts: 8

Reputation: bprabhumdu is an unknown quantity at this point

Solved Threads: 0

bprabhumdu bprabhumdu is offline

Offline

Newbie Poster

string handling

Jul 26th, 2008

hello friends,
how to separate all characters from a given string in vb6.0...For example if i give "welcome" in a text box ,in the same form it will print (w,e,l,c,o,m,e,)..........
Thanks in advance ...............
regards natraj

•

Join Date: Feb 2008

Posts: 509

Reputation: selvaganapathy is an unknown quantity at this point

Solved Threads: 88

selvaganapathy selvaganapathy is offline

Offline

Posting Pro

Re: string handling

Jul 26th, 2008

Hi, Use Mid() function or Left() or Right() function for separating the characters and Len () function for Length .

KSG

•

Join Date: Aug 2006

Posts: 51

Reputation: dmf1978 is an unknown quantity at this point

Solved Threads: 7

dmf1978

Offline

Junior Poster in Training

Re: string handling

Jul 26th, 2008

Hi,
Try this code:

 Help with Code Tags 
 VB Syntax (Toggle Plain Text) 
Private Function SeparateString(str As String) As String
    Dim x As Integer
    Dim retStr As String
 
    retStr = ""
    For x = 1 To Len(str)
        retStr = retStr & Mid(str, x, 1) & ","
    Next x
    SeparateString = retStr
End Function
Private Function SeparateString(str As String) As String
    Dim x As Integer
    Dim retStr As String
    
    retStr = ""
    For x = 1 To Len(str)
        retStr = retStr & Mid(str, x, 1) & ","
    Next x
    SeparateString = retStr
End Function

It is a function that receives the string you want to separate, and returns the separated string.
Hope it helps.

-- Martín

•

Join Date: Jul 2008

Posts: 4

Reputation: chid_ is an unknown quantity at this point

Solved Threads: 1

chid_

Offline

Newbie Poster

Re: string handling

Jul 26th, 2008

I have a regsubex function, and in that case all you would need to call, is

regsubex(String,"\B",chr(44)) :-)

 Help with Code Tags 
 vb Syntax (Toggle Plain Text) 
 
Public Function regsubex(Text As String, Pattern As String, ReplaceVar As String) As String
    Dim myRegExp As RegExp
    Set myRegExp = New RegExp
    myRegExp.IgnoreCase = True
    myRegExp.Global = True
    myRegExp.Pattern = Pattern
    Dim txt As String
    txt = myRegExp.Replace(Text, ReplaceVar)
    regsubex = txt
End Function
Public Function regsubex(Text As String, Pattern As String, ReplaceVar As String) As String
    Dim myRegExp As RegExp
    Set myRegExp = New RegExp
    myRegExp.IgnoreCase = True
    myRegExp.Global = True
    myRegExp.Pattern = Pattern
    Dim txt As String
    txt = myRegExp.Replace(Text, ReplaceVar)
    regsubex = txt
End Function