论坛: 编程破解 标题: VB编程中对文本操作的一个问题?十分急! 复制本贴地址    
作者: drckness [drckness]    论坛用户   登录
1.如何用VB编程在一个文本文件中读出指定行的数据。
急用!谢谢啦,最好能给出实例呀。谢了再次!


帮帮我呀,不然就完蛋了!

………………………………………………………………………………………………………………

谢谢你286,问题我解决 了虽然不是用你的方法,呵呵。把那个文本文件的内容循环到一个listbox列表框里面然后用listbox的i=list1.listcount;来读出行数,然后再用linedata=list1.list(line)再把指定的行读出来。再用split函数来分割。取出要的字段,谢谢你啦286。




[此贴被 drckness(drckness) 在 05月19日15时46分 编辑过]

地主 发表时间: 04-05-19 11:25

回复: 286 [unique]   版主   登录
将该文件的内容读到缓冲区里,然后依次数回车、换行的个数。
不同的文本文件,回车换行的处理不一样,你可以把“回车”、“换行”、“回车换行”分别作为一行处理。

DIM LINE=0
DIM LINESTR=""              '该行的内容
DIM TEMPSTR=""
FOR I=1 TO BUFFLEN
  IF (BUFF[I]=10 AND BUFF[I+1]=13) OR (BUFF[I]=13 AND BUFF[I+1]=10) THEN
      LINE=LINE+1
      I=I+1
      TEMPSTR=""
  END IF
  IF BUFF[I]=10 OR BUFF[I]=13 THEN
      LINE=LINE+1
      TEMPSTR=""
  END IF
  TEMPSTR=TEMPSTR+BUFF[I]
  IF LINE=SEEKLINE THEN          'SEEKLINE是要找的LINE
    LINESTR=TEMPSTR 
  END IF
NEXT I

B1层 发表时间: 04-05-19 12:44

论坛: 编程破解

20CN网络安全小组版权所有
Copyright © 2000-2010 20CN Security Group. All Rights Reserved.
论坛程序编写:NetDemon

粤ICP备05087286号