生成，读取.Txt文件

Question

1
在vb中，把rs记录集的内容按格式生成指定文件夹下的指定文件（c:\trans\TransOut.txt）,每次生成时，要覆盖原有的TransOut.txt文件，如果TransOut.txt文件不存在，则新建文件TransOut.txt。2把TransOut.txt文件中内容导入sqlserver数据库，取每一条记录，按要求放进数据库中。3TransOut.txt文件格式
 2位空格+2位代码+4位代码+30位代码(不够30位加空格)+13位代码+1位（0）
 例如：“  010045asas                          11111111111110”
 每一行一条记录，回车换行以前每做过这一方面的，搜索了一下，还不是很懂。希望大家帮帮我

Answer 1

不是这个意思
我根本是不知道该怎么写
怎么生成txt文件，读取txt文件时都需要做什么阿

Answer 2

If Dir(strTxtFile) <> "" Then
        MsgBox "文件存在", , "提示"
        '请空文本文件内容，输入新内容    --怎么做？
    Else
        MsgBox "文件不存在", , "提示"
        '新建文本文件，并添加内容        --怎么做？
    End If

Answer 3

open "c:\trans\TransOut.txt" for input as #1
while not rs.eof()
 strRec=rs(0) & rs(1) & rs(2)
 write #1 strRec
loop
close #1[Read]
Open "c:\trans\TransOut.txt" for output as #1
while not eof(1)
read #1 , strSS
loop
close #1

Answer 4

Dim strTxt As String
            strTxtFile = App.Path & "\Txt\" & "TransCpy.txt"
            If Dir(strTxtFile) <> "" Then Kill strTxtFile
            Open strTxtFile For Output As #1
            While Not rsTxt.EOF
                 strTxt = ""
                 strTxt = Right("00" + CStr(rsTxt.Fields("TransCode").Value), 2)
                 strTxt = strTxt + rsTxt.Fields("TransName").Value + Space(10 - LenB(rsTxt.Fields("TransName").Value))
                 rsTxt.MoveNext
                 Print #1, strTxt
            Wend
           
            Close #1
            MsgBox "txt文件导出成功", , "提示"我现在是这么做的
有个问题
我怎样判断这个文件是否被打开

Answer 5

   偶有这样的源程序，要么？留下E-Mail!

Answer 6

要的
那太谢谢你了
[email protected]
[email protected]