----赖格英-----

记忆不好了,记录工作中的点点滴滴....

  博客园  :: 首页  :: 新随笔  :: 联系 :: 订阅 订阅  :: 管理

2013年8月16日

摘要: If ReadFile(0, "Test1.txt") ; if the file could be read, we continue... If CreateFile(1, "Test2.txt") While Eof(0) = 0 ; loop as long the 'end of file' isn't reached Astring$=ReadString(0) A$=StringField(Astring$,1,",") B$=StringField(Astring$,2,"," 阅读全文
posted @ 2013-08-16 16:22 向北方 阅读(495) 评论(0) 推荐(0)