Changing a little bit the reg expression I showed before, as the three digits before the total were different that what you showed before (and remember to change the text endtext to filetostr:
local loReg, lcString, loMatches, loMatch, loSubmatch
clear
text to lcString noshow flags 1 pretext 1 + 2 + 4
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 Bend
endtext
loReg = CreateObject('VBScript.RegExp')
loReg.Pattern = '.*(\(Total cha?r?g?e?s?\)\s?(\d+)\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)
? 'Those three unknown digits where:', loMatch.SubMatches.Item(1), 'Total charges:', loSubmatch
endfor
else
? 'No matches found'
endif
"The five senses obstruct or deform the apprehension of reality."
Jorge L. Borges?
"Premature optimization is the root of all evil in programming."
Donald Knuth, repeating C. A. R. Hoare
"To die for a religion is easier than to live it absolutely"
Jorge L. Borges
