如何利用VBA替换文本文件中的中文标点为英文标点？

作者：绿色风分类：时间：2022-08-17 浏览：103

楼主 amulee	Q：如何利用VBA替换文本文件中的中文标点为英文标点？ A：最近下载了几个英文原版小说，放在手机里看。但发现里面的标点符号均为中文全角格式，看起来很不舒服。于是在记事本里操作替换，速度实在难以接受，Word中替换也非常麻烦。于是写了以下代码，可以实现快速替换。 Sub 替换() Dim FS As Integer Dim StrTemp As String Dim FName As String Dim FNameNew As String Dim Arr(1 To 2, 1 To 6) As String Dim i As Integer FName = ThisWorkbook.Path & Application.PathSeparator & "Word.txt" FNameNew = ThisWorkbook.Path & Application.PathSeparator & "WordNew.txt" '定义数组 Arr(1, 1) = "“" Arr(2, 1) = """" Arr(1, 2) = "”" Arr(2, 2) = """" Arr(1, 3) = "‘" Arr(2, 3) = "'" Arr(1, 4) = "’" Arr(2, 4) = "'" Arr(1, 5) = "：" Arr(2, 5) = ":" Arr(1, 6) = "；" Arr(2, 6) = ";" '读取文本文件 FS = FreeFile Open FName For Input As #FS Input #FS, StrTemp Close #FS '替换文本 For i = 1 To UBound(Arr, 2) StrTemp = Replace(StrTemp, Arr(1, i), Arr(2, i)) Next i '写入文本文件 FS = FreeFile Open FNameNew For Output As #FS Print #FS, StrTemp Close #FS End Sub 批量替换Txt文件.rar
2楼 bluexuemei	学习阿木的读取文本文件和写入文本文件的方法!
3楼 supersudda	蛮实用的，支持楼主的分享

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表