• 쇼핑몰
  • 커뮤니티
  • 북마크

vb6.0/vba




[vb6.0/vba] [vb6.0/vba] 자막파일에서 텍스트 추출하기

하나를하더라도최선을
2020.01.15 17:01 746 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) - 1As Byte
    Open FilePath For Binary As #FN
        Get #FN, , tmp
    Close #FN
    ReadText = StrConv(tmp, vbUnicode)
End Function
 
Public Function SaveText(ByVal FilePath As StringByVal T As StringAs 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

등록된 댓글이 없습니다.