用VB生成.TXT的文本文件时,里面的内容都用""括起来了,怎么解决?
我不要引号啊!

解决方案 »

  1.   

    Chr(34) & WritStr chr(34)
    例如:'
    '写TEXT文件
    '函数:WritTextFile
    '参数:FileName 目标文件名.WritStr 写到目标的字符串.
    '返回值:成功 返回文件内容.失败  返回""
    '注:如果同名,目标字符串将覆盖原文件内容.
    Public Function WritTextFile(Filename As String, WritStr As String) As Boolean
    '/保存文件
        Dim FileID As Long, ConTents As String
        Dim A As Long, B As Long
        
        On Error Resume Next
        
        FileID = FreeFile
        Open Filename For Output As #FileID
             Print #FileID, chr(34) & WritStr chr(34)
        Close #FileID
        WritTextFile = (Err.Number = 0)
        Err.Clear
    End Function