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.
>>>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 >>>>>>
>>>>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 >>>> >>>>>>>>