Divx filmelerine alt yazi eklemek icin dosyadan,yaziyi ayiklamak

iste php kodu



Public Sub GetFile(FileName$)
Dim nFilenumber%
Dim tmpLine$
Dim Sayi As Long


YaziSonNo = 0
Sayi = 0
nFilenumber = FreeFile

Open FileName For Input As #nFilenumber

Do While Not EOF(nFilenumber)
Sayi = Sayi + 1
Input #nFilenumber, tmpLine
If Mid(Trim(tmpLine), 1, 1) = "{" Then
ALTYazi(Sayi) = tmpLine
Else
ALTYazi(Sayi - 1) = ALTYazi(Sayi - 1) & " " & tmpLine
Sayi = Sayi - 1
End If
DoEvents
Loop
YaziSonNo = Sayi
Close #nFilenumber
End Sub

Public Sub AltYaziAyikla()

On Error Resume Next
Dim SFra, FFra, Sdiger, Fdiger
Dim metin As String
Dim X, Y As Long
Dim BaslaFra As Boolean
Dim uzunluk
Dim a1, a2, a3, a4
Dim AllAltyazi As String
'Istenilen yere alinabilir istenilirse direk rem den okunulabiliecek kod ile degistirilmelidir..

FrmAltYazi.LstYazi.ListItems.Clear
FrmAltYazi.LstYazi.ColumnHeaders.Clear
FrmAltYazi.LstYazi.ColumnHeaders.Add 1, , "BaslamaFrame", FrmAltYazi.LstYazi.Width / 7.5
FrmAltYazi.LstYazi.ColumnHeaders.Add 2, , "BitisFrame", FrmAltYazi.LstYazi.Width / 7.5
FrmAltYazi.LstYazi.ColumnHeaders.Add 3, , "Metin", FrmAltYazi.LstYazi.Width / 1

For X = 1 To YaziSonNo
' FrmYukle.PB.Value = X
For Y = 1 To Len(ALTYazi(X))
metin = Mid(ALTYazi(X), Y, 1)
'-----------------------------------------------------
If metin = "|" Then
'Yaziyi düzeltiyor..
metin = " "
End If
If metin = "-" Then
'Yaziyi düzeltiyor..
metin = " "
End If
'-------------------------------------------------------
If metin = "{" Then
SFra = SFra & "." & Y
ElseIf metin = "}" Then
FFra = FFra & "." & Y
End If

AllAltyazi = AllAltyazi + metin
DoEvents
Next
If Len(SFra) > 4 Then
a1 = Val(Mid(SFra, 2, 2)) + 1
Else
a1 = Val(Mid(SFra, 2, 1)) + 1
End If
If Len(FFra) > 4 Then
a2 = Val(Mid(FFra, 2, 2))
Else
a2 = Val(Mid(FFra, 2, 1))
End If
uzunluk = a2 - a1
Sdiger = Mid(ALTYazi(X), a1, uzunluk)
If Len(FFra) > 4 Then
a3 = Val(Mid(SFra, 4, 2)) + 1
Else
a3 = Val(Mid(SFra, 4, 1)) + 1
End If
If Len(FFra) > 4 Then
a4 = Val(Mid(FFra, 4, 2))
Else
a4 = Val(Mid(FFra, 4, 1))
End If
uzunluk = a4 - a3

Fdiger = Mid(ALTYazi(X), a3, uzunluk)


Set itmX = FrmAltYazi.LstYazi.ListItems.Add(1, , Sdiger)
FrmAltYazi.LstYazi.ListItems(1).SubItems(1) = Fdiger
'FrmAltYazi.LstYazi.ListItems(1).SubItems(2) = Mid(ALTYazi(X), a4 + 1, Len(ALTYazi(X)))
FrmAltYazi.LstYazi.ListItems(1).SubItems(2) = Mid(AllAltyazi, a4 + 1, Len(AllAltyazi))
'AllAltyazi

'Bydigi.net

Sdiger = ""
Fdiger = ""
a1 = 0
a2 = 0
a3 = 0
a4 = 0
uzunluk = 0
AllAltyazi = ""

SFra = ""
FFra = ""
DoEvents

Next



End Sub



'bu kodlari declare kismina ekleyin..
Global ALTYazi(10000) As String
Global YaziSonNo As Long
Dim itmX As ListView
Public Dosya As String
Public Baslik As String
'Global AnalistFps(1 To 10000) As Dou