写双引号

Question

我正在尝试覆盖顺序文件中的特定行 例如，如果文件有：

"1"
"Kii"
"Kii"
"Kii"
"Kii"
"2"
"Troy Martinez"
"Edoy"
"Edoy"
"69"
"3"
"Snoop Dogg"
"Weed"
"President Troy"
"420"

我有这个代码要覆盖

Private Sub OverWrite()
    Dim Count As Integer

    On Error GoTo ErrSub

    LineCount = 1
    Open App.Path & "\Data.txt" For Input As #1
    Do While Not EOF(1)
        If LineCount < ((IDCount - 1) * 5) + 1 Or LineCount >= (IDCount * 5) + 1 Then
            For Count = 0 To 4
                Input #1, TextTemp
                FileText = FileText & """ & Text1(Count) & """ & vbCrLf
                LineCount = LineCount + 1
            Next Count
        Else
            For Count = 0 To 4
                Input #1, TextTemp
                FileText = FileText & """ & TextTemp & """ & vbCrLf
                LineCount = LineCount + 1
            Next Count
        End If
    Loop
    Close
    Open App.Path & "\Data.txt" For Output As #1
    Print #1, FileText
    Close
ErrSub:
    Resume Next
End Sub

假设我的IDCount为2，则文本文件变为

" & Text1(Count) & "
" & Text1(Count) & "
" & Text1(Count) & "
" & Text1(Count) & "
" & Text1(Count) & "
" & TextTemp & "
" & TextTemp & "
" & TextTemp & "
" & TextTemp & "
" & TextTemp & "
" & Text1(Count) & "
" & Text1(Count) & "
" & Text1(Count) & "
" & Text1(Count) & "
" & Text1(Count) & "

我该如何解决这个问题？谢谢 我非常高兴

编辑：我的选项明确是

Option Explicit
    Dim IDCount As Integer
    Dim LineCount As Integer
    Dim FileText As String
    Dim TextTemp

Answer 1

4引号（""""）转义单引号（"）所以：

FileText = FileText & """" & Text1(Count) & """" & vbCrLf

（chr$(34)也输出"）