【分享】Android Studio专用文件转换工具:把ANSI文件批量另存为无BOM的UTF-8文件
2015-11-28 18:16
579 查看
【分享】Android Studio专用文件转换工具:把ANSI文件批量另存为无BOM的UTF-8文件
在Andoird Studio下编译java文件时,经常会出现像下面的错误:Error:(29, 43) 閿欒: 缂栫爜UTF-8鐨勪笉鍙槧灏勫瓧绗?
在这里,分享一个工具:ANSI文件批量另存为无BOM的UTF-8文件:
把下面代码用记事本存为AndroidStudioJava编码.vbs,双击即可使用:
on error resume next
Set WshShell=WScript.CreateObject("Shell.Application")
dirPath=WshShell.BrowseForFolder(0, "请选择路径", 0, "").items().item().path
if right(dirPath,1)<>"\" then dirPath=dirpath&"\"
ma=inputbox("请输入要转换为的编码","","UTF-8")
if ma="" or dirPath="\" or msgbox("在使用前请确认已备份文件夹"&dirPath,1)=2 then WScript.Quit
'遍历文件夹下的文件
Set FSO = CreateObject("scripting.filesystemobject")
Set f = FSO.GetFolder(dirPath)
Set fs = f.files
For Each fileN in fs
FN=dirPath&fileN.name&""
if ".java"=lcase(right(FN,5)) then Call WriteToFile2(FN, ReadFile(FN, "ANSI_X3.4-1986"), ma)
Next
Set FSO = Nothing
wscript.echo "全部成功"
'检测文件的编码
Function CheckCode (FileUrl)
Dim slz
set slz = CreateObject("Adodb.Stream")
slz.Type = 1
slz.Mode = 3
slz.Open
slz.Position = 0
slz.Loadfromfile FileUrl
Bin=slz.read(2)
if AscB(MidB(Bin,1,1))=&HEF and AscB(MidB(Bin,2,1))=&HBB Then
Codes="UTF-8"
elseif AscB(MidB(Bin,1,1))=&HFF and AscB(MidB(Bin,2,1))=&HFE Then
Codes="Unicode"
else
Codes="ANSI"
end if
slz.Close
set slz = Nothing
'wscript.echo Codes
CheckCode=Codes
End Function
'以指定的编码读取文件
Function ReadFile(FileUrl, CharSet)
On Error Resume Next
Dim Str
Set stm = CreateObject("Adodb.Stream")
stm.Type = 2
stm.mode = 3
stm.charset = CharSet
stm.Open
stm.loadfromfile FileUrl
Str = stm.readtext
stm.Close
Set stm = Nothing
'wscript.echo Str
ReadFile = Str
End Function
'以指定的编码写文件
Function WriteToFile (FileUrl, Str, CharSet)
On Error Resume Next
Set stm = CreateObject("Adodb.Stream")
stm.Type = 2
stm.mode = 3
stm.charset = CharSet
stm.Open
stm.WriteText Str
stm.SaveToFile FileUrl, 2
stm.flush
stm.Close
Set stm = Nothing
End Function
Function WriteToFile2 (FileUrl, Str, CharSet)
On Error Resume Next
Set stm = CreateObject("Adodb.Stream")
stm.Type = 2
stm.mode = 3
stm.charset = CharSet
stm.Open
stm.WriteText Str
stm.Position = 3
Set newStream = CreateObject("Adodb.Stream")
newStream.mode = 3
newStream.Type = 1
newStream.Open()
stm.CopyTo(newStream)
newStream.SaveToFile FileUrl,2
stm.flush
stm.Close
Set stm = Nothing
newStream.flush
newStream.Close
Set newStream = Nothing
End Function
相关文章推荐
- Android验证码简单设计
- Activity 生命周期回顾 onSaveInstanceState()
- Android逆向之旅---静态分析技术来破解Apk
- android生命周期:activity
- Android兼容性问题 -- RelativeLayout.mesure()出现NullPointerException异常
- Android自定义view以及组合view
- android MotionEvent
- Android开发中getleft和getX,getRawX的区别
- Android开源BezierView:仿QQ未读消息99+条的红色气泡
- android学习3——长宽的单位问题dp,px,dpi
- Android 屏幕水平、垂直使用不同的布局xml文件
- Android dialog使用总结
- Android学习笔记-ScollView实现QQ消息界面滑动效果
- Android中关于横竖屏问题
- LinearLayout的layout_weight的使用
- android桌面组件开发
- AndroidRobot目前已经开源了
- Android获取URI的绝对路径的类
- Android 使用模板生成Word文档,支持手机直接查看word
- android launcher3修改内置的系统图标显示