How to break a data in parts.

[Ali Rizwan]

Hi all,
I have a text in a textbox which lokks like this

APD12/09/2007F550R12

A = Show fee status starts P = Paid U = UnPaid
D = Date Starts 12/09/2007 = Date
F = Fee Starts 550 = Amount of Fee paid
R = Recipt no Starts 12 = Recept number

Now i want to show P in text1
12/09/2007 in text2
550 in text3
12 in text4

How can i split this data by using key words
A,D,F,R

Help plz

Thanx

[kadghar]

Hi all,
I have a text in a textbox which lokks like this

APD12/09/2007F550R12

A = Show fee status starts P = Paid U = UnPaid
D = Date Starts 12/09/2007 = Date
F = Fee Starts 550 = Amount of Fee paid
R = Recipt no Starts 12 = Recept number

Now i want to show P in text1
12/09/2007 in text2
550 in text3
12 in text4

How can i split this data by using key words
A,D,F,R

Help plz

Thanx

use the instr function

will give you back the position of the first apearance of a string in a string, to get the fee do something like

dim Str1 as string
dim Str2 as string
str1= "APD12/09/2007F550R12"
Str2 = mid(str1, instr(str1,"F") + 1, instr(str1,"R") - instr(str1,"F") - 1)

hth

[Ali Rizwan]

use the instr function

will give you back the position of the first apearance of a string in a string, to get the fee do something like

dim Str1 as string
dim Str2 as string
str1= "APD12/09/2007F550R12"
Str2 = mid(str1, instr(str1,"F") + 1, instr(str1,"R") - instr(str1,"F") - 1)

hth

Thanx for the reply
i m using another code for this purpose but in that there is a limit for fee.
I m also using the mid() function.
I ll try this code and reply you in a few minutes be logeed in
Thanx

[Ali Rizwan]

use the instr function

will give you back the position of the first apearance of a string in a string, to get the fee do something like

dim Str1 as string
dim Str2 as string
str1= "APD12/09/2007F550R12"
Str2 = mid(str1, instr(str1,"F") + 1, instr(str1,"R") - instr(str1,"F") - 1)

hth

Thanx alot kadghar
This code is working
Thanx a lot again