Sub WriteFile(FileName As String, StrTxt As String) Open FileName For Binary As FileNo FileLen = LOF(FileNo) Seek #FileNo, FileLen + 1 Put #FileNo, , StrTxt & "<·>" & FileLen Close FileNo End SubFunction ReadFile(FileName As String) As String Dim FileStr As String Dim Lyric As String Dim Mp3Len As Long Dim Strtmp As String Open FileName For Binary As FileNo FileLen = LOF(FileNo) FileStr = Space(FileLen) Get #FileNo, , FileStr Strtmp = "" MyStrs = Split(FileStr, "<·>") For Each Strs In MyStrs If Strtmp = "" Then Strtmp = Strs Else Mp3Len = Val(Strs) End If NextSeek #FileNo, Mp3Len + 1 FileStr = Space(FileLen - Mp3Len) Get #FileNo, , FileStrLyric = "" MyStrs = Split(FileStr, "<·>") For Each Strs In MyStrs If Lyric = "" Then Lyric = Strs End If Next Close FileNo ReadFile = Lyric End Function上面一个写。下面一个读
Open FileName For Binary As FileNo
FileLen = LOF(FileNo)
Seek #FileNo, FileLen + 1
Put #FileNo, , StrTxt & "<·>" & FileLen
Close FileNo
End SubFunction ReadFile(FileName As String) As String
Dim FileStr As String
Dim Lyric As String
Dim Mp3Len As Long
Dim Strtmp As String
Open FileName For Binary As FileNo
FileLen = LOF(FileNo)
FileStr = Space(FileLen)
Get #FileNo, , FileStr
Strtmp = ""
MyStrs = Split(FileStr, "<·>")
For Each Strs In MyStrs
If Strtmp = "" Then
Strtmp = Strs
Else
Mp3Len = Val(Strs)
End If
NextSeek #FileNo, Mp3Len + 1
FileStr = Space(FileLen - Mp3Len)
Get #FileNo, , FileStrLyric = ""
MyStrs = Split(FileStr, "<·>")
For Each Strs In MyStrs
If Lyric = "" Then
Lyric = Strs
End If
Next
Close FileNo
ReadFile = Lyric
End Function上面一个写。下面一个读
看来你一早就做过一个,FileNo是全局变量吧?你应该指出,并定义的,起码在这个情况下,呵呵:
dim FileNo as integer
文件号而已。好象这里都不是水平很底的。这点东西应该没问题的。
看看 http://www.id3.com 的文档再耍帅吧。
我就是听说过这方面的信息,但不知具体情况。如果我要用VB把歌词写进去,我应该怎样做??