UNIBASIC开发人员请帮助我 [英] UNIBASIC developers please help me
问题描述
我是Unibasic技术的新手.
-请给我一个打开顺序文件(.csv)的示例
-然后将数据写入该顺序文件.
我知道我必须使用OPENSEQ来打开顺序文件,并使用WRITESEQ来编写顺序文件.但是我不知道这些命令以及如何使用这些命令.
这是我的代码:
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
我还创建了SAVEX.CSV(CREATE.FILE SAVEX.CSV)
但是我不知道为什么会出现错误..
I have also created SAVEX.CSV (CREATE.FILE SAVEX.CSV)
But I dont know why i am getting the error..
推荐答案
包含BP MENUSTRUCTURE.DICT 打开'''',''MENULIST''到MENULIST ELSE 打印找不到数据库文件" 结尾 OPENSEQ'''',''SAVEX.CSV''到SAVEX ELSE 打印``OPENSEQ FAILED'' 结尾 返回 ******************************************** *列表文件* ******************************************** 列表: CMD =``选择菜单列表'' 执行CMD捕获垃圾 66 N = 0 环形 READNEXT ID ELSE EXIT MATLIST D.MENULIST从MENULIST,然后ID N = N + 1 结尾 重复 列印N 对于ID = 0到N MATLIST D.MENULIST从MENULIST,然后ID 我= 0 GOSUB PRINT.DATA: 结尾 下一个ID 返回 ******************************************** *打印数据* ******************************************** 打印数据: 如果MENULIST.MENU_LINK_NO =然后 MLN = MENULIST.MENU_NO PRINT MENULIST.MENU_NAME WRITESEQ MENULIST.MENU_NAME保存然后*这部分我遇到了错误. END ELSE 打印"WIRTE FAILED" 结尾 打印STR(''-'',30) 对于SID = 0到N 菜单列表中的MATREAD D.MENULIST,然后SID GOSUB打印子菜单 结尾 下一个SID END ELSE 结尾 返回
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
我还创建了SAVEX.CSV(CREATE.FILE SAVEX.CSV)
但我不知道为什么会收到错误消息.
I have also created SAVEX.CSV (CREATE.FILE SAVEX.CSV)
But I dont know why i am getting the error..
这篇关于UNIBASIC开发人员请帮助我的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!