Dim fso, f1, ts, s Const ForReading = 1, ForWriting = 2, ForAppending = 8 Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0 Set fso = CreateObject("Scripting.FileSystemObject") Dim WshShell Set WshShell = WScript.CreateObject("WScript.Shell") directorAplicatie = WshShell.CurrentDirectory Dim InputFile Dim OutputFile Set objArgs = WScript.Arguments For i = 0 to objArgs.Count - 1 WScript.Echo objArgs(i) Next FileName = objArgs(0) coloanaVerset = objArgs(1) fso.CreateTextFile directorAplicatie & "\" & FileName & ".txt" Set outFile = fso.GetFile(directorAplicatie & "\" & FileName & ".txt") Set outf = outFile.OpenAsTextStream(ForWriting, TristateFalse) Set inFileText = fso.GetFile(directorAplicatie & "\bibles\" & FileName & ".txt") Set infText = inFileText.OpenAsTextStream(ForReading, TristateUseDefault) prevBook = "" bookID = 0 Do While Not infText.AtEndOfStream MyString = infText.ReadLine If InStr(1, MyString, "#") = 0 And MyString <> "" Then MyArray = Split(MyString, Chr(9) & "", -1, 0) ' MyArray(0) contains Book number. ' MyArray(1) contains Chapter number. ' MyArray(2) contains Verse number. ' MyArray(3) contains Verse. bookID = Int(MyArray(0)) chapterID = Int(MyArray(1)) verseID = Int(MyArray(2)) Verse = MyArray(coloanaVerset) If verseID = 1 Then outf.Write bookID & "/" & chapterID & "/" & Verse & vbCrLf End IF ' outf.Write verseID & ". " & Verse & Chr(9) & vbCrLf End If Loop outf.Close