我用vb写文件，它自作聪明的给我的字符串加上引号了，怎么去掉阿

[objectman]

谢谢了，我着急。

[penglc]

不太听得懂。 给代码看看是怎么回事？

[rainstormmaster]

不会吧，把代码贴出来

怎么去掉
可用left、mid、right等函数处理

[aalei]

我想你一定是用write写的，write #这个语句是这样的！！
请参考！
Open "text1.txt" For Output #1
Write #1,20,4.5,-30
Write #1,"Visual","Basic","6.0"
Write #1,True,Date,Time
text1.txt内容是:
20,4.5,-30
"Visual","Basic","6.0"
#Ture#,#2003-06-29#,#23:21:22#

[aalei]

我想你一定是用write写的，write #这个语句是这样的！！
请参考！
Open "text1.txt" For Output As #1
Write #1,20,4.5,-30
Write #1,"Visual","Basic","6.0"
Write #1,True,Date,Time
text1.txt内容是:
20,4.5,-30
"Visual","Basic","6.0"
#Ture#,#2003-06-29#,#23:21:22#

[aalei]

如果你不想要“”，你可以用Print #语句！

[objectman]

是这样，我从新浪的发短消息那个网页抠出一段代码，然后做了个发短消息的程序。
其实就是写个html文件，但是不知道为什么我写得html文件一头一尾总会有引号，用left,right也去不掉，顺便说一句，这个方法我以前用vc做过，没问题的。

代码如下
Private Sub Command1_Click()
setparam
type_number = "139112*****"
call_content = "测试短消息"
Dim sHTML As String
sHTML = "<form name='sndfm' method=post action='http://sms.sina.com.cn/cgi-bin/sms/sendto.cgi'>"
sHTML = sHTML + "<tr><td>对方手机号</td></tr>"
sHTML = sHTML + "<input type=hidden name=sname value=''>"
sHTML = sHTML + "<tr><td><input type=hidden name=login value=1><input type=text size=18 class=in01 name=mobile"
sHTML = sHTML + "value='" + typenumber + "></td></tr>"
sHTML = sHTML + "<tr><td><textarea cols=15 rows=2 class=in01 name=msg>" + call_content + "</textarea></td></tr>"
sHTML = sHTML + "<tr><td>手机<input type=text size=14 name=user class=in01 value='133*******'></td></tr>"
sHTML = sHTML + "<tr><td>密码<input type=password size=14 name=passwd class=in01 value='98*****'></td></tr>"
sHTML = sHTML + "<table width=100% border=0 cellpadding=0 cellspacing=0 background=''>"
sHTML = sHTML + "<input type=submit value=' ' "
sHTML = sHTML + "style='background:url('http://image2.sina.com.cn/jiayuan/move/sms/sichg03_off.gif');border-width:0px;width:34px;height:18px' </td></tr>"
sHTML = sHTML + "</table></td></tr>"
sHTML = sHTML + "</form>"

'sHTML = sHTML + "document.tran.submit();"

Open "c:\TESTFILE.htm" For Output Shared As #1
Write #1, sHTML
Close #1

Form1.WebBrowser1.Navigate2 "c:\TESTFILE.htm"
End Sub

[windcandle]

同意aalei(阿磊)的看法。

write语句会自动的给字符串加上引号，使用print语句就没有这个问题了。

[objectman]

OK,现在引号问题解决了，用print就好了，但是这个文档好像发送不出去阿？

[objectman]

ok,文档也发出去了，短消息收到了，谢谢各位，我可以睡觉了。
结铁。