vb 高手来看看这个问题怎么解决哦

来源：百度知道 编辑：UC知道 时间：2024/05/15 09:55:18
比如我想在D盘根目录下生成一个121.TXT的文件同时向里面只写入一个英文状态下的双引号("),注意哈是一个不是一对,该怎么才办的到呀

Private Sub Command1_Click()
Open "d:\121.txt" For Output As #1
Print #1, Chr(34)
Close #1
End Sub

dim a as string
a="这是一个引号" & chr$(32) & "."
然后把这个a写进去就是了。
因为chr$(32)相当于引号。
具体用法请查看MSDN。
函数chr是返回对应的ASCII码所对应的字符。

<%
'绝对好用的
'| Example of Call:
CAll Generic_FileWriter("121","txt","""")

function Generic_FileWriter(strFileName,strFileExtension,strFileContent)
Set oFS = CreateObject("scripting.fileSystemObject")
Set oTXS = oFS.OpenTextFile(Server.MapPath(strFileName & "." & strFileExtension),8,True)

oTXS.WriteLine(strFileContent)
oTXS.Close
End function
%>