I Tried the following code ,

Set Exact Off
lnLines=Alines(linearray,FILETOSTR('1010493909.ps'))
?lnlines && Prints 664 
?ASCAN(linearray,'Total') && Prints 0

Since there is No line in Array that starts from Word 'Total' so it Gives Value as 0. I studied ASCAN 5 Times Yesterday and Could not get
how will I get the complete Line in which there is Word "Total" in Middle and Not in the starting.

"Total" is somewhere in Middle of Line and Not the startting word and that is why it is returning 0.

I Tried ?ASCAN(linearray,'%Total%') but it also didn't worked out






>Make sure to get the last help! http://vfpx.codeplex.com/wikipage?title=VFP%209%20SP2%20Help%20File&referringTitle=Home
>
>And please study the samples and try them out. To answer your question:

>lnLines = alines(laArray,filetostr('c:\somedir\somefile.txt')) 
>?lnLines && the number of lines
>?laArray(1) && Line 1

>
>
>>I Tried ALINES() But Not able to Get It completely, I saw VFP Help also but van Get it. Can you please Give Example.
>>
>>How wil I determine Array Length ( as it will depend upon the number of Line) Second How will I find "Total Charges In that array ?
>>
>>
>>
>>
>>I already told you how to do this.
>>>
>>>1. Separate the text into separate lines, Alines() is perfect for this.
>>>2. Scan the array of lines built by alines and replace the lines where it's necessary
>>>3. Scan the array and recreate the text as you want it.
>>>
>>>>Sir,
>>>>Actially I need The required Value from The following Text.
>>>>

>>>>w
>>>>G
>>>>195 83 89 83 L 
>>>>g n
>>>>F4 B (Branch)477 84 w
>>>>G
>>>>g n
>>>>F4 B (Bank)353 84 w
>>>>G
>>>>422 109 12 -9 k 
>>>>g n
>>>>F4 B (Cheque/DD)232 101 w
>>>>G
>>>>g n
>>>>F4 B (E-payment)440 101 w
>>>>G
>>>>g n
>>>>F4 B (Credit / Debit Card)327 101 w
>>>>G
>>>>g n
>>>>F4 B (Dated)227 84 w
>>>>G
>>>>g n
>>>>F4 B (Cheque/DD No.)19 84 w
>>>>G
>>>>g n
>>>>F4 B (Cash)157 101 y
>>>>G
>>>>g n
>>>>F4 B (Mode of payment)19 101 w
>>>>G
>>>>404 76 12 -9 k 
>>>>127 109 12 -9 k 
>>>>211 109 12 -9 k 
>>>>305 109 12 -9 k 
>>>>440 76 12 -9 k 
>>>>490 76 12 -9 k 
>>>>85 60 8 -8 k 
>>>>108 60 8 -8 k 
>>>>116 60 8 -8 k 
>>>>93 60 8 -8 k 
>>>>124 60 8 -8 k 
>>>>132 60 8 -8 k 
>>>>319 91 8 -8 k 
>>>>312 91 8 -8 k 
>>>>304 91 8 -8 k 
>>>>296 91 8 -8 k 
>>>>283 91 8 -8 k 
>>>>276 91 8 -8 k 
>>>>263 91 8 -8 k 
>>>>255 91 8 -8 k 
>>>>2 P 29 656 72 -43 k 
>>>>g n
>>>>F1 B (Previous Balance)65 648 y
>>>>G
>>>>g n
>>>>F1 B (=)487 633 y
>>>>G
>>>>g n
>>>>F1 B (+)206 633 y
>>>>G
>>>>121 656 72 -43 k 
>>>>g n
>>>>F1 B (Last Payment)157 648 y
>>>>G
>>>>309 655 72 -43 k 
>>>>g n
>>>>F1 B (Current Charges)346 646 y
>>>>G
>>>>g n
>>>>F1 B (Usage Charges)390 538 w
>>>>G
>>>>g n
>>>>F1 B (Tax)390 507 w
>>>>G
>>>>g n
>>>>F1 B (Discount)390 523 w
>>>>G
>>>>g n
>>>>/F5{/I 9.0 Fn2}b
>>>>F5 B (Summary of )392 597 w
>>>>F5 B (Current Charges)392 587 w
>>>>G
>>>>g n
>>>>F5 B (Amount \(Rs.\))561 597 x
>>>>G
>>>>g n
>>>>F5 B (Total Charges)393 486 w
>>>>G
>>>>0 P 24 196 13 189 L 
>>>>13 196 24 189 L 
>>>>2 P 216 656 72 -43 k 
>>>>g n
>>>>F1 B (Adjustments)252 648 y
>>>>G
>>>>0 P 100 631 28 631 L 
>>>>194 631 122 631 L 
>>>>288 631 216 631 L 
>>>>382 631 310 631 L 
>>>>572 631 500 631 L 
>>>>F3 (HIRA LAL GUPTA  .)31 756 w
>>>>(SUKH NIWAS BHOJPUR .)31 747 w
>>>>(SUNDERNAGAR . DISTT. MANDI \(H.P.\) .  .)31 738 w
>>>>(HIMACHAL PRADESH)31 729 w
>>>>(175002)31 720 w
>>>>(India)31 711 w
>>>>F5 (532.81)565 485 x
>>>>F1 (532.00)145 619 w
>>>>(0.00)238 619 w
>>>>(532.81)339 619 w
>>>>(0.00)564 555 x
>>>>(574.00)565 570 x
>>>>(0.00)564 538 x
>>>>(58.61)565 506 x
>>>>(531.87)42 619 w
>>>>g n
>>>>F1 B (Deposit              1200.00)31 678 w
>>>>G
>>>>g n
>>>>F4 B (Amex)551 68 w
>>>>G
>>>>533 76 12 -9 k 
>>>>g n
>>>>F3 B
>>>>

>>>>
>>>>You can see that after Total Charges there is 486 w, I need to extract 486 if that, secondaly the "Total Charges" in some cases become Total Charges Charged" or Total Chrg. Since there is No uniformity, I am Not able to Extract the Data.
>>>>
>>>>
>>>>
>>>>You can try something like this (I just did it quickly so the regular expression I am sure can be bettered, and you can customize it if there are more lines that you are not showing us
>>>>>
>>>>>
>>>>>

>>>>>local loReg, lcString, loMatches, loMatch, loSubmatch
>>>>>
>>>>>clear
>>>>>
>>>>>text to lcString noshow flags 1 pretext 1 + 2 + 4
>>>>>F5 B (Total Charges)390 478 w
>>>>>F5 B (Total Chg)390 478 w
>>>>>F5 B (Total Chrgs)390 478 w
>>>>>endtext
>>>>>
>>>>>loReg			= CreateObject('VBScript.RegExp')
>>>>>loReg.Pattern		= '.*(\(Total cha?r?g?e?s?\)(\s?390)\s)(\d+)\s?w'
>>>>>loReg.Global		= .t.
>>>>>loReg.IgnoreCase	= .t.
>>>>>loMatches		= loReg.Execute(lcString)
>>>>>if loMatches.Count > 0
>>>>>	for each loMatch in loMatches
>>>>>		loSubmatch	= loMatch.SubMatches.Item(2)
>>>>>		? 'Total charges:', loSubmatch
>>>>>	endfor
>>>>>else
>>>>>	? 'No matches found'
>>>>>endif
>>>>>
>>>>>

>>>>>
>>>>>[Update]
>>>>>
>>>>>By the way, I forgot to say that you should replace the TEXT ENDTEXT with lcString = FILETOSTR('Your File')
>>>>>
>>>>>[Update 2]
>>>>>Just noticed that I called the variable loSubmatch instead of lcSubmatch...