在ASP中从a读出写入b文件出现很多的?号,何解?

netZL 2003-04-16 11:06:56
<%
SET fs=Server.CreateObject("Scripting.FileSystemObject")

strFileInfo10=replace(strFileInfo9,".txt",".bak")
fs.CopyFile strFileInfo9,strFileInfo10

Set a=fs.OpenTextFile(strFileInfo10,1)
Set b = fs.CreateTextFile(strFileInfo9, True)

Do While Not a.AtEndOfLine
tmpRow = a.ReadLine
strRow=replace(tmpRow,"</menu>","<h>h</h></menu>")
b.WriteLine(strRow)
Loop

b.Close
a.Close
set b=nothing
set a=nothing
set fs=nothing
%>
a的第一行为“<menu>”
1、写入b后为“?menu>”
2、a中“夹",件",档",统"”在b中被换为?
去掉“夹,件,档,统”后就只有第一个问题
请大侠帮忙!!
...全文
60 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
netZL 2003-04-16
  • 打赏
  • 举报
回复
<%
SET fs=Server.CreateObject("Scripting.FileSystemObject")

Set a=fs.OpenTextFile(a.txt)
Set b = fs.CreateTextFile(b.txt)

Do While Not a.AtEndOfLine
tmpRow = a.ReadLine
strRow=replace(tmpRow,"</menu>","<menuitem name=""test2""></menuitem></menu>")
b.WriteLine(strRow)
%>
Loop

b.Close
a.Close
set b=nothing
set a=nothing
set fs=nothing
netZL 2003-04-16
  • 打赏
  • 举报
回复
A文件
<menu>
<menuitem name="我的文件夹"></menuitem>
<menuitem name="退出系统"></menuitem>
</menu>
B文件(执行后)
锘?menu>
<menuitem name="鎴戠殑鏂囦欢澶?></menuitem>
<menuitem name="閫€鍑虹郴缁?></menuitem>
<menuitem name="test2"></menuitem>
</menu>
netZL 2003-04-16
  • 打赏
  • 举报
回复
以 Unicode 的方式打开
写入B是乱码:(
tigerwen01 2003-04-16
  • 打赏
  • 举报
回复
把Set a=fs.OpenTextFile(strFileInfo10,1)
改为
Set a=fs.OpenTextFile(strFileInfo10,1,true,TristateTrue)'以 Unicode 的方式打开.
netZL 2003-04-16
  • 打赏
  • 举报
回复
试了,不好使:(
sinzy 2003-04-16
  • 打赏
  • 举报
回复
可能是编码问题
Set a=fs.OpenTextFile(strFileInfo10,1)
Set b = fs.CreateTextFile(strFileInfo9, True)

改为
Set a=fs.OpenTextFile(strFileInfo10,1,True,-2)
Set b = fs.CreateTextFile(strFileInfo9, True)

28,404

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧