0
点赞
收藏
分享

微信扫一扫

MCGS 无限配方数据存储及U盘导入导出-第一集

MCGS 无限数据存储及U盘导入导出

下面是一个物料条码数据库的示例,通过MCGS的文件API实现无限配方数据,把数据都存在CSV格式的文件里面

MCGS 无限配方数据存储及U盘导入导出-第一集_读取文件

传统的配方需要新建变量等操作

MCGS 无限配方数据存储及U盘导入导出-第一集_读取文件_02

测试数据的写入和读取

测试数据写入

1.调用CreateDirectory方法在触摸屏本地创建test文件夹,CreateDirectory方法可以多次调用保证test文件夹存在,如果test文件夹存在会忽略

2.调用FileWriteByStr方法在test文件夹下创建writeStr.txt文件,并写入CSV格式数据,FILE_TRUNC表示新建,TEXT_UTF8为UTF-8格式

N = !CreateDirectory("$MCGS_DIR_USER/test/")
N = !FileWriteByStr("$MCGS_DIR_USER/test/writeStr.txt","1,100\n2,200\n3,300\n4,400\n",FILE_TRUNC,TEXT_UTF8)

测试数据的读取

 可以在画面上建测试框和按钮

MCGS 无限配方数据存储及U盘导入导出-第一集_读取文件_03

''申明读取文件变量
DIM readLength AS INTEGER
DIM readTime AS INTEGER
DIM readMaxTime AS INTEGER
DIM readIndex AS INTEGER
DIM readString AS STRING
DIM readBuffer AS STRING
DIM readFileSize AS INTEGER


''设置变量初始化数据
readIndex=0
readTime=0
readFileSize=0
''设置读取最大次数
readMaxTime=2

''读取文件大小
readFileSize = !GetFileSize("$MCGS_DIR_USER/test/writeStr.txt")

''判断文件是否存在并且文件大小>0
IF readFileSize > 0 THEN

'' 循环读取文件数据
WHILE 1
''readIndex是读取文件内容起始位置+上一次读取的长度
readIndex=readIndex+readLength
''读取文件一行数据,读取位置为readIndex,0表示一行,把读取到的数据存入readBuffer,格式为UTF-8,最后把读取到的数据长度存入readLength
readLength = !FileReadByStr("$MCGS_DIR_USER/test/writeStr.txt",readIndex,0,readBuffer,TEXT_UTF8)
''测试输出,把循环读取的数据加起来
readString = readString + "---" + readBuffer
''测试输出
N = readLength
''读取次数自加1
readTime=readTime+1
''控制读取次数,判断读取次数是否等于最大次数,是则退出循环
IF readTime = readMaxTime THEN
BREAK
ENDIF
''判断读取一行文件数据是否小于1,小于1就退出循环
IF readLength < 1 THEN
BREAK
ENDIF
ENDWHILE
ENDIF

strResultRef = readString

MCGS 无限配方数据存储及U盘导入导出-第一集_数据_04

 按下测试按钮后就可以看见写入文件的数据被读取出来


举报

相关推荐

Vue3+Ts第一集

0 条评论