Parsing Strings - Dev Hardware

Dev Hardware Forums Sponsor:

Trader Rating: 0 · #1

January 2nd, 2007, 02:22 PM

Salchester

Contributing User

Join Date: Aug 2005

Posts: 294

Time spent in forums: 1 Day 23 h 37 m 7 sec
Reputation Power: 5

Parsing Strings

I currently have some text in a multiline textbox, how can the the following code be adapted to parse characters 3 to 8 on line 1 of the textbox. Then characters 2 to 6 on line to of the text box, and store both extracted strings in two separate variables.

The following code extracts from line 1 then store the extracted string inside sMidText

vb Code:

Original - vb Code
Dim sText As String Dim sMidText As String sText = text1.text sMidText = Mid$(sText, 3, 8) Debug.Print sMidText

Dim sText As String
Dim sMidText As String
 
sText = text1.text
sMidText = Mid$(sText, 3, 8)
Debug.Print sMidText

Many Thanks,

Last edited by Nilpo : February 8th, 2007 at 01:18 AM.

Trader Rating: 2 · #2

January 2nd, 2007, 06:45 PM

Nilpo

Windows Guru™

Join Date: May 2004

Location: Salem, OH

Posts: 5,326

Folding Points: 186632 Folding Title: Super Ultimate Folder - Level 1

Time spent in forums: 1 Month 1 Week 2 Days 18 h 58 m 33 sec
Reputation Power: 5341

Basically, you use the Split function to separate your string at newline characters. This results in an array containing one substring for each line. You finish up by parsing each line for the requested characters with the Mid function.

vb Code:

Original - vb Code

Dim sText As String
Dim line1 As String
Dim line2 As String
Dim seg1 As String
Dim seg2 As String
Dim arrText() As String
Dim count As Integer
 
sText = text1.text
 
' Get line count
count = InStr(sText, "\n")
 
' Size our dynamic array
ReDim arrText(count + 1)
 
' Split our text string into an array housing individual lines
arrText = Split(sText, "\n", -1, 1)
 
line1 = arrText(0)
line2 = arrText(1)
 
' Parse our lines
seg1 = Mid(line1, 3, 6)
seg2 = Mid(line2, 2, 5)

__________________

Click the image if at any point you don't like my decision.

10011100011000101111100011100000011000000100000011 10010011011110110001101101011011110100011000001110 0100111101000100001

Visit Nilpo.com and Ask the Windows Guru!

Open me for some very useful links!

Ultimate Windows Troubleshooting Guide

Last edited by Nilpo : February 8th, 2007 at 12:47 AM.

Trader Rating: 0 · #3

January 2nd, 2007, 06:56 PM

Salchester

Contributing User

Join Date: Aug 2005

Posts: 294

Time spent in forums: 1 Day 23 h 37 m 7 sec
Reputation Power: 5

Quote:

Originally Posted by Nilpo

Code:

Dim sText As String
Dim line1 As String
Dim line2 As String
Dim seg1 As String
Dim seg2 As String
Dim arrText() As String
Dim count As Integer

sText = text1.text

' Get line count
count = InStr(sText, "\n")

' Size our dynamic array
ReDim arrText(count + 1)

' Split our text string into an array housing individual lines
arrText = Split(sText, "\n", -1, 1)

line1 = arrText(0)
line2 = arrText(1)

' Parse our lines
seg1 = Mid(line1, 3, 6)
seg2 = Mid(line2, 2, 5)

How come when the above code is pasted into Visual Basic 6.0, i get a "Subscript out of range" error message. (problem item shown in bold above)

Many Thanks,

Trader Rating: 2 · #4

January 2nd, 2007, 07:04 PM

Nilpo

Windows Guru™

Join Date: May 2004

Location: Salem, OH

Posts: 5,326

Time spent in forums: 1 Month 1 Week 2 Days 18 h 58 m 33 sec
Reputation Power: 5341

Quote:

Originally Posted by Salchester

How come when the above code is pasted into Visual Basic 6.0, i get a "Subscript out of range" error message. (problem item shown in bold above)

Many Thanks,

That would indicate that your array doesn't have that many elements. That means one of two things: either sText doesn't contain multiple lines, or it's not using the \n newline character. In this case, most likely the second. Try this:

vb Code:

Original - vb Code

Dim sText As String
Dim line1 As String
Dim line2 As String
Dim seg1 As String
Dim seg2 As String
Dim arrText() As String
Dim count As Integer
 
sText = text1.text
 
' Get line count
count = InStr(sText, vbNewLine)
 
' Size our dynamic array
ReDim arrText(count + 1)
 
' Split our text string into an array housing individual lines
arrText = Split(sText, vbNewLine, -1, 1)
 
line1 = arrText(0)
line2 = arrText(1)
 
' Parse our lines
seg1 = Mid(line1, 3, 6)
seg2 = Mid(line2, 2, 5)

Last edited by Nilpo : February 8th, 2007 at 12:48 AM.

Trader Rating: 2 · #5

January 2nd, 2007, 07:07 PM

Nilpo

Windows Guru™

Join Date: May 2004

Location: Salem, OH

Posts: 5,326

Time spent in forums: 1 Month 1 Week 2 Days 18 h 58 m 33 sec
Reputation Power: 5341

You can cut this code down considerably, but I wanted to demonstrate the thought process behind it.

Trader Rating: 0 · #6

January 2nd, 2007, 07:19 PM

Salchester

Contributing User

Join Date: Aug 2005

Posts: 294

Time spent in forums: 1 Day 23 h 37 m 7 sec
Reputation Power: 5

I currently have the following information a text box:

Date: 12/12/06
Name: Bill
Age: 19

How can the data after each field be extracted, and store in a text file. To result in the text file containing only (12/12/06, Bill, 19 etc)

The data after the fields changes i.e. (12/12/06, Bill, 19 etc).