我有个文本文件,我首先要打开它,然后read一行,如果它的一行和我要找的文本一致,则在这个行上面添加一行,并APPEND几个字符。
能否大虾指点一二,谢谢、。

解决方案 »

  1.   

    Open tmp + "\stock.txt" For Output As #1    '写
    tmp = "aaaa"
    Print #1, tmp
    Close #1
    Open tmp + "\stock.txt" For Input As #1  '读
    Do While Not EOF(1)
    Line Input #1, temp1
    Close #1
    loop
      

  2.   

    日期:
    DateAdd(Interval as string,Number as long,Date)Interval:
    YYYY: 年
    M: 月
    D: 日
    H: 小时
    m: 分钟
    S: 秒Number: --
    Date: 日期####年3月1日的前一天:
    tmpDate = DateAdd("D",-1,cdate("####年3月1日"))
      

  3.   

    不好意思大虾还有个问题:
    FileCopy source, destination '拷贝某个文件夹下的所有文件(不是一个)有个问题啊
    在使用FileCopy时如果碰到已存在文件,则覆盖操作,不需要出现提示框,成功后也不需要它弹出成功框。
    原先在BAT文件里我是这样写的:    XCOPY 原路径 目的路径 /y/e/f 
    请教这个"/y/e/f”在VB中用FileCopy命令时怎么解决的?如果这样解决:
    FileCopy如果目标文件存在,则出错
    同样可以用dir(文件)判断是否存在,如果存在。则用Kill 文件名删除。然后在拷贝碰到个问题,我有很多文件要拷贝,但是怎么在运行中知道哪个文件是否存在呢??请教高人!谢谢