Strings

[Silicon Valley]

Hello,

strstriing$ = "\gamez\tony hawk\"
i want to use instr to find the "\"

then, for each \ found, use a for/next to get the text inbetween


so my final result will be
"gamez"
"tony hawk"


My problem is i dont know how to count the "/s"?

any advice

[HeSaidJoe]

Option Explicit

Private Function Tagless(ByVal Text As String) As String
    
    Dim i As Integer
    Dim x As Integer, y As String
    
      For i = 1 To Len(Text)
         If Mid(Text, i, 1) = "\" Then
             x = x + 1
         If x = 2 Then
            y = y & vbCrLf
             x = 1
       End If
         Else
            y = y & Mid(Text, i, 1)
       End If
       
       
   Next
   
    Tagless = y
End Function

Private Sub Form_Load()
    Dim strString As String
    strString = "\tony\get it\why\not ever if you\dare"
    MsgBox Tagless(strString)
End Sub

[Silicon Valley]

Thanks HeSaidJoe

[rammy]

u can use the split function instead:

try this:

Private Sub Command1_Click()
    str1 = "\tony\get it\why\not ever if you\dare"
    str2 = Split(str1, "\")
    For i = 0 To UBound(str2)
        Debug.Print str2(i)
    Next
End Sub

[Edited by rammy on 11-09-2000 at 11:13 PM]