hur.cn - 华软网

 热门搜索

在线急等解决,关于数组的问题

  作者:未知    来源:网络    更新时间:2017/9/29
我的程序是有一组字符串要从txt文件中读取,格式是这样:zhongguogongsi|shandong|qingdao|xianggangzhonglu 68 hao|china|aba123d32|
是用 | 分隔的,现在要读取到数组中,ai[],但是打开这个文件后操作没有问题,如果再打开同样的文件就会报错,说;array boundary exceeded at line 38 in clicked event of object cb_1 of w_one ,请问怎样解决,谢谢啊
string ai[]
int val,li_FileNum,a,len1,i,val1
long it 
string docname1,named1,ls_input,str,str1,docname,named


//messagebox("提示",str1)
//docname='cv'+docname1
//val1=getfilesavename("请选择您要保存的目录和文件名" ,docname,named,"txt","文本文件(*.TXT),*.TXT")
//
// it=fileopen(docname,linemode!,write!,Shared!,append!)
// filewrite(it,str1)
//
//messagebox("提示","接口文件已经生成")

val=getfileopenname("请选择您要的文件" ,docname1,named1,"txt","All Files (*.txt),*.txt","文本文件(*.txt),*.txt")
li_FileNum = FileOpen(docname1)
FileRead(li_FileNum,ls_input)
messagebox("提示","文件已经选定")
a = pos(ls_input,'|')
if a=0 then 
   messagebox("提示","数据有问题,请查证")
else 
do while a > 0 


i ++
ai[i] = left(ls_input,a - 1)
   
ls_input = mid(ls_input,a + 1)

a = pos(ls_input,'|')
    

loop
  str=sle_1.text
end if
str1='"'+str+'",'+'"'+ai[1]+'","",'+'"'+ai[2]+'",'+'"'+ai[3]+'",'+'"'+ai[4]+'","","","",'+'"'+ai[5]+'","600301480","",'+'"'+ai[6]+'","","","","00","","00000000"'

val1=getfilesavename("请选择您要保存的目录和文件名" ,docname,named,"txt","文本文件(*.TXT),*.TXT")

it=fileopen(docname,linemode!,write!,Shared!,append!)
filewrite(it,str1)
messagebox("提示","接口文件已经生成,请核实")


------华软网友回答------
怎么只有FileOpen
没有FileClose

------华软网友回复------
应该是第一次没有close的缘故      
华软声明:本内容来自网络,如有侵犯您版权请来信指出,本站立即删除。