[vb6.0/vba] [vb6.0/vba] 자막파일에서 텍스트 추출하기
하나를하더라도최선을
2020-01-15 17:01
3,584
0
본문
Sub program1472()
Dim F As String
F = "C:\Users\kkkk7\Desktop\Sicko.2007.1080p.WEB-DL.DD5.1.H.264-TrollHD.smi"
F = ReadText(F)
F = Replace(F, " ", "")
Dim v As Variant, i As Integer
v = Split(F, "<")
For i = 1 To UBound(v)
If InStr(v(i), ">") Then v(i) = Split(v(i), ">")(1)
Next
F = Join(v)
SaveText "C:\Users\kkkk7\Desktop\tem.txt", F
End Sub
Public Function ReadText(Optional FilePath As String = "") As String
If Len(Dir$(FilePath)) = 0 Then Exit Function
Dim FN As Integer, tmp() As Byte
FN = FreeFile
ReDim tmp(FileLen(FilePath) - 1) As Byte
Open FilePath For Binary As #FN
Get #FN, , tmp
Close #FN
ReadText = StrConv(tmp, vbUnicode)
End Function
Public Function SaveText(ByVal FilePath As String, ByVal T As String) As Boolean
On Error GoTo TextERR2
Dim FN As Long
FN = FreeFile()
Open FilePath For Binary Access Write As #FN
Put #FN, , T
Close #FN
If Len(Dir$(FilePath)) Then SaveText = True
TextERR2:
End Function
댓글목록0