using aspect to read a text file

[mikecons]

Hello all! If anyone out here can help me, I would be incredibly appreciative. I am trying to use ProComm to read a list of numbers from a text file, and use them is a script for a Meridian system. The text file would have the numbers separated by carriage returns. For example:

1234567
1111111
3434343

The program is supposed to loop, and continue to enter the numbers until the end of the file is reached. The following program was posted here a few months ago, it is almost exactly what I need. However, when I tried to run it, it only output a carriage return, leading me to believe that it did not read the file correctly (the file is in the right location and named properly).

Can anyone point me in a direction to get this working?? Thanks in advance!

-Mike

proc main
string Fname = "c:\friends.txt"
string authcode[100]
string Line

integer Counter=0
fopen 0 Fname READ TEXT
while not feof 0
fgets 0 Line
Authcode[Counter]=Line
Counter++
transmit "^M"
waitfor "REQ "
transmit "NEW^M"
waitfor "TYPE "
transmit "AUT^M"
waitfor "CUST "
transmit "0^M"
waitfor "SPWD "
transmit "0000^M"
waitfor "CODE "


transmit Line RAW

waitfor "SARC "
transmit "^M"
waitfor "CLASS "
transmit "1^M"

endwhile


endproc

 

[knob]

Here's a script that should do the trick for you:

proc main
string sLine

fopen 0 "c:\autoexec.bat" READ TEXT
while not feof 0
fgets 0 sLine

<do whatever with the data...>

endwhile
fclose 0
endproc

One thing to check if you are having problems is using the usermsg or statmsg command to output the text that you retrieved from the file. Depending on the format of your data, there may be a carriage return and/or linefeed at the end of the line. These extraneous characters will shows up as a black square. If this is the case with your data, you can use the strdelete command to clean up your string before doing further processing on it.

 

[RLHarris]

I tried your code with the Meridian commands commented out, and it is reading the text file as LINE correctly.

I would suggest you leave the usermsg in for testing where I inserted it, take all the &quot;;&quot; comments out of the script, and see if the Meridian is recieving it correctly.

proc main
   string Fname = "c:\friends.txt" 
   string authcode[100]                
   string Line                 

   integer Counter=0             
   fopen 0 Fname READ TEXT      
      while not feof 0           
      fgets 0 Line                 
      Authcode[Counter]=Line      
      Counter++                
   ;transmit "^M"            
   ;waitfor "REQ "       
   ;transmit "NEW^M"            
   ;waitfor "TYPE "         
   ;transmit "AUT^M"           
   ;waitfor "CUST "            
   ;transmit "0^M"           
   ;waitfor "SPWD "            
   ;transmit "0000^M"          
   ;waitfor "CODE "          
   
   usermsg Line  
     

   ;transmit Line RAW          
      
   ;waitfor "SARC "
   ;transmit "^M"
   ;waitfor "CLASS "
   ;transmit "1^M"
   
     endwhile             
 
     
   endproc

Robert Harris
Communications Advantage

http://www.communicationsadvantage.com