'se preia directorul aplicatiei
Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
Dim outFileWeb
Dim outfWeb
'WScript.Echo directorAplicatie
'se citesc parametrii de apelare
Set objArgs = WScript.Arguments
For i = 0 to objArgs.Count - 1
WScript.Echo objArgs(i)
Next
caleDeLucru = objArgs(0)
prefixCarte = objArgs(1)
numarCarti = objArgs(2)
coloanaVerset = objArgs(3)
directorAplicatie = objArgs(4)
adresaSite = objArgs(5)
directorSite = objArgs(6)
numeBiblie = objArgs(7)
limbaTitluri = objArgs(8)
aliniere = objArgs(9)
unl = objArgs(10)
servicii = objArgs(11)
credits = objArgs(12)
directorCarte = caleDeLucru '& "\" & prefixCarte
directorCarteWeb = caleDeLucru & "\web\" & prefixCarte
prefixCarte1 = Replace(prefixCarte, "\", "/")
'prefixCarte = Replace(prefixCarte, "\", "")
nume = Replace(prefixCarte, "\", "_") & ".txt" ' & "Bible.txt"
Dim fso, f1, ts, s
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
Set fso = CreateObject("Scripting.FileSystemObject")
If aliniere = "Right" Then
Set outFile1 = fso.GetFile(directorAplicatie & "\web\" & "\index.php")
Set outf1 = outFile1.OpenAsTextStream(ForReading, TristateUseDefault)
index_php = outf1.ReadAll
outf1.Close
Set outFile1 = fso.GetFile(caleDeLucru & "\web\" & prefixCarte & "\index.php")
Set outf1 = outFile1.OpenAsTextStream(ForWriting, TristateUseDefault)
outf1.WriteLine Replace(index_php, "left", "right")
outf1.Close
End If
'Se citeste limba titlurilor pentru interfata web
Redim cartiWeb(200)
Set inFileTitluri = fso.GetFile(directorAplicatie & "\books\" & limbaTitluri & ".txt")
Set infTitluri = inFileTitluri.OpenAsTextStream(ForReading, TristateUseDefault)
MyString = infTitluri.ReadAll
MyString = Replace(MyString, Chr(239) & Chr(187) & Chr(191), "")
books = Split(MyString, vbCrLf)
nrBooksTitluri = 0
For Each valoare in books
If InStr(valoare,Chr(9)) Then
book = Split(valoare,Chr(9))
If isNumeric(book(0)) Then
cartiWeb(book(0)) = book(1)
' WScript.Echo carti(book(0)) & " " & book(0)
nrBooksTitluri = nrBooksTitluri + 1
End If
End If
Next
infTitluri.Close
'Sub conversion(nume, caleDeLucru, numarCarti)
Dim nrBooksWeb
nrBooksWeb = 0
Dim inFileConfigPHP, infConfigPHP, inFileIndexPHP, infIndexPHP, fileTitles
fso.CreateTextFile directorCarteWeb & "\titles.txt"
Set fileTitles = fso.GetFile(directorCarteWeb & "\titles.txt")
Set fTitles = fileTitles.OpenAsTextStream(ForWriting, TristateUseDefault)
Set inFileConfigPHP = fso.GetFile(directorCarteWeb & "\config.php")
Set infConfigPHP = inFileConfigPHP.OpenAsTextStream(ForReading, TristateUseDefault)
MyConfigPHP = infConfigPHP.ReadAll
infConfigPHP.Close
Set infConfigPHP = inFileConfigPHP.OpenAsTextStream(ForWriting, TristateUseDefault)
MyConfigPHP = Replace(MyConfigPHP,"$CALE_SITE", adresaSite & "ebooks/www/" & prefixCarte1 & "/")
MyConfigPHP = Replace(MyConfigPHP,"$CALE_DIRECTOR", directorSite & "www/" & prefixCarte1 & "/")
MyConfigPHP = Replace(MyConfigPHP,"$NUME_BIBLIE", numeBiblie)
infConfigPHP.WriteLine MyConfigPHP
Dim MyString, MyArray, Msg
Dim nrBooks
nrBooks = 200
ReDim bookNames(nrBooks), bookNrChapters(nrBooks), bookShortNames(nrBooks)
Redim carti(200)
' MsgBox directorAplicatie & "\books\" & limbaTitluri & ".txt"
Set inFile = fso.GetFile(directorAplicatie & "\unl\" & unl)
' Set inFile = fso.GetFile(directorAplicatie & "\unl.txt")
Set inf = inFile.OpenAsTextStream(ForReading, TristateUseDefault)
MyString = inf.ReadAll
MyString = Replace(MyString, Chr(239) & Chr(187) & Chr(191), "")
books = Split(MyString, vbCrLf)
nrBooks = 0
For Each valoare in books
If InStr(valoare,Chr(9)) Then
book = Split(valoare,Chr(9))
If isNumeric(book(0)) Then
' carti(book(0)) = book(1)
nrBooks = nrBooks + 1
' WScript.Echo carti(book(0)) & " " & book(0)
bookID = book(0)
bookName = book(1)
bookShortName = book(2)
bookNrChapter = book(3)
bookNames(bookID) = bookName
bookNrChapters(bookID) = bookNrChapter
bookShortNames(bookID) = bookShortName
WScript.Echo bookID & " " & bookNames(bookID) & " " & bookNrChapters(bookID) & " " & bookShortNames(bookID)
End If
End If
Next
inf.Close
' nume = Worksheets("Collections").Range("A5").Value
fso.CreateTextFile directorCarte & "\" & prefixCarte & "\" & Replace(prefixCarte, "\", "_") & ".thml", True
Set outFile = fso.GetFile(directorCarte & "\" & prefixCarte & "\" & Replace(prefixCarte, "\", "_") & ".thml")
Set outf = outFile.OpenAsTextStream(ForWriting, TristateUseDefault)
'outF.Writeline "Hello World"
'outF.WriteBlankLines (1)
WScript.Echo directorCarte & "\" & prefixCarte & "\" & nume
Set inFile = fso.GetFile(directorCarte & "\" & prefixCarte & "\" & nume)
Set inf = inFile.OpenAsTextStream(ForReading, TristateUseDefault)
Msg = "" & vbCrLf _
& "Holy Bible
" & vbCrLf _
& "Romanian Translation
"
Msg = Replace(Msg, "'", Chr(34))
outf.WriteLine Replace(Msg, "
", vbCr)
semn = 0
bookIDAnte = 0
Do While Not inf.AtEndOfStream
MyString = inf.ReadLine
'StdOut.WriteLine "Line " & (StdIn.Line - 1) & ": " & Str
' MyString = Replace(MyString, Chr(239), "")
' MyString = Replace(MyString, Chr(187), "")
' MyString = Replace(MyString, Chr(191), "")
'If InStr(1, MyString, "#") = 0 And MyString <> "" Then
If Left(MyString, 1) <> "#" And MyString <> "" Then
'fara diacritice
'MyString = Replace(MyString, "ă", "a")
'MyString = Replace(MyString, "Ă", "A")
'MyString = Replace(MyString, "î", "i")
'MyString = Replace(MyString, "Î", "I")
'MyString = Replace(MyString, "â", "a")
'MyString = Replace(MyString, "Â", "A")
'MyString = Replace(MyString, "ş", "s")
'MyString = Replace(MyString, "Ş", "S")
'MyString = Replace(MyString, "ţ", "t")
'MyString = Replace(MyString, "Ţ", "T")
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.
MyArray(0) = Replace(MyArray(0), Chr(239) & Chr(187) & Chr(191), "")
MyArray(0) = Replace(MyArray(0), "O", "")
MyArray(0) = Replace(MyArray(0), "N", "")
MyArray(0) = Replace(MyArray(0), "A", "")
bookID = Int(MyArray(0))
chapterID = Int(MyArray(1))
verseID = Int(MyArray(2))
Verse = MyArray(coloanaVerset)
prevbook = ""
nextbook = ""
prefbook = ""
If verseID = 1 Then
temp1 = bookShortNames(bookID) & "/" & chapterID & "/" & Replace(Verse, Chr(34), "'") & vbCrLf
fTitles.Write Replace(temp1, "
","")
End If
If verseID = 1 Then
If chapterID = 1 Then 'First chapter
If bookID = 1 Then 'First chapter from Genesis
prevbook = "i"
nextbook = bookShortNames(bookID) & "." & (1)
semn = 1
ElseIf bookID = numarCarti Then 'Revelation
prevbook = bookShortNames(bookID - 1) & "." & bookNrChapters(bookID - 1)
nextbook = "i"
prefbook = "
If previtem <> "" Then
Msg = prefitem & " "
outf.WriteLine Replace(Msg, "Chapter " _
& chapterID & "
" & vbCrLf _
& "
", vbCr)
End If
'
", vbCr)
'If verseID = 1 Then
' Msg = "