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