『楼 主』:
[求助]批量全角转半角
使用 LLM 解释/回答一下
以前收藏一个全角转半角的VBS脚本,但是不能批量操作,发上来,请高手修改下,使之能对整个目录下的文本文档进行操作。谢谢!要是同时能在Emeditor中调用就更好了。
-------------------------------------------------------------------------------------------------
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("原文件.txt",1)
Set objOut = objFSO.CreateTextFile("目的文件OK.TXT",True)
Do Until objFile.AtEndOfStream
text = objFile.Read(1)
if text <> "" then
CALL convertstr(text)
end if
objOut.Write(strCharacters)
Loop
function convertstr(content)
Dim SBC,halfSBC,DBC,halfDBC,QJnum,BJnum
SBC = "ABCDEFGHIJKLMNOPQRSTUVWXYZ'"
halfSBC = "ABCDEFGHIJKLMNOPQRSTUVWXYZ'"
DBC = "abcdefghijklmnopqrstuvwxyz"
halfDBC = "abcdefghijklmnopqrstuvwxyz"
QJnum="0123456789"
BJnum="0123456789"
Dim S(27),hS(27),D(26),hD(26),Qnum(27),Bnum(27)
for i = 1 to 27
S(i-1) = mid(SBC,i,1)
hS(i-1) = mid(halfSBC,i,1)
content = replace(content,S(i-1),hS(i-1))
D(i-1) = mid(DBC,i,1)
hD(i-1) = mid(halfDBC,i,1)
content = replace(content,D(i-1),hD(i-1))
Qnum(i-1) = mid(QJnum,i,1)
Bnum(i-1) = mid(BJnum,i,1)
content = replace(content,Qnum(i-1),Bnum(i-1))
next
content = replace(content,chr(13)&chr(10),"<br>")
content = replace(content," "," ")
contentstr = content
objOut.write ("")
objOut.write(contentstr)
end function
-------------------------------------------------------------------------------------------------
Last edited by bjsh on 2007-7-31 at 11:16 AM ]
|