1.LRC歌词文件转换器的功能
2.vb 读取UTF-8编码文本文件
昂达757是全格式的，网上流行的格式基本上都能看，但是分辨率（我们常说的大小）高的，清晰度高的播放时会很卡的。建议rmvb\rm格式的下载600*300以下的。i的下载320*240的。我这里也有转换器，是777的，可以通用。你要是需要你就给我留个言
LRC歌词文件转换器的功能
使用方法：
1 将傻丫头host目录下的uvKAJ.vio文件复制到会声会影安装目录下的VIO目录内。 这样会声会影就可把Sayatoo卡拉字幕精灵生成的Kaj文件当作调用。
2 、用《LRC歌词文件转换器》，在源文件中插入ksc文件－－点击界面上的UTF－－在输出文件中选择utf文件存放的文件夹－－转换；
vb 读取UTF-8编码文本文件
1. LRC转TXT/SRT/SMI/SSA/KSC文件，用于歌词输出，翻唱对照，去时间标签，MV字幕的简易制作；
2. LRC重整理，将重复处的歌词拆分为多行并排序，一目了然；
3. SMI转LRC/SRT/SSA，用于SMI歌词的提取；
4. KSC转LRC/SRT/SSA，用于KSC卡拉OK字幕的转换；
5. SRT转LRC/SSA，用于SRT字幕文件的转换，听**学英语；
6. SSA转LRC/SRT，用于SRT文件的字幕提取；
7. LRC双行合一，用于将两行歌词合并在一行显示；
8. LRC歌词分割，用于将长歌词分割成多行短歌词；
9. LRC同步显示，可在不播放音乐的情况下显示歌词，用于翻唱等；
10. LRC文件合并，可将LRC排序后，合并为TXT文件，方便打印输出；
11. LRC文件制作，可方便制作LRC文件，并可利用本软件轻松转换为其他格式；
12. SRT字幕制作，可方便制作SRT文件，并可利用本软件轻松转换为其他格式；
13. 批量转换功能。
根据反馈，代码已作修改并调试通过：
分二步：
一、建立一个模块，复制下面代码
Option Explicit
Private Declare Function MultiByteToWideChar Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByRef lpMultiByteStr As Any, ByVal cchMultiByte As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long) As Long
Private Const CP_UTF8 = 65001
'读文件至变量
Private Function GetFile(FileName As String) As String
Dim i As Integer, BB() As Byte
If Dir(FileName) = "" Then Exit Function
i = FreeFile
ReDim BB(FileLen(FileName) - 1)
Open FileName For Binary As #i
Get #i, , BB
Close #i
GetFile = BB
End Function
'功能: 把Utf8字符转化成ANSI字符
Public Function UTF8_Decode(FileName As String) As String
Dim sUTF8 As String
Dim lngUtf8Size As Long
Dim strBuffer As String
Dim lngBufferSize As Long
Dim lngResult As Long
Dim bytUtf8() As Byte
Dim n As Long
sUTF8 = GetFile(FileName)
If LenB(sUTF8) = 0 Then Exit Function
On Error GoTo EndFunction
bytUtf8 = sUTF8
lngUtf8Size = UBound(bytUtf8) + 1
lngBufferSize = lngUtf8Size * 2
strBuffer = String$(lngBufferSize, vbNullChar)
lngResult = MultiByteToWideChar(CP_UTF8, 0, bytUtf8(0), _
lngUtf8Size, StrPtr(strBuffer), lngBufferSize)
If lngResult Then
UTF8_Decode = Left(strBuffer, lngResult)
End If
EndFunction:
End Function
二、调用举例：
如果你想把一个"c:\1.txt"的UTF-8文件转换为ANSI编码，可这样调用
dim s as string
s=UTF8_Decode("c:\1.txt") '文件名请根据实际修改
此时，s存放的就是ANSI格式编码了，不会出现乱码问题
