LB Booster
Programming >> Liberty BASIC language >> retrieving record
http://lbb.conforums.com/index.cgi?board=lblang&action=display&num=1435652105
retrieving record
Post by hammerjit on Jun 30th, 2015, 08:15am

hi...my assignment is to retrieve record from a text file and print out result

this is my sample text file
Start, 0, 0, 0, 0
Transfer, 1, 20-05-15, Transfer to Bank, 722
Transfer, 2, 22-05-15, Transfer to Bank, 53855
Transfer, 3, 23-05-15, Transfer to Bank, 149500
Payment, 4, 23-05-15, Advance Out, 19500
Payment, 5, 24-05-15, Advance Out, 2718
Payment, 6, 24-05-15, Advance Out, 3688
Payment, 7, 24-05-15, Advance Out, 501
Transfer, 8, 25-05-15, Transfer to Bank, 134200
Transfer, 10, 23-05-15, Transfer to Bank, 19501

my code will ask for which record to print (which is the second field in each line)

Code:
input "Please enter the record to print : " ; Seqno$

OPEN "c:\coupons2015.txt" FOR INPUT AS #f
search$=Seqno$
while eof(#f)=0
line input #f,l$
if word$(l$,2,",")=search$ then
input1$ = (word$(l$,1,",")):input2$ = (word$(l$,3,",")):input3$ = (word$(l$,4,",")):input4$ = (word$(l$,5,",")):input5$ = (word$(l$,6,",")):input6$ = (word$(l$,7,","))
end if
wend
close #f

print input1$,input2$,input3$,input4$,input5$,input6$,input7$
Re: retrieving record
Post by tsh73 on Jun 30th, 2015, 11:41am

I think you forgot to ask question.

But just in case, your "word$" return part of string between delimiters.
That is, ' 2' (with space attached).
Add trim$:
Code:
if trim$(word$(l$,2,","))=trim$(search$) then
Re: retrieving record
Post by hammerjit on Jul 1st, 2015, 02:12am

lol....ya i forgot to ask the question but thanks tsh73 for your help. grin