VBS 文本歌词粤语拼音翻译

VBS 文本歌词粤语拼音翻译

准备资源：
1、Unicode汉字编码顺序对应汉字的粤语拼音库
2、VBS 文本歌词粤语拼音翻译

拼音库
文本3.txt：

jat1 ding1 丂 cat1 soeng5 ti1 丆 maan6 zoeng6 saam1 soeng5 haa6 gei1 bat1 jyu5 min5 koi3 cau2 cau2 zyun1 ce2 pei1 sai3 sai3 jau1 bing2 jip6 cung4 dung1 si1 sing4 diu1 丠 loeng5 diu1 jau5 loeng5 jim4 bing6 song3 jat1 gau2 go3 aa1 
丬 zung1 丮 丯 fung1 gwaan3 cyun3 caan2 lam4 丵 zyu2 baat3 jyun2 daan1 wai4 zyu2 zeng2 lai6 geoi2 pit3 pit3 乁 ngaai6 naai5 乄 gau2 gau2 tok3 mo1 ji6 乊 zi1 wu1 zaa3 fu4 fat6 lok6 zung3 bing1 bam1 kiu4 fu2 gwaai1 sing4 sing4 jyut6 hou4 jyut6 
mat1 gau2 hat1 jaa5 zaap6 hoeng1 goi3 gau2 乤 乥 syu1 乧 ci2 gei1 kek6 乫 乬 乭 乮 乯 maai5 lyun6 乲 jyu5 乴 zeon3 乶 乷 naa2 gon1 乺 乻 乼 乽 gon1 lyun6 gwai1 gon1 lyun6 亃 ji4 kyut3 liu5 go3 jyu5 zang1 亊 si6 ji6 cuk1 jyu1 kwai1 jyu1 wan4 wu6 
kei4 ng5 zeng2 亖 亗 亘 gang2 ngaa3 se1 ngaa3 亝 ngaa3 gik1 tau4 mong4 kong3 亣 gaau1 hoi6 jik6 caan2 hang1 mau5 亪 hoeng2 ging1 ting4 loeng6 亯 亰 亱 can1 bok3 亴 sit3 taan2 亷 do2 mei5 jan4 亻 zaap6 zaap6 亾 jik1 sam6 jan4 lak6 ding1 
zak1 gan2 buk6 sau4 仈 zoeng2 gam1 gaai3 仌 jing4 cung4 fat6 仐 leon4 仒 cong1 zai2 si6 taa1 zoeng6 fu6 sin1 仚 仛 仜 tung4 jan6 cin1 仠 gaak3 仢 doi6 ling6 ji5 仦 仧 saam1 仩 ji4 仫 mun4 jan6 gaa3 仯 joeng5 仱 zung6 pei2 仴 ng5 gin6 
gaa3 仸 仹 仺 jam6 仼 fan6 仾 fong2 zung1 kei5 伂 jyu4 伄 deon6 伆 伇 sam2 kong3 ji1 kap1 伌 ng5 gei6 fuk6 fat6 jau1 gan3 伓 伔 fu1 伖 zung3 jau1 fo2 wui2 jyu2 ceoi3 cyun4 saan3 wai5 cyun4 伡 ngaa4 jin5 soeng1 coeng1 leon4 caang4 伨 
man1 ngai6 cyu5 伬 jyun4 nou4 baak3 gu2 nei5 nei5 sit3 bun6 伵 ling4 zau6 san1 伹 zi6 ping1 ci5 gaa1 pei1 伿 佀 ji4 佂 din6 佄 佅 daan6 cyu5 bou3 keoi1 佊 佋 ci2 wai2 dai1 zyu6 zo3 jau6 
joeng2 tai2 zim3 ho4 bit1 taa4 se4 jyu4 jat6 fat6 zok3 kau3 ning6 tung4 nei5 sin1 keoi5 jung4 ngaa5 cim1 佦 kaa1 佨 pui3 wui4 佫 lou2 佭 tap1 joeng4 baak3 faat3 佲 gaai1 ji6 bing3 gat1 han2 kut3 gwai2 cyun4 tiu1 gaau2 ci3 jat6 
sai2 jing4 san1 tok3 hon2 zat6 goi1 loi4 ji4 ci2 kwaa2 侊 lai6 侌 si6 侎 zyu1 gwik1 jau6 侒 侓 mau4 侕 leon4 dung6 caa3 侙 seon1 gung1 zau1 ji1 侞 侟 hap6 gaa3 侢 leoi5 侤 hiu1 zing1 zak1 kiu4 kui2 caai4 侫 nung4 侭 mou5 hau4 侰 侱 zan3 co3 侴 cam1 leoi5 guk6 侸 ting2 侺 tyut3 侼 侽 侾 bin6 
俀 jyu5 hai6 cuk1 ngo4 kau4 俆 gwaang6 俈 ng6 zeon3 jap1 俌 loeng4 zo2 ciu3 lei6 jung2 俒 ging3 jin5 俕 俖 zuk6 fu1 hei1 lei5 fu2 ping1 bou2 jyu4 kei4 hap6 seon3 俢 jyu5 俤 俥 cau4 俧 jim5 loeng5 lai6 loi4 si1 gim6 sau1 fu2 俰 keoi1 俲

。。。。。。

以上只有整个库的四十多分之一，需要即前往下载：1.txt

VBS代码：
模块3：

Attribute VB_Name = "模块4"
Sub main()
    Set fs = CreateObject("scripting.filesystemobject")
    Set tsin0 = fs.opentextfile("G:\3.txt", 1, True, -1)    '库
    Set tsin1 = fs.opentextfile("G:\4.txt", 1, True, -1)    '歌词
    Set tsout = fs.opentextfile("G:\5.txt", 8, True, -1)    '输出
    
    Dim strOut
    strOut = ""
    While tsin1.atendofstream <> True
        str1 = tsin1.readline
        For i = 1 To Len(str1)
            C0 = Mid(str1, i, 1)
            c = CLng("&h" & Hex((AscW(C0))))
            
            If c >= 19968 And c <= 40869 Then        '19968 To 40869  '4E00-9FA5   &HFFFF&
                order1 = c - 19967
                Do While tsin0.atendofstream <> True
                    str0 = tsin0.readline
                    strTemp = Split(str0, " ")
                    nn = UBound(strTemp) + 1
                    order1 = order1 - nn
                    If order1 < 0 Then
                        strOut = strOut + strTemp(order1 + nn - 1) + " "
                        Exit Do
                    End If
                Loop
            End If
            tsin0.Close
            Set tsin0 = fs.opentextfile("G:\3.txt", 1, True, -1)    '库
        Next
        tsout.write strOut + Chr(10)
        strOut = ""
    Wend
    tsout.Close
    tsin0.Close
    tsin1.Close
    MsgBox "Nice!"

End Sub

额外操作：
创建文本：4.txt
自己百度获取歌词。
里面保存需要翻译的中文歌词。

【注】文本编码格式均为UCS-2编码格式。