I'm wanting to use this as a progress meter where the periods progress across the 1st line. The periods print all at one time rather than one at a time when a line of text is written.
I execute a select that returns 12 items I use keyCnt to walk through the 12 items one at a time. recCount is basically the number of lines written to the text file. On line 63 I divide recCount by 12. Which now that you mention it that not what I need to do. On Aug 6, 1:35 pm, Val Yanez <[email protected]> wrote: > When you say that it doesn't work, do you mean that no periods are > printing? Not the correct number of periods are printing? What doesn't > work? Also, what are you setting keyCnt and reCount too? > > From what I can tell, you are printing every 12th record so you should > get a dot printed every 12th record that is written. > > > > > > > > > -----Original Message----- > > From: [email protected] [mailto:[email protected]] On Behalf > Of > > ww > > Sent: Thursday, August 06, 2009 12:09 PM > > To: jBASE > > Subject: jBASE 4.1 on Redhat Linux - Display a character each time a > > record is written? > > > I want to print a character across the screen each time a record is > > written to a file. Basically a stream of periods like > > this ............................................. Here's the code I'm > > using that doesn't work. > > > Thanks in advance, > > > WW > > > 055 LOOP > > 056 WHILE READNEXT Key FROM TheList DO > > 057 IF keyCnt < 12 THEN > > 058 CHANGE "," TO "" IN Key > > 059 Line = Line:Key:",": > > 060 keyCnt = keyCnt + 1 > > 061 END ELSE > > 062 Line = Line:Key:CRR > > 063 CRT @(recCount/12,0):".": > > 064 PAUSE .1 > > 065 WRITESEQ Line ON TPath ELSE > > 066 GOSUB ReportError > > 067 STOP > > 068 END > > 069 Line = "" > > 070 keyCnt = 1 > > 071 END > > 072 recCount++ > > 073 REPEAT > > 074 WEOFSEQ TPath > > 075 CLOSE TPath > > Notice: This transmission is for the sole use of the intended recipient(s) > and may contain information that is confidential and/or privileged. If you > are not the intended recipient, please delete this transmission and any > attachments and notify the sender by return email immediately. Any > unauthorized review, use, disclosure or distribution is prohibited.- Hide > quoted text - > > - Show quoted text - --~--~---------~--~----~------------~-------~--~----~ Please read the posting guidelines at: http://groups.google.com/group/jBASE/web/Posting%20Guidelines IMPORTANT: Type T24: at the start of the subject line for questions specific to Globus/T24 To post, send email to [email protected] To unsubscribe, send email to [email protected] For more options, visit this group at http://groups.google.com/group/jBASE?hl=en -~----------~----~----~----~------~----~------~--~---
