Dim fso, f1, ts, s Const ForReading = 1, ForWriting = 2, ForAppending = 8 Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0 Set fso = CreateObject("Scripting.FileSystemObject") 'se preia directorul aplicatiei Dim WshShell Set WshShell = WScript.CreateObject("WScript.Shell") '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) indice = objArgs(2) caleSite = objArgs(3) limbaMeniuri = objArgs(4) limbaTitluri = objArgs(5) directorAplicatie = objArgs(6) numeBiblie = objArgs(7) FLAG = objArgs(8) directorCarte = caleDeLucru & "\" & prefixCarte 'se interpreteaza 'citire nume carti Redim carti(200) ' MsgBox directorAplicatie & "\books\" & limbaTitluri & ".txt" Set inFile = fso.GetFile(directorAplicatie & "\books\" & limbaTitluri & ".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(nrBooks) = book(1) nrBooks = nrBooks + 1 ' WScript.Echo carti(book(0)) & " " & book(0) End If End If Next inf.Close 'citire fisier de configurare WScript.Echo directorAplicatie & "\config\" & prefixCarte & ".txt" Set inFile = fso.GetFile(directorAplicatie & "\config\" & prefixCarte & ".txt") Set inf = inFile.OpenAsTextStream(ForReading, TristateUseDefault) MyString = inf.ReadAll MyString = Replace(MyString, Chr(239) & Chr(187) & Chr(191), "") ReDim modul512(150), modul128(150), nume512(150), nume128(150), numeconfig128(150), numeconfig512(150) ReDim modul1(150), nume1(150), numeconfig1(150) ReDim modul64(150), nume64(150), numeconfig64(150) items = Split(MyString, vbCrLf) nrItems1=0 nrItems512 = 0 nrItems128 = 0 nrItems64=0 For Each item in items If InStr(item,Chr(9)) Then valoare = Split(item,Chr(9)) If valoare(0) = 1 Then modul1(nrItems1) = valoare(3) numeconfig1(nrItems1) = valoare(2) nume1(nrItems1) = valoare(1) nrItems1 = nrItems1 + 1 End If If valoare(0) = 512 Then modul512(nrItems512) = valoare(3) numeconfig512(nrItems512) = valoare(2) nume512(nrItems512) = valoare(1) nrItems512 = nrItems512 + 1 End If If valoare(0) = 128 Then modul128(nrItems128) = valoare(3) numeconfig128(nrItems128) = valoare(2) nume128(nrItems128) = valoare(1) nrItems128 = nrItems128 + 1 End If If valoare(0) = 64 Then modul64(nrItems64) = valoare(3) numeconfig64(nrItems64) = valoare(2) nume64(nrItems64) = valoare(1) nrItems64 = nrItems64 + 1 End If ' WScript.Echo valoare(0) & " " & modul512(valoare(0)) & " " & modul128(valoare(0)) End If Next inf.Close 'se genereaza fisierele index.htm si wap.htm Set inFile = fso.GetFile(directorAplicatie & "\template.htm") Set inf = inFile.OpenAsTextStream(ForReading, TristateUseDefault) IndexPage = inf.ReadAll inf.Close ' Se preia template.htm si se inlocuieste $CONTINUT$ cu tabelul si referinta la arhiva zip IndexPage = Replace(IndexPage, "$TITLU$", numeBiblie) IndexPage = Replace(IndexPage, "$TITLES$", limbaTitluri) IndexPage = Replace(IndexPage, "$MENUS$", limbaMeniuri) IndexPage = Replace(IndexPage, "$FLAG$", "") IndexPage = Replace(IndexPage, "$ARHIVA$", UCase(Mid(prefixCarte,1,1)) & Mid(prefixCarte,2,Len(prefixCarte) - 1) & "Bible.zip") template = Split(IndexPage,"$CONTINUT$") fso.CreateTextFile directorCarte & "\index.htm", True Set outFile = fso.GetFile(directorCarte & "\index.htm") Set outf = outFile.OpenAsTextStream(ForWriting, TristateUseDefault) 'generare antet outf.WriteLine template(0) 'interpretare indice coslpan = 0 str = "" If Mid(indice,1,1) = "x" Then MIDP20 = True colspan = colspan + 1 str = str & " ADVANCED
(MIDP 2.0)
" fso.CreateTextFile directorCarte & "\MIDP2.0\index.htm", True Set MIDP20JARFile = fso.GetFile(directorCarte & "\MIDP2.0\index.htm") Set MIDP20JAR = MIDP20JARFile.OpenAsTextStream(ForWriting, TristateUseDefault) fso.CreateTextFile directorCarte & "\MIDP2.0\wap\index.htm", True Set MIDP20JADFile = fso.GetFile(directorCarte & "\MIDP2.0\wap\index.htm") Set MIDP20JAD = MIDP20JADFile.OpenAsTextStream(ForWriting, TristateUseDefault) MIDP20JAR.WriteLine "" & vbCrLf & " " & vbCrLf & " " & numeBiblie & " MIDP2.0 " & vbCrLf & " " & vbCrLf & " " & vbCrLf MIDP20JAD.WriteLine "" & vbCrLf & " " & vbCrLf & " " & numeBiblie & " MIDP2.0 " & vbCrLf & " " & vbCrLf & "" & vbCrLf Else MIDP20 = False End If If Mid(indice,2,1) = "x" Then MIDP10 = True colspan = colspan + 1 str = str & " INTERMEDIATE
(MIDP 1.0)
" fso.CreateTextFile directorCarte & "\MIDP1.0\index.htm", True Set MIDP10JARFile = fso.GetFile(directorCarte & "\MIDP1.0\index.htm") Set MIDP10JAR = MIDP10JARFile.OpenAsTextStream(ForWriting, TristateUseDefault) fso.CreateTextFile directorCarte & "\MIDP1.0\wap\index.htm", True Set MIDP10JADFile = fso.GetFile(directorCarte & "\MIDP1.0\wap\index.htm") Set MIDP10JAD = MIDP10JADFile.OpenAsTextStream(ForWriting, TristateUseDefault) MIDP10JAR.WriteLine "" & vbCrLf & " " & vbCrLf & " " & numeBiblie & " MIDP1.0 " & vbCrLf & "" & vbCrLf & "" & vbCrLf MIDP10JAD.WriteLine "" & vbCrLf & "" & vbCrLf & " " & numeBiblie & " MIDP1.0 " & vbCrLf & "" & vbCrLf & "" Else MIDP10 = False End If If Mid(indice,3,1) = "x" Then MIDP10old = True colspan = colspan + 1 str = str & " STARTER
(MIDP 1.0)
" fso.CreateTextFile directorCarte & "\MIDP1.0old\index.htm", True Set MIDP10oldJARFile = fso.GetFile(directorCarte & "\MIDP1.0old\index.htm") Set MIDP10oldJAR = MIDP10oldJARFile.OpenAsTextStream(ForWriting, TristateUseDefault) fso.CreateTextFile directorCarte & "\MIDP1.0old\wap\index.htm", True Set MIDP10oldJADFile = fso.GetFile(directorCarte & "\MIDP1.0old\wap\index.htm") Set MIDP10oldJAD = MIDP10oldJADFile.OpenAsTextStream(ForWriting, TristateUseDefault) MIDP10oldJAR.WriteLine "" & vbCrLf & " " & vbCrLf & " " & numeBiblie & " MIDP1.0old " & vbCrLf & " " & vbCrLf & " " & vbCrLf MIDP10oldJAD.WriteLine " " & vbCrLf & " " & vbCrLf & " " & numeBiblie & " MIDP1.0old " & vbCrLf & " " & vbCrLf & " " & vbCrLf Else MIDP10old = False End If outf.WriteLine "
" outf.WriteLine "" & str 'Modul o singura Biblie If nrItems1 > 0 Then 'Module de one module outf.WriteLine "" If MIDP20 Then MIDP20JAR.WriteLine "
one module modules
" MIDP20JAD.WriteLine "
one module modules
" End If If MIDP10 Then MIDP10JAR.WriteLine "
one module modules
" MIDP10JAD.WriteLine "
one module modules
" End If If MIDP10old Then MIDP10oldJAR.WriteLine "
one module modules
" MIDP10oldJAD.WriteLine "
one module modules
" End If j = "" cartiModul = "" For i = 0 to nrItems1 - 1 ' Wscript.Echo i If modul1(i) <> j Or i = nrItems1 - 1 Then If i = nrItems1 - 1 Then cartiModul = cartiModul & ", " & carti(nume1(i)) End If If j <> "" Then outf.WriteLine "" cartiModul = "" If MIDP20 Then ' outf.WriteLine filecell("MIDP2.0", Replace(prefixCarte & j, " ", "") & ".jar", 2000) ' numeBiblie1 = Replace(prefixCarte & j, " ", "") & ".jad" ' numeBiblie2 = Replace(prefixCarte & j, " ", "") & ".jar" outf.WriteLine filecell("MIDP2.0", Replace(j, " ", "") & ".jar", 2000) numeBiblie1 = Replace(j, " ", "") & ".jad" numeBiblie2 = Replace(j, " ", "") & ".jar" mesaj = "" _ & "" & numeBiblie1 & "
" mesaj = Replace(mesaj,"'", Chr(34)) MIDP20JAD.WriteLine mesaj mesaj = "" _ & "" & numeBiblie2 & "
" mesaj = Replace(mesaj,"'", Chr(34)) MIDP20JAR.WriteLine mesaj End If If MIDP10 Then ' outf.WriteLine filecell("MIDP1.0", Replace(prefixCarte & j, " ", "") & ".jar", 2000) ' numeBiblie1 = Replace(prefixCarte & j, " ", "") & ".jad" ' numeBiblie2 = Replace(prefixCarte & j, " ", "") & ".jar" outf.WriteLine filecell("MIDP1.0", Replace(j, " ", "") & ".jar", 2000) numeBiblie1 = Replace(j, " ", "") & ".jad" numeBiblie2 = Replace(j, " ", "") & ".jar" mesaj = "" _ & "" & numeBiblie1 & "
" mesaj = Replace(mesaj,"'", Chr(34)) MIDP10JAD.WriteLine mesaj mesaj = "" _ & "" & numeBiblie2 & "
" mesaj = Replace(mesaj,"'", Chr(34)) MIDP10JAR.WriteLine mesaj End If If MIDP10old Then ' outf.WriteLine filecell("MIDP1.0old", Replace(prefixCarte & j, " ", "") & ".jar", 2000) ' numeBiblie1 = Replace(prefixCarte & j, " ", "") & ".jad" ' numeBiblie2 = Replace(prefixCarte & j, " ", "") & ".jar" outf.WriteLine filecell("MIDP1.0old", Replace(j, " ", "") & ".jar", 2000) numeBiblie1 = Replace(j, " ", "") & ".jad" numeBiblie2 = Replace(j, " ", "") & ".jar" mesaj = "" _ & "" & numeBiblie1 & "
" mesaj = Replace(mesaj,"'", Chr(34)) MIDP10oldJAD.WriteLine mesaj mesaj = "" _ & "" & numeBiblie2 & "
" mesaj = Replace(mesaj,"'", Chr(34)) MIDP10oldJAR.WriteLine mesaj End If End If j = modul1(i) End If ' Wscript.Echo "Book: " & carti(nume1(i)) If cartiModul <> "" Then If InStr(modul1(i), "_") <> 0 Then cartiModul = cartiModul & ", " & carti(nume1(i)) & " " &Right(modul1(i),Len(modul1(i)) - InStr(modul1(i),"_")) Else cartiModul = cartiModul & ", " & carti(nume1(i)) End If Else If InStr(modul1(i), "_") <> 0 Then cartiModul = carti(nume1(i)) & " " & Right(modul1(i),Len(modul1(i)) - InStr(modul1(i),"_")) Else cartiModul = carti(nume1(i)) End If End If Next End If ' module 1 If nrItems512 > 0 Then 'Module de 512 kbytes outf.WriteLine "" If MIDP20 Then MIDP20JAR.WriteLine "
512 Kbytes modules
" MIDP20JAD.WriteLine "
512 Kbytes modules
" End If If MIDP10 Then MIDP10JAR.WriteLine "
512 Kbytes modules
" MIDP10JAD.WriteLine "
512 Kbytes modules
" End If If MIDP10old Then MIDP10oldJAR.WriteLine "
512 Kbytes modules
" MIDP10oldJAD.WriteLine "
512 Kbytes modules
" End If j = "" cartiModul = "" For i = 0 to nrItems512 - 1 ' Wscript.Echo i If modul512(i) <> j Or i = nrItems512 - 1 Then If i = nrItems512 - 1 Then cartiModul = cartiModul & ", " & carti(nume512(i)) End If If j <> "" Then outf.WriteLine "" cartiModul = "" If MIDP20 Then ' outf.WriteLine filecell("MIDP2.0", Replace(prefixCarte & j, " ", "") & ".jar", 512) ' numeBiblie1 = Replace(prefixCarte & j, " ", "") & ".jad" ' numeBiblie2 = Replace(prefixCarte & j, " ", "") & ".jar" outf.WriteLine filecell("MIDP2.0", Replace(j, " ", "") & ".jar", 512) numeBiblie1 = Replace(j, " ", "") & ".jad" numeBiblie2 = Replace(j, " ", "") & ".jar" mesaj = "" _ & "" & numeBiblie1 & "
" mesaj = Replace(mesaj,"'", Chr(34)) MIDP20JAD.WriteLine mesaj mesaj = "" _ & "" & numeBiblie2 & "
" mesaj = Replace(mesaj,"'", Chr(34)) MIDP20JAR.WriteLine mesaj End If If MIDP10 Then ' outf.WriteLine filecell("MIDP1.0", Replace(prefixCarte & j, " ", "") & ".jar", 512) ' numeBiblie1 = Replace(prefixCarte & j, " ", "") & ".jad" ' numeBiblie2 = Replace(prefixCarte & j, " ", "") & ".jar" outf.WriteLine filecell("MIDP1.0", Replace(j, " ", "") & ".jar", 512) numeBiblie1 = Replace(j, " ", "") & ".jad" numeBiblie2 = Replace(j, " ", "") & ".jar" mesaj = "" _ & "" & numeBiblie1 & "
" mesaj = Replace(mesaj,"'", Chr(34)) MIDP10JAD.WriteLine mesaj mesaj = "" _ & "" & numeBiblie2 & "
" mesaj = Replace(mesaj,"'", Chr(34)) MIDP10JAR.WriteLine mesaj End If If MIDP10old Then ' outf.WriteLine filecell("MIDP1.0old", Replace(prefixCarte & j, " ", "") & ".jar", 512) ' numeBiblie1 = Replace(prefixCarte & j, " ", "") & ".jad" ' numeBiblie2 = Replace(prefixCarte & j, " ", "") & ".jar" outf.WriteLine filecell("MIDP1.0old", Replace(j, " ", "") & ".jar", 512) numeBiblie1 = Replace(j, " ", "") & ".jad" numeBiblie2 = Replace(j, " ", "") & ".jar" mesaj = "" _ & "" & numeBiblie1 & "
" mesaj = Replace(mesaj,"'", Chr(34)) MIDP10oldJAD.WriteLine mesaj mesaj = "" _ & "" & numeBiblie2 & "
" mesaj = Replace(mesaj,"'", Chr(34)) MIDP10oldJAR.WriteLine mesaj End If End If j = modul512(i) End If ' Wscript.Echo "Book: " & carti(nume512(i)) If cartiModul <> "" Then If InStr(modul512(i), "_") <> 0 Then cartiModul = cartiModul & ", " & carti(nume512(i)) & " " &Right(modul512(i),Len(modul512(i)) - InStr(modul512(i),"_")) Else cartiModul = cartiModul & ", " & carti(nume512(i)) End If Else If InStr(modul512(i), "_") <> 0 Then cartiModul = carti(nume512(i)) & " " & Right(modul512(i),Len(modul512(i)) - InStr(modul512(i),"_")) Else cartiModul = carti(nume512(i)) End If End If Next End If ' module 512 If nrItems128 > 0 Then 'Module de 128 kbytes outf.WriteLine "" If MIDP20 Then MIDP20JAR.WriteLine "
128 Kbytes modules
" MIDP20JAD.WriteLine "
128 Kbytes modules
" End If If MIDP10 Then MIDP10JAR.WriteLine "
128 Kbytes modules
" MIDP10JAD.WriteLine "
128 Kbytes modules
" End If If MIDP10old Then MIDP10oldJAR.WriteLine "
128 Kbytes modules
" MIDP10oldJAD.WriteLine "
128 Kbytes modules
" End If j = "" cartiModul = "" For i = 0 to nrItems128 - 1 ' Wscript.Echo i If modul128(i) <> j Or i = nrItems128 - 1 Then If i = nrItems128 - 1 Then cartiModul = cartiModul & ", " & carti(nume128(i)) End If If j <> "" Then outf.WriteLine "" cartiModul = "" If MIDP20 Then ' outf.WriteLine filecell("MIDP2.0", Replace(prefixCarte & j, " ", "") & ".jar", 128) ' numeBiblie1 = Replace(prefixCarte & j, " ", "") & ".jad" ' numeBiblie2 = Replace(prefixCarte & j, " ", "") & ".jar" outf.WriteLine filecell("MIDP2.0", Replace(j, " ", "") & ".jar", 128) numeBiblie1 = Replace(j, " ", "") & ".jad" numeBiblie2 = Replace(j, " ", "") & ".jar" mesaj = "" _ & "" & numeBiblie1 & "
" mesaj = Replace(mesaj,"'", Chr(34)) MIDP20JAD.WriteLine mesaj mesaj = "" _ & "" & numeBiblie2 & "
" mesaj = Replace(mesaj,"'", Chr(34)) MIDP20JAR.WriteLine mesaj End If If MIDP10 Then ' outf.WriteLine filecell("MIDP1.0", Replace(prefixCarte & j, " ", "") & ".jar", 128) ' numeBiblie1 = Replace(prefixCarte & j, " ", "") & ".jad" ' numeBiblie2 = Replace(prefixCarte & j, " ", "") & ".jar" outf.WriteLine filecell("MIDP1.0", Replace(j, " ", "") & ".jar", 128) numeBiblie1 = Replace(j, " ", "") & ".jad" numeBiblie2 = Replace(j, " ", "") & ".jar" mesaj = "" _ & "" & numeBiblie1 & "
" mesaj = Replace(mesaj,"'", Chr(34)) MIDP10JAD.WriteLine mesaj mesaj = "" _ & "" & numeBiblie2 & "
" mesaj = Replace(mesaj,"'", Chr(34)) MIDP10JAR.WriteLine mesaj End If If MIDP10old Then ' outf.WriteLine filecell("MIDP1.0old", Replace(prefixCarte & j, " ", "") & ".jar", 128) ' numeBiblie1 = Replace(prefixCarte & j, " ", "") & ".jad" ' numeBiblie2 = Replace(prefixCarte & j, " ", "") & ".jar" outf.WriteLine filecell("MIDP1.0old", Replace(j, " ", "") & ".jar", 128) numeBiblie1 = Replace(j, " ", "") & ".jad" numeBiblie2 = Replace(j, " ", "") & ".jar" mesaj = "" _ & "" & numeBiblie1 & "
" mesaj = Replace(mesaj,"'", Chr(34)) MIDP10oldJAD.WriteLine mesaj mesaj = "" _ & "" & numeBiblie2 & "
" mesaj = Replace(mesaj,"'", Chr(34)) MIDP10oldJAR.WriteLine mesaj End If End If j = modul128(i) End If ' outf.WriteLine "Book: " & bookNames(i) If cartiModul <> "" Then If InStr(modul128(i), "_") <> 0 Then cartiModul = cartiModul & ", " & carti(nume128(i)) & " " &Right(modul128(i),Len(modul128(i)) - InStr(modul128(i),"_")) Else cartiModul = cartiModul & ", " & carti(nume128(i)) End If Else If InStr(modul128(i), "_") <> 0 Then cartiModul = carti(nume128(i)) & " " & Right(modul128(i),Len(modul128(i)) - InStr(modul128(i),"_")) Else cartiModul = carti(nume128(i)) End If End If Next End If ' final module 128 If nrItems64 > 0 Then 'Module de 64 kbytes outf.WriteLine "" If MIDP20 Then MIDP20JAR.WriteLine "
64 Kbytes modules
" MIDP20JAD.WriteLine "
64 Kbytes modules
" End If If MIDP10 Then MIDP10JAR.WriteLine "
64 Kbytes modules
" MIDP10JAD.WriteLine "
64 Kbytes modules
" End If If MIDP10old Then MIDP10oldJAR.WriteLine "
64 Kbytes modules
" MIDP10oldJAD.WriteLine "
64 Kbytes modules
" End If ' Wscript.Echo nrItems64 j = "" cartiModul = "" For i = 0 to nrItems64 - 1 ' Wscript.Echo i If modul64(i) <> j Or i = nrItems64 - 1 Then If i = nrItems64 - 1 Then cartiModul = cartiModul & ", " & carti(nume64(i)) End If If j <> "" Then outf.WriteLine "" cartiModul = "" If MIDP20 Then ' outf.WriteLine filecell("MIDP2.0", Replace(prefixCarte & j, " ", "") & ".jar", 64) ' numeBiblie1 = Replace(prefixCarte & j, " ", "") & ".jad" ' numeBiblie2 = Replace(prefixCarte & j, " ", "") & ".jar" outf.WriteLine filecell("MIDP2.0", Replace(j, " ", "") & ".jar", 64) numeBiblie1 = Replace(j, " ", "") & ".jad" numeBiblie2 = Replace(j, " ", "") & ".jar" mesaj = "" _ & "" & numeBiblie1 & "
" mesaj = Replace(mesaj,"'", Chr(34)) MIDP20JAD.WriteLine mesaj mesaj = "" _ & "" & numeBiblie2 & "
" mesaj = Replace(mesaj,"'", Chr(34)) MIDP20JAR.WriteLine mesaj End If If MIDP10 Then ' outf.WriteLine filecell("MIDP1.0", Replace(prefixCarte & j, " ", "") & ".jar", 64) ' numeBiblie1 = Replace(prefixCarte & j, " ", "") & ".jad" ' numeBiblie2 = Replace(prefixCarte & j, " ", "") & ".jar" outf.WriteLine filecell("MIDP1.0", Replace(j, " ", "") & ".jar", 64) numeBiblie1 = Replace(j, " ", "") & ".jad" numeBiblie2 = Replace(j, " ", "") & ".jar" mesaj = "" _ & "" & numeBiblie1 & "
" mesaj = Replace(mesaj,"'", Chr(34)) MIDP10JAD.WriteLine mesaj mesaj = "" _ & "" & numeBiblie2 & "
" mesaj = Replace(mesaj,"'", Chr(34)) MIDP10JAR.WriteLine mesaj End If If MIDP10old Then ' outf.WriteLine filecell("MIDP1.0old", Replace(prefixCarte & j, " ", "") & ".jar", 64) ' numeBiblie1 = Replace(prefixCarte & j, " ", "") & ".jad" ' numeBiblie2 = Replace(prefixCarte & j, " ", "") & ".jar" outf.WriteLine filecell("MIDP1.0old", Replace(j, " ", "") & ".jar", 64) numeBiblie1 = Replace(j, " ", "") & ".jad" numeBiblie2 = Replace(j, " ", "") & ".jar" mesaj = "" _ & "" & numeBiblie1 & "
" mesaj = Replace(mesaj,"'", Chr(34)) MIDP10oldJAD.WriteLine mesaj mesaj = "" _ & "" & numeBiblie2 & "
" mesaj = Replace(mesaj,"'", Chr(34)) MIDP10oldJAR.WriteLine mesaj End If End If j = modul64(i) End If ' outf.WriteLine "Book: " & bookNames(i) If cartiModul <> "" Then If InStr(modul64(i), "_") <> 0 Then cartiModul = cartiModul & ", " & carti(nume64(i)) & " " &Right(modul64(i),Len(modul64(i)) - InStr(modul64(i),"_")) Else cartiModul = cartiModul & ", " & carti(nume64(i)) End If Else If InStr(modul64(i), "_") <> 0 Then cartiModul = carti(nume64(i)) & " " & Right(modul64(i),Len(modul64(i)) - InStr(modul64(i),"_")) Else cartiModul = carti(nume64(i)) End If End If Next End If ' final module 64 'final tabel outf.WriteLine "" outf.WriteLine "
MODULES
 
one module modules
" & Replace(cartiModul, ", Blank", "") & "
 
512 Kbytes modules
" & Replace(cartiModul, ", Blank", "") & "
 
128 Kbytes modules
" & Replace(cartiModul, ", Blank", "") & "
 
64 Kbytes modules
" & Replace(cartiModul, ", Blank", "") & "
" 'generare footer outf.WriteLine template(1) outf.Close If MIDP20 Then MIDP20JAR.WriteLine "
Attention: this page is to be open from the browser of the mobile phone " _ & "
For web version please go to http://www.biblephone.net
" _ & "For questions write to azsadmin@gmail.com" & vbCrLf _ & " " & vbCrLf & " " MIDP20JAD.WriteLine "
Attention: this page is to be open from the browser of the mobile phone " _ & "
For web version please go to http://www.biblephone.net
" _ & "For questions write to azsadmin@gmail.com" & vbCrLf _ & " " & vbCrLf & " " MIDP20JAR.Close MIDP20JAD.Close End If If MIDP10 Then MIDP10JAR.WriteLine "
Attention: this page is to be open from the browser of the mobile phone " _ & "
For web version please go to http://www.biblephone.net
" _ & "For questions write to azsadmin@gmail.com" & vbCrLf _ & " " & vbCrLf & " " MIDP10JAD.WriteLine "
Attention: this page is to be open from the browser of the mobile phone " _ & "
For web version please go to http://www.biblephone.net
" _ & "For questions write to azsadmin@gmail.com" & vbCrLf _ & " " & vbCrLf & " " MIDP10JAR.Close MIDP10JAD.Close End If If MIDP10old Then MIDP10oldJAR.WriteLine "
Attention: this page is to be open from the browser of the mobile phone " _ & "
For web version please go to http://www.biblephone.net
" _ & "For questions write to azsadmin@gmail.com" & vbCrLf _ & "" & vbCrLf & " " MIDP10oldJAD.WriteLine "
Attention: this page is to be open from the browser of the mobile phone " _ & "
For web version please go to http://www.biblephone.net
" _ & "For questions write to azsadmin@gmail.com" & vbCrLf _ & " " & vbCrLf & " " MIDP10oldJAR.Close MIDP10oldJAD.Close End If ' generare wap.htm fso.CreateTextFile directorCarte & "\wap.htm", True Set outFile = fso.GetFile(directorCarte & "\wap.htm") Set outf = outFile.OpenAsTextStream(ForWriting, TristateUseDefault) 'generare antet outf.WriteLine " " & vbCrLf & " " & vbCrLf & " " & numeBiblie & " on the mobile phone " & vbCrLf & " " & vbCrLf & " " & vbCrLf If MIDP20 Then outf.WriteLine "" & numeBiblie & " ADVANCED
" End If If MIDP10 Then outf.WriteLine "" & numeBiblie & " INTERMEDIATE
" End If If MIDP10old Then outf.WriteLine "" & numeBiblie & " STARTER
" End If outf.WriteLine "
Attention: this page is to be open from the browser of the mobile phone
For web version please go to" _ & " http://www.biblephone.net
" _ & " For questions write to azsadmin@gmail.com" outf.WriteLine " " & vbCrLf & " " 'generare continut 'generare footer outf.Close ' generare indexjar.htm fso.CreateTextFile directorCarte & "\indexjar.htm", True Set outFile = fso.GetFile(directorCarte & "\indexjar.htm") Set outf = outFile.OpenAsTextStream(ForWriting, TristateUseDefault) 'generare antet outf.WriteLine " " & vbCrLf & " " & vbCrLf & " " & numeBiblie & " on the mobile phone " & vbCrLf & " " & vbCrLf & " " & vbCrLf If MIDP20 Then outf.WriteLine "" & numeBiblie & " ADVANCED
" End If If MIDP10 Then outf.WriteLine "" & numeBiblie & " INTERMEDIATE
" End If If MIDP10old Then outf.WriteLine "" & numeBiblie & " STARTER
" End If outf.WriteLine "
Attention: this page is to be open from the browser of the mobile phone
For web version please go to" _ & " http://www.biblephone.net
" _ & " For questions write to azsadmin@gmail.com" outf.WriteLine " " & vbCrLf & " " 'generare continut 'generare footer outf.Close 'programele sunt trecute in interiorul directorului de lucru al aplicatiei Function filecell(MIDP, numeFisier, limita) msg = " " _ & "JAR
" & vbCrLf Set inf = fso.GetFile(directorCarte & "\" & MIDP & "\" & numeFisier) sizeFile = Round(inf.size / 1000) If sizeFile < limita Then msg = msg & "" & sizeFile & "
kbytes
" & vbCrLf Else msg = msg & "" & sizeFile & "
kbytes

" & vbCrLf End If JADFile = Replace(numeFisier, ".jar", ".jad") msg = msg & "" _ & "JAD" & vbCrLf ' & "JAD FILE " & vbCrLf caleSite1 = Replace(caleSite,"http://", "http://webstart.mpowerplayer.com/") msg = msg & "" _ & "PREVIEW" & vbCrLf ' & "JAD FILE " & vbCrLf msg = msg & "" filecell = Replace(msg, "'", Chr(34)) ' inf.Close End Function