Click here to Skip to main content
15,902,492 members
Please Sign up or sign in to vote.
0.00/5 (No votes)
See more:
I am new to Unibasic technology .
-Please give me an example for opening a sequential file(.csv)
-Then to write a data into that sequential file.
I know that i have to use OPENSEQ for opening a sequential file and WRITESEQ for writing a sequential file. but i dont know were and how these commands can be used.

Here is my Code:

****************************************
*     INCLUDE DICT AND OPEN FILE       *
****************************************
OPEN:
$INCLUDE BP MENUSTRUCTURE.DICT
OPEN '','MENULIST' TO MENULIST ELSE    
PRINT 'DATABASE FILE NOT FOUND'
END
OPENSEQ '','SAVEX.CSV' TO SAVEX ELSE
PRINT 'OPENSEQ FAILED'
END
RETURN
****************************************
*	      LIST FILE 	       *
****************************************
LIST:
CMD = 'SELECT MENULIST'
EXECUTE CMD CAPTURING JUNK
66
N=0
LOOP
  READNEXT ID ELSE EXIT
   MATREAD D.MENULIST FROM MENULIST,ID  THEN 
   N=N+1
   END
REPEAT
PRINT N
FOR ID=0 TO N
   MATREAD D.MENULIST FROM MENULIST,ID  THEN
    I=0
    GOSUB PRINT.DATA:
   END
NEXT ID

RETURN
****************************************
*	      PRINT DATA 	       *
****************************************
PRINT.DATA:
IF MENULIST.MENU_LINK_NO=I THEN
   MLN=  MENULIST.MENU_NO
   PRINT  MENULIST.MENU_NAME
   WRITESEQ MENULIST.MENU_NAME TO SAVEX THEN *This part I am hitting an Error.
   END ELSE 
   PRINT "WIRTE FAILED"
   END
   PRINT  STR('-',30)

 
   FOR SID=0 TO N
       MATREAD D.MENULIST FROM MENULIST,SID  THEN
 
                GOSUB PRINT.SUBMENU
          
       END
   NEXT SID


END ELSE
END
  RETURN


I have also created SAVEX.CSV (CREATE.FILE SAVEX.CSV)
But I dont know why i am getting the error..
Posted
Updated 6-Dec-11 21:44pm
v3

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)



CodeProject, 20 Bay Street, 11th Floor Toronto, Ontario, Canada M5J 2N8 +1 (416) 849-8900