Getting multiple substrings from a line in a file

I need to be able to get the string values from the following file entry.  The three string variables vary in length from 2 to 8 characters and also vary from line to line.  I need to print the three values to a listbox. I need help extracting the strings.


D [str_var_1] [str_var_2] 750.0 6500.0 0 2 0 [Str_var_3]
D [str_var_1] [str_var_2] 130.0 8925.0 0 2 0 [Str_var_3]
D [str_var_1] [str_var_2] 265.0 7925.0 0 2 0 [Str_var_3]
rroundAsked:
Who is Participating?

[Webinar] Streamline your web hosting managementRegister Today

x
 
deightonConnect With a Mentor Commented:
Private Sub Command1_Click()

    Dim x As String, y As String, z As String

    Call Get_Strings("D [str_var_1] [str_var_2] 750.0 6500.0 0 2 0 [Str_var_3]", x, y, z)
   
    MsgBox x + " " + y + " " + z


End Sub


Private Sub Get_Strings(ByVal sUString As String, x As String, y As String, z As String)

    Dim c As Long
    Dim n As Long
    Dim sTemp As String

    For c = 1 To Len(sUString)
       
        If Mid(sUString, c, 1) = " " Then
       
            n = n + 1
            If n = 2 Then x = sTemp
            If n = 3 Then y = sTemp
         
           
            sTemp = ""
           
        Else
   
            sTemp = sTemp & Mid(sUString, c, 1)
       
        End If
       
    Next
   
    z = sTemp
   

'   D [str_var_1] [str_var_2] 750.0 6500.0 0 2 0 [Str_var_3]
 '  D [str_var_1] [str_var_2] 130.0 8925.0 0 2 0 [Str_var_3]
  ' D [str_var_1] [str_var_2] 265.0 7925.0 0 2 0 [Str_var_3]


End Sub

0
 
deightonCommented:
This assumes your string values have no spaces in them, space delimitted list.
0
All Courses

From novice to tech pro — start learning today.