Haven't written anything in a long while now.
I've probably forgotten more than I ever knew?
I'm trying to polish up a small file stripper that I started a few years ago, and I guess
still think in Quick 4.5.
I'm having problems getting a simple thing like Mid() working. (blush)
Code: Select all
'input file model
' sometimes has a blank first line
'00:00
'transcript text from Youtube videos
'00:04
'alternates a time hack line
'00:06
'then a text line
'00:08
'until end of file
'Declare Function Mid ( ByRef str as String, ByVal start as integer, ByVal n as integer ) as String
Dim txt As string
Dim chx As String
Dim go As String
Dim skip1 As Single
Dim cr1 As Single
Dim LinRed As Single
Dim LinOut As Single
Dim FileIn As String
Dim FileOut As String
Dim As String arg
Dim FileIs As Integer
Dim As Integer i = 1
FileIn = Command(i)
If Len(FileIn) = 0 Then
Print
Print "<Text File Stripper>"
Print
Print " No source file name given"
Print
Print " Strip /? for help"
Print
End
End If
Print "command line argument: "; FileIn
If FileIn = "/?" Then
Print
Print "<Text File Stripper>"
Print
Print " Written by Richard Lamb"
Print " during the solar eclipse - 2017"
Print
Print " Strips time codes from Youtube transcripts"
Print " alternating lines"
Print " first line is time code"
Print " next line is text"
Print
Print " Spaces not allowed in file names!"
Print
Print " Output is written to 'filename'+'.out'"
Print
Print
End
EndIf
FileIs = Open (FileIn For Input As #1)
If FileIs = 0 Then ' file exists
Print "<Text File Stripper>"
Print
Print " Input file: "; FileIn
Print
i = InStr(FileIn,".")
If i > 0 Then
FileOut = Left(FileIn, i-1)+"-out.txt"
Else
FileOut = FileIn + "-out.txt"
EndIf
print
Print " Output file: "; FileOut
Print
Else
Print "<Text File Stripper>"
Print
Print " File Not Found: "; FileIn
Print
Print
end
EndIf
Open FileIn For input As #1
Open FileOut For Output As #2
'see input file format model at beginning of this file
While Not Eof(1)
Line Input #1, txt
chx = mid(txt,3,1) ' looking for colon in time hack
print chx, ' not seeing anything yet . . .
if chx = ":" then ' skip time hack line
else ' this part IS working
' so the IF test is returning false.
LinRed+=1
put #2,, txt
Put #2,, " "
Put #2,, Chr(13)
end if
Wend
Close #1
Close #2
Print "read "; LinRed; " Lines"
Print
Print "ended"
print
Print " cr to close program..."
Go = Input(1)