Solved

# Getting multiple substrings from a line in a file

Posted on 1998-11-16
139 Views
Last Modified: 2010-04-30
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]
0
Question by:rround
• 2
2 Comments

LVL 18

Accepted Solution

deighton earned 100 total points
ID: 1445048
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

LVL 18

Expert Comment

ID: 1445049
This assumes your string values have no spaces in them, space delimitted list.
0

## Join & Write a Comment Already a member? Login.

Enums (shorthand for ‘enumerations’) are not often used by programmers but they can be quite valuable when they are.  What are they? An Enum is just a type of variable like a string or an Integer, but in this case one that you create that contains…
This article describes some techniques which will make your VBA or Visual Basic Classic code easier to understand and maintain, whether by you, your replacement, or another Experts-Exchange expert.
Get people started with the process of using Access VBA to control Excel using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Excel. Using automation, an Access application can laun…
This lesson covers basic error handling code in Microsoft Excel using VBA. This is the first lesson in a 3-part series that uses code to loop through an Excel spreadsheet in VBA and then fix errors, taking advantage of error handling code. This l…

#### 708 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

#### Need Help in Real-Time?

Connect with top rated Experts

16 Experts available now in Live!