ACCESS VBA-导出文件具有；在一行的末尾和开头

说明：我的代码导入一个文本文件，并在特定列空格处更改为数字19。通过在vba中使用left和right，我成功地做到了这一点

我不知道为什么，但我编写的代码在我导出的循环的末尾和开头添加了“我已经在搜索解决方案并发现了这个问题

我的代码有问题吗？这一点我很困惑

我的代码：

Sub Text()
'open File and save as string

Dim strFilter As String
Dim strFileName As String
Dim strFileNameSecond As String

strFileNameSecond = "new.txt"


  strFilter = ahtAddFilterItem(strFilter, "Text Files (*.TXT)", "*.TXT")
  strFileName = ahtCommonFileOpenSave( _
                Filter:=strFilter, OpenFile:=True, _
                DialogTitle:="Please select an input file...", _
                Flags:=ahtOFN_HIDEREADONLY)

'load selected file and save as new file

Dim strZeile
Dim strRepMid As String

Open strFileName For Input As #1
Open strFileNameSecond For Output As #2

Do While Not EOF(1)
    Line Input #1, strZeile

    strRepMid = Left(strZeile, 40) & "19" & Right(strZeile, 68)

    Write #2, strRepMid
Loop

Close #1    'close file
Close #2
End Sub

我的文本文件：

kjhcae48ovawpovmslövsae       0000000000     jhkfkgnskhvfnslkfvmkjrdacösle<nvsel,fösfvjmykljc,gkvyndngmbrhjgsr
kjhcae48ovawpovmslövsae       0000000000     jhkfkgnskhvfnslkfvmkjrdacösle<nvsel,fösfvjmykljc,gkvyndngmbrhjgsr
kjhcae48ovawpovmslövsae       0000000000     jhkfkgnskhvfnslkfvmkjrdacösle<nvsel,fösfvjmykljc,gkvyndngmbrhjgsr
kjhcae48ovawpovmslövsae       0000000000     jhkfkgnskhvfnslkfvmkjrdacösle<nvsel,fösfvjmykljc,gkvyndngmbrhjgsr
kjhcae48ovawpovmslövsae       0000000000     jhkfkgnskhvfnslkfvmkjrdacösle<nvsel,fösfvjmykljc,gkvyndngmbrhjgsr
kjhcae48ovawpovmslövsae       0000000000     jhkfkgnskhvfnslkfvmkjrdacösle<nvsel,fösfvjmykljc,gkvyndngmbrhjgsr
kjhcae48ovawpovmslövsae       0000000000     jhkfkgnskhvfnslkfvmkjrdacösle<nvsel,fösfvjmykljc,gkvyndngmbrhjgsr
kjhcae48ovawpovmslövsae       0000000000     jhkfkgnskhvfnslkfvmkjrdacösle<nvsel,fösfvjmykljc,gkvyndngmbrhjgsr
kjhcae48ovawpovmslövsae       0000000000     jhkfkgnskhvfnslkfvmkjrdacösle<nvsel,fösfvjmykljc,gkvyndngmbrhjgsr
kjhcae48ovawpovmslövsae       0000000000     jhkfkgnskhvfnslkfvmkjrdacösle<nvsel,fösfvjmykljc,gkvyndngmbrhjgsr
kjhcae48ovawpovmslövsae       0000000000     jhkfkgnskhvfnslkfvmkjrdacösle<nvsel,fösfvjmykljc,gkvyndngmbrhjgsr

kjhcae48ovawpovmslövsae 0000000000 jhkfkgnskhvfnslkfvmkjrdacösle将处理数据，以便通过
Input#
将数据读入结构化变量

这包括使用双引号包装字符串

如果不需要任何处理/格式化，请使用而不是
Write

i、 e

谢谢，我解决了我的问题，并将你的回答标记为有用
"kjhcae48ovawpovmslövsae       000000000019   jhkfkgnskhvfnslkfvmkjrdacösle<nvsel,fösfvjmykljc,gkvyndngmbrhjgsr"
"kjhcae48ovawpovmslövsae       000000000019   jhkfkgnskhvfnslkfvmkjrdacösle<nvsel,fösfvjmykljc,gkvyndngmbrhjgsr"
"kjhcae48ovawpovmslövsae       000000000019   jhkfkgnskhvfnslkfvmkjrdacösle<nvsel,fösfvjmykljc,gkvyndngmbrhjgsr"
"kjhcae48ovawpovmslövsae       000000000019   jhkfkgnskhvfnslkfvmkjrdacösle<nvsel,fösfvjmykljc,gkvyndngmbrhjgsr"
"kjhcae48ovawpovmslövsae       000000000019   jhkfkgnskhvfnslkfvmkjrdacösle<nvsel,fösfvjmykljc,gkvyndngmbrhjgsr"
"kjhcae48ovawpovmslövsae       000000000019   jhkfkgnskhvfnslkfvmkjrdacösle<nvsel,fösfvjmykljc,gkvyndngmbrhjgsr"
"kjhcae48ovawpovmslövsae       000000000019   jhkfkgnskhvfnslkfvmkjrdacösle<nvsel,fösfvjmykljc,gkvyndngmbrhjgsr"
"kjhcae48ovawpovmslövsae       000000000019   jhkfkgnskhvfnslkfvmkjrdacösle<nvsel,fösfvjmykljc,gkvyndngmbrhjgsr"
"kjhcae48ovawpovmslövsae       000000000019   jhkfkgnskhvfnslkfvmkjrdacösle<nvsel,fösfvjmykljc,gkvyndngmbrhjgsr"
"kjhcae48ovawpovmslövsae       000000000019   jhkfkgnskhvfnslkfvmkjrdacösle<nvsel,fösfvjmykljc,gkvyndngmbrhjgsr"
"kjhcae48ovawpovmslövsae       000000000019   jhkfkgnskhvfnslkfvmkjrdacösle<nvsel,fösfvjmykljc,gkvyndngmbrhjgsr"

Print #2, strRepMid