如何在写入文本文件去掉 "" 和,

Question

用下面的这个函数,Private Function writetxt(content As String)
      Open "c:\1.txt" For Append As #1
            Write #1, content, vbCrLf
         
     Close #1
End Function
结果写到 1.txt里,"650108197510251424","
"
"652201621023068","
"
"650300750723342","
"是这样的形式,  我要去掉里面"" 和 , 我该如何改下面这个函数,能达到去掉 "" 和 , 这样的形式:
650108197510251424
652201621023068
650300750723342

Answer 1

Private Function writetxt(content As String)
      Open "c:\1.txt" For Append As #1
            Print #1, content
         
     Close #1
End Function

Answer 2

Private Function writetxt(content As String)
      Open "c:\1.txt" For Append As #1
      
        Replace content, """", ""
        Replace content, ",", ""
      Print #1, content
         
     Close #1
End Function