ben dosya varsa, örneğin sıralı dosyasında belirli çizgileri üzerine çalışıyorum

Question

Çift Tırnak İşareti yazın:

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

Ve ben IDCount olduğunu varsayarsak

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 

üzerine yazmak için bu kodu var 2, metin dosyası şu şekilde giderilir: nasıl olur da bu sorunu giderebilirim? Teşekkür Çok çaylak

Edit duyuyorum:

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

(chr$(34) ayrıca " verir: Açık My Seçenek yüzden

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

Answer 1

4 tırnak ("""") tek tırnak (") kaçış mı)