国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁(yè) > 編程 > VBScript > 正文

vbs實(shí)現(xiàn)unicode和ascii編碼轉(zhuǎn)換

2020-06-26 18:40:33
字體:
來(lái)源:轉(zhuǎn)載
供稿:網(wǎng)友
這篇文章主要介紹了vbs實(shí)現(xiàn)unicode和ascii編碼轉(zhuǎn)換,本文同時(shí)介紹了OpenTextFile和CreateTextFile的使用,需要的朋友可以參考下
 

一、Copy a Unicode File to an ANSI File

WiToAnsi.vbs文件:

 

復(fù)制代碼代碼如下:

' Utility to rewrite a Unicode text file as an ANSI text file
' For use with Windows Scripting Host, CScript.exe or WScript.exe
' Copyright (c) 1999, Microsoft Corporation
'
Option Explicit

 

' FileSystemObject.CreateTextFile and FileSystemObject.OpenTextFile
Const OpenAsASCII   = 0
Const OpenAsUnicode = -1

' FileSystemObject.CreateTextFile
Const OverwriteIfExist = -1
Const FailIfExist      = 0

' FileSystemObject.OpenTextFile
Const OpenAsDefault    = -2
Const CreateIfNotExist = -1
Const FailIfNotExist   = 0
Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8

Dim argCount:argCount = Wscript.Arguments.Count
If argCount > 0 Then If InStr(1, Wscript.Arguments(0), "?", vbTextCompare) > 0 Then argCount = 0
If (argCount = 0) Then
    Wscript.Echo "Utility to copy Unicode text file to an ANSI text file." &_
        vbNewLine & "The 1st argument is the Unicode text file to read" &_
        vbNewLine & "The 2nd argument is the ANSI text file to write" &_
        vbNewLine & "If the 2nd argument is omitted, the Unicode file will be replaced"
    Wscript.Quit 1
End If

Dim inFile, outFile, inStream, outStream, inLine, FileSys, WshShell
If argCount > 1 Then
    outFile = Wscript.Arguments(1)
    inFile  = Wscript.Arguments(0)
Else
    outFile = Wscript.Arguments(0)
    inFile  = outFile & ".tmp"
    Set WshShell = Wscript.CreateObject("Wscript.Shell")
    WshShell.Run "cmd.exe /c copy " & outFile & " " & inFile, 0, True
End If

Set FileSys = CreateObject("Scripting.FileSystemObject")
Set inStream  = FileSys.OpenTextFile(inFile, ForReading, FailIfNotExist, OpenAsDefault)
Set outStream = FileSys.CreateTextFile(outFile, OverwriteIfExist, OpenAsASCII)
Do
    inLine = inStream.ReadLine
    outStream.WriteLine inLine
Loop Until inStream.AtEndOfStream
inStream.Close
outStream.Close
If argCount = 1 Then WshShell.Run "cmd.exe /c del " & inFile, 0

 

批處理中調(diào)用:

復(fù)制代碼代碼如下:

cscript WiToAnsi.vbs [path to Unicode file][path to ANSI file]

 

二、Copy a ANSI File to an Unicode File

只需對(duì)OpenTextFile和CreateTextFile的打開(kāi)方式做調(diào)整即可。

三、參考

http://msdn.microsoft.com/en-us/library/aa368046%28VS.85%29.aspx

四、OpenTextFile和CreateTextFile的使用

CreateTextFile 方法

創(chuàng)建指定文件并返回 TextStream 對(duì)象,該對(duì)象可用于讀或?qū)憚?chuàng)建的文件。

復(fù)制代碼代碼如下:

object.CreateTextFile(filename[, overwrite[, unicode]])

 

參數(shù)

object

必選項(xiàng)。應(yīng)為 FileSystemObject 或 Folder 對(duì)象的名稱。

filename

必選項(xiàng)。字符串表達(dá)式,指明要?jiǎng)?chuàng)建的文件。

overwrite

可選項(xiàng)。Boolean 值指明是否可以覆蓋現(xiàn)有文件。如果可覆蓋文件,該值為 True;如果不能覆蓋文件,則該值為 False 。如果省略該值,則不能覆蓋現(xiàn)有文件。

unicode

可選項(xiàng)。Boolean 值指明是否以 Unicode 或 ASCII 文件格式創(chuàng)建文件。如果以 Unicode 文件格式創(chuàng)建文件,則該值為 True;如果以 ASCII 文件格式創(chuàng)建文件,則該值為 False。如果省略此部分,則假定創(chuàng)建 ASCII 文件。

OpenTextFile 方法

打開(kāi)指定的文件并返回一個(gè) TextStream 對(duì)象,可以讀取、寫(xiě)入此對(duì)象或?qū)⑵渥芳拥轿募?/p>

復(fù)制代碼代碼如下:

object.OpenTextFile(filename[, iomode[, create[, format]]])

 

參數(shù)

object

必選項(xiàng)。應(yīng)為 FileSystemObject 對(duì)象的名稱。

filename

必選項(xiàng)。字符串表達(dá)式,指明要打開(kāi)的文件名稱。

iomode

可選項(xiàng)。輸入/輸出模式,是下列三個(gè)常數(shù)之一:ForReading,F(xiàn)orWriting,或 ForAppending。

create

可選項(xiàng)。Boolean 值,指出當(dāng)指定的 filename 不存在時(shí)是否能夠創(chuàng)建新文件。允許創(chuàng)建新文件時(shí)為 True,否則為 False。默認(rèn)值為 False。

format

可選項(xiàng)。三個(gè) Tristate 值之一,指出以何種格式打開(kāi)文件。若忽略此參數(shù),則文件以 ASCII 格式打開(kāi)。

設(shè)置

iomode 參數(shù)可為下列設(shè)置之一:

 

數(shù) 描述
ForReading 1 以只讀模式打開(kāi)文件。不能對(duì)此文件進(jìn)行寫(xiě)操作。
ForWriting 2 以只寫(xiě)方式打開(kāi)文件。不能對(duì)此文件進(jìn)行讀操作。
ForAppending 8 打開(kāi)文件并在文件末尾進(jìn)行寫(xiě)操作。

 

format 參數(shù)可為下列設(shè)置之一:

 

常數(shù) 描述
TristateUseDefault -2 以系統(tǒng)默認(rèn)格式打開(kāi)文件。
TristateTrue -1 以 Unicode 格式打開(kāi)文件。
TristateFalse  0 以 ASCII 格式打開(kāi)文件。
 

發(fā)表評(píng)論 共有條評(píng)論
用戶名: 密碼:
驗(yàn)證碼: 匿名發(fā)表
主站蜘蛛池模板: 榆中县| 彰化市| 青铜峡市| 平罗县| 萨迦县| 竹山县| 磴口县| 韶关市| 山丹县| 吴江市| 永嘉县| 孙吴县| 怀安县| 隆林| 军事| 班戈县| 沾化县| 宁波市| 玛纳斯县| 东平县| 崇文区| 腾冲县| 东港市| 西盟| 福清市| 贞丰县| 安徽省| 伊川县| 盐亭县| 乌海市| 平阴县| 天等县| 福贡县| 天等县| 清徐县| 太和县| 洞头县| 隆林| 菏泽市| 佛学| 苍溪县|