神马品牌网山东临沂大学图书馆:求在ASP小写转大写
来源：百度文库 编辑：神马品牌网 时间：2024/04/28 02:19:38
打开TEXT1.TXT(里面有给定的小写字母)
然后一次读取一个字符,并转换成大写字母
再写入到一个新文件TEXT2.TXT中
要求:使用FSO完成
急求,请调试通过后再发
请给出完整的程序代码
十分感谢
请给出完整的程序代码
十分感谢
这里要求的是“一次读取一个字符”
就是说：从text1.txt读一个，写一个进text2.txt
直到text1.txt里的字母读完
你是要FSO的代码还是要小写转大写？？？
ASP（特指VBS）里自带了两个函数：
LCase：转成小写
UCase：转成大写
例子：
<%
dim str,str1,str2
str="AbCdEfGHiJkLmnOpQ"
str1=LCase(str)
str2=UCase(str)
Response.write(str1 & "," & str2)
%>
完整的代码（含FSO）
<%
Dim fso,r,content,w
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set r=fso.OpenTextFile(Server.MapPath("text1.txt"))
content = r.ReadAll
Response.Write("<hr>原文：" & content)
r.close
set r=nothing
Set w=fso.CreateTextFile(Server.MapPath("text2.txt"))
content = UCase(content)
w.Write content
w.close
set w=nothing
set fso=nothing
Response.Write("<hr>大写：" & content)
Response.Write("<hr>以上内容已保存到text2.txt")
%>
Sub convert(filename, filename2 )
Dim fso, ts ,str
set fso=server.createobject("scriptting.filesystemobject")
If Not fso.FileExists(filename) Then
Exit Sub
End If
str = fso.OpenTextFile(filename, ForReading).ReadAll
Set ts = fso.CreateTextFile(filename2, True)
ts.Write UCase(str) '大写转换
ts.Close
Set ts = Nothing
Set fso = ntohing
End Sub
ASCII值+32