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: 293

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

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: 293

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

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™

Dev Hardware God 1st Plane (5500 - 5999 posts)

Join Date: May 2004

Location: Salem, OH

Posts: 5,728

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

Time spent in forums: 1 Month 1 Week 6 Days 2 h 30 m 27 sec
Reputation Power: 10408

Quote:

Originally Posted by Salchester

Hrm.....illegal character perhaps?

__________________

Don't like me? Click it.

Scripting problems? Windows questions? Ask the Windows Guru!

Stay up to date with all of my latest content. Follow me on Twitter!

Help us help you! Post your exact error message with these easy tips!

Trader Rating: 0 · #34

January 4th, 2007, 07:12 PM

Salchester

Contributing User

Join Date: Aug 2005

Posts: 293

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

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,728

Time spent in forums: 1 Month 1 Week 6 Days 2 h 30 m 27 sec
Reputation Power: 10408

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: 293

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

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: 293

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

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,728

Time spent in forums: 1 Month 1 Week 6 Days 2 h 30 m 27 sec
Reputation Power: 10408

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,728

Time spent in forums: 1 Month 1 Week 6 Days 2 h 30 m 27 sec
Reputation Power: 10408

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: 293

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

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

Trader Rating: 2 · #41

March 31st, 2007, 07:20 PM

Nilpo

Windows Guru™

Join Date: May 2004

Location: Salem, OH

Posts: 5,728

Time spent in forums: 1 Month 1 Week 6 Days 2 h 30 m 27 sec
Reputation Power: 10408

Hey, Salchester,

Sorry I never saw this question. You're using the Mapi control? Which version? (what OS?)

Trader Rating: 0 · #42

April 1st, 2007, 04:28 AM

Salchester

Contributing User

Join Date: Aug 2005

Posts: 293

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

Parsing Strings

Nilpo,

No Worries, how do I find out the version?
I'm using Windows XP Home Edition, with VB6 SP6.

Many Thanks,

Trader Rating: 2 · #43

April 1st, 2007, 10:22 AM

Nilpo

Windows Guru™

Join Date: May 2004

Location: Salem, OH

Posts: 5,728

Time spent in forums: 1 Month 1 Week 6 Days 2 h 30 m 27 sec
Reputation Power: 10408

Quote:

Originally Posted by Salchester

Nilpo,

No Worries, how do I find out the version?
I'm using Windows XP Home Edition, with VB6 SP6.

Many Thanks,

What's the namespace you're calling? Look at the CreateObject line. Sounds to me like you're using "Mapi.Session", you need to be using CDOSYS which is "CDO.Message".

Trader Rating: 0 · #44

April 1st, 2007, 10:28 AM

Salchester

Contributing User

Join Date: Aug 2005

Posts: 293

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

Parsing Strings

Quote:

Originally Posted by Nilpo

What's the namespace you're calling? Look at the CreateObject line. Sounds to me like you're using "Mapi.Session", you need to be using CDOSYS which is "CDO.Message".

Sorry I don't understand.
What's CDOSYS, where do i find it?
Under Components?

Many Thanks,

Thread Tools	Search this Thread
Email this Page	Search this Thread: Advanced Search
Display Modes	Rate This Thread
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode	Rate This Thread: