Home

@devixl

Ziet er cewl uit! als je hulp nodig hebt hoor ik het graag, ben altijd wel in voor wat uitdagingen :-)

[Status Update]

De import van de subs werkt nu, en het bewerken verloopt prima.
Het was behoorlijk uitzoeken om de srt index te vertalen naar code.

Hieronder zie het stukje code, hier moet nog wat debugging bij gebeuren en ook de fouten melden etc.

Dim f as FolderItem
Dim srtinput as TextInputStream
Dim rowfromfile,output,outputb,outputtekst as string
Dim linecount,index,total as integer
Dim result as integer

f = GetOpenFolderItem(".srt"

Linecount = 1
index = 0

Listbox1.DeleteAllRows

If f <> Nil Then
srtInput = f.OpenAsTextFile
Do
rowFromFile=srtinput.ReadLine
if rowfromfile=str(linecount) then

output = str(linecount)

end if
rowfromfile = srtinput.ReadLine
result = InStr(0,rowfromfile,"-->"
if result >0 then
outputb = rowfromfile
else
outputb = "FOUT"
end if
rowfromfile = srtinput.ReadLine
while rowfromfile <> ""
outputtekst = outputtekst + rowfromfile + chr(124)

rowfromfile = srtinput.ReadLine
wend
listbox1.AddRow(""
listbox1.cell(index,0) = output
Listbox1.cell(index,1) = outputb
Listbox1.cell(index,2) = outputtekst
linecount = linecount + 1
index = index + 1
outputtekst = ""
Loop Until srtinput.EOF
srtInput.Close

total = listBox1.ListCount
MsgBox str(total)
End If

@ Djredmar
Ik heb toch gekozen voor REALBASIC. mocht je mee willen helpen graag, contact me via PM.

Binnenkort post ik wat screenshots.

Het lijkt erg op basic... maar ik vind de code erg omslachtig?

While not objFile.EOF
strLine = objjFile.Readline
if IsNumericLeft(strLine, 1)) Then
new subline start
== ==
==
Wend

etc...

Kun je aangeven wat je nog moet inrichten? dan wil ik daar in de paar avonduurtjes die ik heb best wel wat sleutelen.

Omslachtig ? deze code parsed zeer snel een srt file, zelfs 0,01 sec duurt het om een srt te parsen in een listbox. Dat is SNEL !

wrm een list box? dat is lastiger overzicht.. een grid zou fijner zijn.. tip je kan afkijken bij subtitle workshop..

Ik heb een listbox die je als class kan gebruiken, waarmee je het dus kan uit laten zien als een Grid, dus erop klikken en edit maar.

Verder komen er in de colommen ratings sterren etc.. Wordt erg vet !

ik w8 tot je screenshots om een beter beeld te krijgen

keep up the good work!

het ging maar over het idee, ben er nooit ingedoken daar omdat het veelal spaanstalig is.

Plz check http://www.bierdopje.com/forum/vertaling-wip/topic/128-Welkom-in-Work-in-Progress before continuing... anders doe je werk voor nix