Page 3 - Parsing Strings

Dev Hardware Forums Sponsor:

Trader Rating: 0 · #31

January 4th, 2007, 03:26 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

THANKS VERY MUCH!!! :-)

Works Brilliantly now!!!!

Now how do i extract a new field's data (Telephone) from the textbox?

The textbox now contains the following:

Bill has sent the following information:

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

Telephone: 01453822665

Also, how can all this information be saved inside a text file, whilst allowing for certain pieces of information (i.e. Name, Date) to be reloaded and displayed in textboxes at a later date?

Many Thanks, much appreciated!

Trader Rating: 0 · #32

January 4th, 2007, 05:53 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

Cheers,

The program now works fine, only if there is no data in the Date field, the following error message appears:

Run-time error '5':

Invalid procedure call or argument

What can be done to the code, in order for it to except blank fields?

Many Thanks, much appreciated!!!! :-)

Last edited by Salchester : January 4th, 2007 at 06:56 PM.

Trader Rating: 2 · #33

January 4th, 2007, 07:05 PM

Nilpo

Windows Guru™

Join Date: May 2004

Location: Salem, OH

Posts: 5,404

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

Time spent in forums: 1 Month 1 Week 3 Days 19 h 42 m 53 sec
Reputation Power: 6193

Quote:

Originally Posted by Salchester

Hrm.....illegal character perhaps?

__________________

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
Need Homework Help?

Trader Rating: 0 · #34

January 4th, 2007, 07:12 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

Hrm.....illegal character perhaps?

Could be?, or is it just the fact that it doesn't like blank fields?

Is there anyway of putting two spaces " " inside the appropriate field, if the programs finds a blank field?

Many Thanks, much appreciated!

Last edited by Salchester : January 4th, 2007 at 07:16 PM.

Trader Rating: 2 · #35

January 5th, 2007, 08:45 AM

Nilpo

Windows Guru™

Join Date: May 2004

Location: Salem, OH

Posts: 5,404

Time spent in forums: 1 Month 1 Week 3 Days 19 h 42 m 53 sec
Reputation Power: 6193

I'll add a little error check to handle the blank field.

Trader Rating: 0 · #36

January 5th, 2007, 08:47 AM

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

I'll add a little error check to handle the blank field.

OK! Brilliant.

Many Thanks, much appreciated!

Trader Rating: 0 · #37

January 5th, 2007, 01:59 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

I'll add a little error check to handle the blank field.

Did you manage to add the error checking?

Many Thanks, much appreciated!

Trader Rating: 2 · #38

February 8th, 2007, 02:04 AM

Nilpo

Windows Guru™

Join Date: May 2004

Location: Salem, OH

Posts: 5,404

Time spent in forums: 1 Month 1 Week 3 Days 19 h 42 m 53 sec
Reputation Power: 6193

I apologize for getting back so late. Here's the code including the error-check:

vb Code:

Original - vb Code

Dim sText As String
Dim sDate As String
Dim sName As String
Dim sAge 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)
 
' Split our text string into an array housing individual lines
arrText = Split(sText, vbNewLine, -1, 1)
 
' Pull the last 3 strings from our array, ignoring any and all before it
sName = arrText(Ubound(arrText) - 3)
sDate = arrText(Ubound(arrText) - 2)
sAge = arrText(Ubound(arrText) - 1)
 
' Parse each line for ": " followed by data entry and reassign to our variable
 
If instr(sName, ": ") Then sName = Right(sName, Len(sName) - 4) Else sName = ": <blank>"
If instr(sDate, ": ") Then sDate = Right(sDate, Len(sDate) - 4) Else sName = ": <blank>"
If instr(sAge, ": ") Then sAge = Right(sAge, Len(sAge) - 3) Else sName = ": <blank>"

Trader Rating: 2 · #39

February 8th, 2007, 02:24 AM

Nilpo

Windows Guru™

Join Date: May 2004

Location: Salem, OH

Posts: 5,404

Time spent in forums: 1 Month 1 Week 3 Days 19 h 42 m 53 sec
Reputation Power: 6193

If the code above doesn't work, it could be that you have blank lines before the Telephone field. We may have to account for that.

Trader Rating: 0 · #40

February 8th, 2007, 02:51 AM

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

Nilpo,

No Worries, I'll try it out later, when I'm on the correct machine.

I'm currently using the MAPI Control in my VB project, in order to load the email messages from my email application, into my program. Only, is there anyway of selecting a different folder for the messages to come from, instead of the Inbox folder?

Many Thanks, much appreciated!!!

Dale M. Piper
dddmmmppp@hotmail.com