Creating an e-book online...

code
Member in Training

Posts: 74

Creating an e-book online... Oct 16, 2021 4:45:26 GMT cundo likes this

Quote

Post by code on Oct 16, 2021 4:45:26 GMT

Hi,
I keep it short....
(this is only for the intrested)
The php file produces online an e-book(file.epub)
Intresting in the code is that you can zip in php.
Here a link to my website:
booktest.byethost24.com/test2.php
Here the php code:

<?





$af= fopen("container.xml", "w+");



$txt5 =$txt5."<?xml version='1.0' encoding='UTF-8'?>";



$txt5 =$txt5."<container xmlns='urn:oasis:names:tc:opendocument:xmlns:container' version='1.0'>";

$txt5 =$txt5."<rootfiles>";



$txt5 =$txt5."<rootfile media-type='application/oebps-package+xml' full-path='OEBPS/book.opf'/>";

$txt5 =$txt5."</rootfiles>";

$txt5 =$txt5."</container>";

fwrite($af, $txt5);

fclose($af);







$af= fopen("book.ncx", "w+");



$txt3 =$txt3."<?xml version='1.0' encoding='utf-8'?>";



$txt3 =$txt3."<ncx version='2005-1' xml:lang='en' xmlns='http://www.daisy.org/z3986/2005/ncx/'>";

 $txt3 =$txt3." <head>";

  $txt3 =$txt3."  <meta name='dtb:uid' content='abcdef' />";

  $txt3 =$txt3."  <meta name='dtb:depth' content='1' />";

  $txt3 =$txt3."  <meta name='dtb:totalPageCount' content='0' />";

   $txt3 =$txt3." <meta name='dtb:maxPageNumber' content='0' />";

 $txt3 =$txt3." </head>";

$txt3 =$txt3."";



$txt3 =$txt3."<docTitle>";

$txt3 =$txt3."<text>Title is...</text>";

$txt3 =$txt3."</docTitle>";

$txt3 =$txt3."<navMap>";



$txt3 =$txt3."<navPoint id='chapter01' playOrder=1 >";

$txt3 =$txt3."<navLabel><text>Chapter 1</text></navLabel>";

$txt3 =$txt3."<content src='chapter01.xhtml' />";

$txt3 =$txt3."</navPoint>";



$txt3="<navPoint id='chapter02' playOrder=1 >";

$txt3 =$txt3."<navLabel><text>Chapter 2</text></navLabel>";

$txt3 =$txt3."<content src='chapter02.xhtml' />";

$txt3 =$txt3."</navPoint>";



$txt3 =$txt3."</navMap>";

$txt3 =$txt3."</ncx>";









fwrite($af, $txt3);

fclose($af);



$af= fopen("book.opf", "w+");



$txt2 =$txt2."";



$txt2 =$txt2."<?xml version='1.0' encoding='utf-8'?>";

$txt2 =$txt2."<package version='2.0' xmlns='http://www.idpf.org/2007/opf' unique-identifier='abcdef'>";

$txt2 =$txt2."<metadata xmlns:dc='http://purl.org/dc/elements/1.1/' xmlns:opf='http://www.idpf.org/2007/opf' >";

$txt2 =$txt2." <dc:title>Title is ....</dc:title>";

  $txt2 =$txt2." <dc:creator opf:role='aut'>not set</dc:creator>";

  $txt2 =$txt2."  <dc:language>en-US</dc:language>";

  $txt2 =$txt2." <dc:identifier id='abcdef' >abcdef</dc:identifier>";

  $txt2 =$txt2."   </metadata>";









$txt2 =$txt2."<manifest>";

$txt2 =$txt2."<item id='chapter01' href='chapter01.xhtml' />";

$txt2 =$txt2."<item id='ncx'   href='book.ncx' />";



$txt2 =$txt2."<item id='chapter02' href='chapter02.xhtml' />";

$txt2 =$txt2."<item id='ncx'   href='book.ncx' />";



$txt2 =$txt2."</manifest>";

$txt2 =$txt2."<spine toc='ncx'>";

$txt2 =$txt2."<itemref idref='chapter01' />";



$txt2 =$txt2."<itemref idref='chapter02' />";



$txt2 =$txt2."</spine>";

$txt2 =$txt2."</package>";



fwrite($af, $txt2);

fclose($af);



$af= fopen("chapter01.xhtml", "w+");



$txt8 =$txt8."";

$txt8 =$txt8."<?xml version='1.0' encoding='utf-8'?>";

$txt8 =$txt8."<!DOCTYPE html PUBLIC '-//W3C//DTD XHTML 1.1//EN' 'http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd'>";

$txt8 =$txt8."<html xmlns='http://www.w3.org/1999/xhtml' xml:lang='en'>";

$txt8 =$txt8." <head>";

$txt8 =$txt8."   <meta http-equiv='Content-Type' content='application/xhtml+xml; charset=utf-8' />";

$txt8 =$txt8."   <title>Justbasic...</title>";

$txt8 =$txt8." </head>";

$txt8 =$txt8."  <body>";

$txt8 =$txt8." <h1>Justbasic...</h1><p><a href='http://www.justbasic.com'>link</a></p>";

$txt8 =$txt8." <h1>Just now...</h1><p><a href='http://google.nl'>link</a></p>";





fwrite($af, $txt8);

fclose($af);



$af= fopen("chapter02.xhtml", "w+");



$txt18 =$txt18."";

$txt18 =$txt18."<?xml version='1.0' encoding='utf-8'?>";

$txt18 =$txt18."<!DOCTYPE html PUBLIC '-//W3C//DTD XHTML 1.1//EN' 'http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd'>";

$txt18 =$txt18."<html xmlns='http://www.w3.org/1999/xhtml' xml:lang='en'>";

$txt18 =$txt18." <head>";

$txt18 =$txt18."   <meta http-equiv='Content-Type' content='application/xhtml+xml; charset=utf-8' />";

$txt18 =$txt18."   <title>Test</title>";

$txt18 =$txt18." </head>";

$txt18 =$txt18."  <body>";

$txt18 =$txt18." <h1>Chapter 2 ...</h1><p><a href='http://www.duckduckgo.nl'>link</a></p>";

$txt18 =$txt18." <h1>Hi...</h1><p><a href='http://google.nl'>link</a></p>";





fwrite($af, $txt18);

fclose($af);





$zip = new ZipArchive();

$zip->open('file.epub', ZipArchive::CREATE | ZipArchive::OVERWRITE);

$zip->addEmptyDir('META-INF');

$zip->addEmptyDir('OEBPS');



$zip->addFromString("mimetype" ,"application/epub+zip");

$zip->addFromString("META-INF/container.xml" ,$txt5);

$zip->addFromString("OEBPS/book.ncx" , $txt3);

$zip->addFromString("OEBPS/book.opf" , $txt2);

$zip->addFromString("OEBPS/chapter01.xhtml" , $txt8);

$zip->addFromString("OEBPS/chapter02.xhtml" , $txt18);







$zip->close();



$txt="";

$txt2="";

$txt3="";

$txt5="";

$txt8="";

$txt18="";

echo "Done...";

echo "<br><a href='/file.epub'>file.epub</a>";

?>

To open the file.epub with a epub reader:

www.epubfilereader.com

It gives probally one error popup...but then runs after it.
Goodluck,

code

code
Member in Training

Posts: 74

Creating an e-book online... Oct 27, 2021 1:27:10 GMT cundo likes this

Quote

Post by code on Oct 27, 2021 1:27:10 GMT

Hi,
Its late here.
I have been busy to make a .zip file (and renaming it to .epub).
It was the goal to make a e-book in justbasic.
I found the powershell command to make a e-book(zip file).
But i didn't succeed....
Here the code i achieved so far(can it be done with justbasic?):






nomainwin



WindowWidth=800



WindowHeight=600











    button #scr, "Make epub... ", [b1], UL, 550, 500

  button #scr, "Down...", [bleft], UL, 100, 10

  button #scr, "Up...", [bu], UL, 200, 10

  button #scr, "Add page...", [badd], UL, 550, 100

button #scr, "rename.. ", [ren], UL, 550, 520



TEXTBOX #scr.tb, 610, 20, 160, 50

TEXTBOX #scr.tp, 450, 20, 160, 50





    texteditor #scr.te, 10, 40, 600, 450





pn=1



total=1

dim ct$(9000)

ct$(1)="Page1"

''result = mkdir( "C:\ugly_pdf_test")
result = mkdir( "C:\\final")
result = mkdir( "C:\\workspacetest")
 result = mkdir( "C:\\workspacetest\\META-INF")

 result = mkdir( "C:\\workspacetest\\OEBPS\\")

 result = mkdir( "C:\\make-epub\")




   open "epub..." for graphics_nsb as #scr



print #scr.te, "";ct$(1);



print #scr.tb ,"Total pages : ";total;

print #scr.tp ,"Page : ";pn;

ct$(total)="Page";total;"@x@"

    print #scr, "fill green"



    print #scr, "flush"











      wait

[badd]

emp$=""

rd$=""

 print #scr.te, "!lines cl" ;

for i = 1 to cl step 1



    print #scr.te, "!line ";i;" linete$" ;

rd$=rd$;linete$;"@x@"

''notice rd$

  next i



  ct$(pn)=rd$



print #scr.te, "!contents emp$";

total=total+1

ct$(total)="Page";total;"@x@"

print #scr.te, "Page";total;



print #scr.tp ,"Page : ";total;



pn=total





print #scr.tb ,"Total pages : ";pn;





wait

[bleft]

emp$=""

rd$=""

 print #scr.te, "!lines cl" ;

for i = 1 to cl step 1



    print #scr.te, "!line ";i;" linete$" ;

rd$=rd$;linete$;"@x@"

''notice rd$

  next i



  ct$(pn)=rd$





if pn <= total and pn >1 then

print #scr.te, "!contents emp$";

pn=pn-1

print #scr.tp ,"Page : ";pn;



ls=len(ct$(pn))

lp=0

''notice ls

for i = 1 to ls step 1

one$=""

''notice instr(ct$(pn), "@qx")

one$=mid$(ct$(pn), i, 1)

two$=mid$(ct$(pn), i+1, 1)

three$=mid$(ct$(pn), i+2, 1)



if one$="@" and two$="x" and three$="@" then



''notice "yep";mid$(ct$(pn), lp, i-lp)

print #scr.te, "";mid$(ct$(pn), lp, i-lp)

lp=i+3

end if



next i

end if

''print #scr.te, "!contents? ct$(pn)";

''notice ct$(pn)

wait

[bu]

emp$=""

rd$=""

 print #scr.te, "!lines cl" ;

for i = 1 to cl step 1



    print #scr.te, "!line ";i;" linete$" ;

rd$=rd$;linete$;"@x@"

''notice rd$

  next i



  ct$(pn)=rd$





if pn < total and total > 1 then

print #scr.te, "!contents emp$";

''notice ""

pn=pn+1

''print #scr.tp ,"Page : ";pn;

print #scr.tp ,"Page : ";pn;

ls=len(ct$(pn))

lp=0

''notice ls

for i = 1 to ls step 1

one$=""

''notice instr(ct$(pn), "@qx")

one$=mid$(ct$(pn), i, 1)

two$=mid$(ct$(pn), i+1, 1)

three$=mid$(ct$(pn), i+2, 1)



if one$="@" and two$="x" and three$="@" then



''notice "yep";mid$(ct$(pn), lp, i-lp)

print #scr.te, "";mid$(ct$(pn), lp, i-lp)

lp=i+3

end if



next i

end if

''print #scr.te, "!contents? ct$(pn)";

''notice ct$(pn)

wait



    [b1]







emp$=""

rd$=""

 print #scr.te, "!lines cl" ;

for i = 1 to cl step 1



    print #scr.te, "!line ";i;" linete$" ;

rd$=rd$;linete$;"@x@"

''notice rd$

  next i



  ct$(pn)=rd$




open "C:\\workspacetest\META-INF\\container.xml" for output as #tf2



print #tf2,"<?xml version='1.0' encoding='UTF-8'?>"

print #tf2,"<container xmlns='urn:oasis:names:tc:opendocument:xmlns:container' version='1.0'>"


print #tf2,"<rootfiles>"


print #tf2,"<rootfile full-path='OEBPS/book.opf' media-type='application/oebps-package+xml'/>"

print #tf2,"</rootfiles>"

print #tf2,"</container>"

close #tf2



open "C:\\workspacetest\\mimetype" for output as #tf

print #tf,"application/epub+zip"

close #tf

open "C:\\workspacetest\\OEBPS\\book.opf" for output as #tf3


print #tf3,"<?xml version='1.0' encoding='utf-8'?>"

print #tf3,"<package version='2.0' xmlns='http://www.idpf.org/2007/opf' unique-identifier='abcdef'>"

  print #tf3,"<metadata xmlns:dc='http://purl.org/dc/elements/1.1/' xmlns:opf='http://www.idpf.org/2007/opf' >"

    print #tf3,"<dc:title>Title...epub...</dc:title>"
    print #tf3,"<dc:creator opf:role='aut'>Not set</dc:creator>"
    print #tf3,"<dc:language>en-US</dc:language>"
    print #tf3,"<dc:identifier id='abcdef'>abcdef</dc:identifier>"


print #tf3," </metadata>"
 print #tf3," <manifest>"

 for i = 1 to total step 1
 print #tf3," <item id='chapter";i;"'  href='chapter";i;".xhtml' />"


   print #tf3," <item id='ncx'  href='book.ncx' />"
   next i
 print #tf3," </manifest>"

  print #tf3,"<spine toc='ncx'>"
  for i = 1 to total step 1
  print #tf3," <itemref idref='chapter";i;"' />"
  next i
 print #tf3," </spine>"
print #tf3,"</package>"

close #tf3



open "C:\\workspacetest\\OEBPS\\book.ncx" for output as #tf4


print #tf4,"<?xml version='1.0' encoding='utf-8'?>"

print #tf4,"<ncx version='2005-1' xml:lang='en' xmlns='http://www.daisy.org/z3986/2005/ncx/'>"
  print #tf4,"<head>"
   print #tf4," <meta name='dtb:uid' content='abcdef' />"
   print #tf4," <meta name='dtb:depth' content='1' />"
   print #tf4," <meta name='dtb:totalPageCount' content='0' />"
  print #tf4,"  <meta name='dtb:maxPageNumber' content='0' />"
  print #tf4,"</head>"

 print #tf4," <docTitle>"
  print #tf4,"  <text>Title is ..........</text>"
  print #tf4,"</docTitle>"

 print #tf4," <navMap>"
 for i = 1 to total step 1
   print #tf4," <navPoint id='chapter";i;"' playOrder=1 >"
   print #tf4,"   <navLabel><text>Chapter ";i;"</text></navLabel>"
     print #tf4," <content src='chapter";i;".xhtml' />"
    print #tf4,"</navPoint>"
    next i
  print #tf4,"</navMap>"
print #tf4,"</ncx>"

close #tf4


for i = 1 to total step 1

open "C:\\workspacetest\\OEBPS\\chapter";i;".xhtml" for output as #tf9
''print #tf9,"<p>hello</p>"


print #tf9,"<?xml version='1.0' encoding='utf-8'?>"
print #tf9,"<!DOCTYPE html PUBLIC '-//W3C//DTD XHTML 1.1//EN' 'http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd'>"
print #tf9,"<container xmlns='urn:oasis:names:tc:opendocument:xmlns:container' version='1.0'>"
print #tf9," <html>"
print #tf9," <head>"
print #tf9,"   <meta http-equiv='Content-Type' content='application/xhtml+xml; charset=utf-8' />"
print #tf9,"   <title>Test</title>"
print #tf9," </head>"
print #tf9,"  <body>"
   ''print #tf9," <h1>Just now...</h1><p><a href='http://www.google.com'>link</a></p>"
''print #tf9," <h1>Chapter";i;"</h1><p><a href='http://www.news.nl'>link</a></p>"
 ls=len(ct$(i))

lp=0



for i2 = 1 to ls step 1

one$=""



one$=mid$(ct$(i), i2, 1)

two$=mid$(ct$(i), i2+1, 1)

three$=mid$(ct$(i), i2+2, 1)



if one$="@" and two$="x" and three$="@" then






 print #tf9,"<p>"

    print #tf9,"";mid$(ct$(i), lp, i2-lp);"</p>"



lp=i2+3

end if



next i2


print #tf9," </body>"
print #tf9," </html>"




close #tf9
next i

open "c:\ugly_pdf_test\test.pdf" for output as #tf











print #tf,"%PDF-1.3"



close #tf

RUN "powershell Remove-Item C:\make-epub\test.epub -Recurse"
RUN "powershell Remove-Item C:\make-epub\test.zip -Recurse"

RUN "powershell Compress-Archive -LiteralPath 'C:\workspacetest\mimetype','C:\workspacetest\META-INF\','C:\workspacetest\OEBPS\' -DestinationPath 'C:\make-epub\test.zip'"'',HIDE

RUN "powershell Rename-Item -LiteralPath 'C:\make-epub\test.zip' -NewName 'C:\\make-epub\test.epub'"

''b$ = "C:\make-epub\test.epub"



''RUN "rundll32.exe url.dll,FileProtocolHandler ";b$

''kill "C:\make-epub\test.epub"
''name "C:\make-epub\test.zip" as "C:\make-epub\test.epub"


wait

[ren]
''kill "C:\make-epub\test.epub"
''RUN "cmd copy 'C:\make-epub\test.zip' 'C:\final\test.epub'"
''RUN "powershell Remove-Item C:\make-epub\test.epub "
''RUN "powershell Remove-Item C:\make-epub\test.zip "
RUN "powershell Rename-Item -LiteralPath 'C:\make-epub\test.zip' -NewName 'C:\\make-epub\test.epub'"

b$ = "C:\make-epub\test.epub"



RUN "rundll32.exe url.dll,FileProtocolHandler ";b$


wait

So for now i would say : 'it can't'
You have a solution?
Thx,

code

cundo Global Moderator Posts: 238	Creating an e-book online... Oct 27, 2021 18:59:09 GMT Quote Select Post Deselect Post Link to Post Member Give Gift Back to Top Post by cundo on Oct 27, 2021 18:59:09 GMT You could try 7zip. What do you think?
	To run the codes posted on this forum download JustBASIC 2.0 if you haven't already.

code
Member in Training

Posts: 74

Creating an e-book online... Oct 28, 2021 8:42:53 GMT

Quote

Post by code on Oct 28, 2021 8:42:53 GMT

Hi,

Thx for your reply.
I downloaded 7zip and it produces
a file test23.epub with the following command:

C:\a7zip\7-Zip>7z a test23.epub c:\workspacetest\*

This file works a bit in the epub reader from epubfilereader.com
but not in adobe digital editions (epubreader).

The hyperlink not working...
So not that easy to get it working....
I found this link :
superuser.com/questions/385392/how-can-i-control-the-order-of-files-in-a-zip-archive

Maybe answer 2 will give a result.

Maybe later more on this.

Regards,

code

code Member in Training Posts: 74	Creating an e-book online... Oct 28, 2021 12:21:46 GMT cundo likes this Quote Select Post Deselect Post Link to Post Member Give Gift Back to Top Post by code on Oct 28, 2021 12:21:46 GMT Hi, Answer 2 is not the solution....(i guesss) But i stop for now testing...(maybe later...) Regards, code

code Member in Training Posts: 74	Creating an e-book online... Oct 28, 2021 23:23:28 GMT Quote Select Post Deselect Post Link to Post Member Give Gift Back to Top Post by code on Oct 28, 2021 23:23:28 GMT I doubt where the error/problem is... (one or more) 1. the files 2. the zip output 3. security/refresh? For now i keep it to my php website: booktest.byethost24.com/test2.php Regards, code

code Member in Training Posts: 74	Creating an e-book online... Jan 10, 2022 17:35:33 GMT Quote Select Post Deselect Post Link to Post Member Give Gift Back to Top Post by code on Jan 10, 2022 17:35:33 GMT The url(website) doesn't work anymore... Regards, code

code Member in Training Posts: 74	Creating an e-book online... Mar 16, 2022 14:33:51 GMT Quote Select Post Deselect Post Link to Post Member Give Gift Back to Top Post by code on Mar 16, 2022 14:33:51 GMT ebook123.hstn.me/simple.html

code Member in Training Posts: 74	Creating an e-book online... Mar 19, 2022 0:44:14 GMT Quote Select Post Deselect Post Link to Post Member Give Gift Back to Top Post by code on Mar 19, 2022 0:44:14 GMT Another one with svg: ebook123.hstn.me/ebook/sim.html Open the simple ebook with: www.epubfilereader.com/ Regards, code

code
Member in Training

Posts: 74

Creating an e-book online... Mar 19, 2022 22:58:00 GMT cundo likes this

Quote

Post by code on Mar 19, 2022 22:58:00 GMT

Ill give here the php code:

<?





$af= fopen("container.xml", "w+");

$txt5 =$txt5."<?xml version='1.0' encoding='utf-8'?>";

$txt5 =$txt5."<container version='1.0' xmlns='urn:oasis:names:tc:opendocument:xmlns:container'>";
$txt5 =$txt5."<rootfiles>";
$txt5 =$txt5."<rootfile full-path='OEBPS/book.opf' media-type='application/oebps-package+xml'/>";
$txt5 =$txt5."</rootfiles>";
$txt5 =$txt5."</container>";



fwrite($af, $txt5);

fclose($af);







$af= fopen("book.ncx", "w+");

$txt3 =$txt3."<?xml version='1.0' encoding='utf-8'?>";

$txt3 =$txt3."<ncx version='2005-1' xml:lang='en' xmlns='http://www.daisy.org/z3986/2005/ncx/'>";
$txt3 =$txt3."  <head>";
  $txt3 =$txt3."  <meta name='dtb:uid' content='abcdef' />";
  $txt3 =$txt3."  <meta name='dtb:depth' content='1' />";
   $txt3 =$txt3." <meta name='dtb:totalPageCount' content='0' />";
   $txt3 =$txt3." <meta name='dtb:maxPageNumber' content='0' />";
 $txt3 =$txt3." </head>";

  $txt3 =$txt3."<docTitle>";
   $txt3 =$txt3." <text>Justbasic...</text>";
 $txt3 =$txt3." </docTitle>";

 $txt3 =$txt3." <navMap>";
  $txt3 =$txt3."  <navPoint id='chapter01' playOrder='1'>";
    $txt3 =$txt3."  <navLabel><text>Chapter 1</text></navLabel>";
     $txt3 =$txt3." <content src='chapter01.xhtml'/>";
  $txt3 =$txt3."  </navPoint>";
   $txt3 =$txt3."  <navPoint id='chapter02' playOrder='1'>";
    $txt3 =$txt3."  <navLabel><text>Chapter 2</text></navLabel>";
     $txt3 =$txt3." <content src='chapter02.xhtml'/>";
  $txt3 =$txt3."  </navPoint>";
 $txt3 =$txt3." </navMap>";
$txt3 =$txt3."</ncx>";









fwrite($af, $txt3);

fclose($af);



$af= fopen("book.opf", "w+");



$txt2 =$txt2."";


$txt2 =$txt2."<package version='2.0' xmlns='http://www.idpf.org/2007/opf' unique-identifier='abcdef'>";

$txt2 =$txt2."<metadata xmlns:dc='http://purl.org/dc/elements/1.1/' xmlns:opf='http://www.idpf.org/2007/opf'>";

 $txt2 =$txt2."   <dc:title>Hello</dc:title>";
  $txt2 =$txt2."  <dc:creator opf:role='aut'>not set</dc:creator>";
  $txt2 =$txt2."  <dc:language>en-US</dc:language>";
  $txt2 =$txt2."  <dc:identifier id='abcdef'>abcdef</dc:identifier>";

 $txt2 =$txt2." </metadata>";

  $txt2 =$txt2."<manifest>";
   $txt2 =$txt2." <item id='chapter01' href='chapter01.xhtml' media-type='application/xhtml+xml' />";
     $txt2 =$txt2." <item id='chapter02' href='chapter02.xhtml' media-type='application/xhtml+xml' />";
   
   $txt2 =$txt2." <item id='ncx'       href='book.ncx'        media-type='application/x-dtbncx+xml' />";
  $txt2 =$txt2."</manifest>";

 $txt2 =$txt2." <spine toc='ncx'>";
 $txt2 =$txt2."   <itemref idref='chapter01' />";
 $txt2 =$txt2."   <itemref idref='chapter02' />";
 $txt2 =$txt2." </spine>";
$txt2 =$txt2."</package>";











fwrite($af, $txt2);

fclose($af);



$af= fopen("chapter01.xhtml", "w+");



$txt8 =$txt8."";

$txt8 =$txt8."<?xml version='1.0' encoding='utf-8'?>";

$txt8 =$txt8."<!DOCTYPE html PUBLIC '-//W3C//DTD XHTML 1.1//EN' 'http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd'>";

$txt8 =$txt8."<html xmlns='http://www.w3.org/1999/xhtml' xml:lang='en'>";

$txt8 =$txt8." <head>";

$txt8 =$txt8."   <meta http-equiv='Content-Type' content='application/xhtml+xml; charset=utf-8' />";

$txt8 =$txt8."   <title>Justbasic...</title>";

$txt8 =$txt8." </head>";

$txt8 =$txt8."  <body>";

$txt8 =$txt8." ".$_POST['ch1'];

$txt8 =$txt8." ";





fwrite($af, $txt8);

fclose($af);



$af= fopen("chapter02.xhtml", "w+");



$txt18 =$txt18."";

$txt18 =$txt18."<?xml version='1.0' encoding='utf-8'?>";

$txt18 =$txt18."<!DOCTYPE html PUBLIC '-//W3C//DTD XHTML 1.1//EN' 'http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd'>";

$txt18 =$txt18."<html xmlns='http://www.w3.org/1999/xhtml' xml:lang='en'>";

$txt18 =$txt18." <head>";

$txt18 =$txt18."   <meta http-equiv='Content-Type' content='application/xhtml+xml; charset=utf-8' />";

$txt18 =$txt18."   <title>Test</title>";

$txt18 =$txt18." </head>";

$txt18 =$txt18."  <body>";

$txt18 =$txt18." ".$_POST['ch2'];

$txt18 =$txt18." ";





fwrite($af, $txt18);

fclose($af);





$zip = new ZipArchive();

$zip->open('ebook.epub', ZipArchive::CREATE | ZipArchive::OVERWRITE);

$zip->addEmptyDir('META-INF');

$zip->addEmptyDir('OEBPS');



$zip->addFromString("mimetype" ,"application/epub+zip");

$zip->addFromString("META-INF/container.xml" ,$txt5);

$zip->addFromString("OEBPS/book.ncx" , $txt3);

$zip->addFromString("OEBPS/book.opf" , $txt2);

$zip->addFromString("OEBPS/chapter01.xhtml" , $txt8);

$zip->addFromString("OEBPS/chapter02.xhtml" , $txt18);







$zip->close();



$txt="";

$txt2="";

$txt3="";

$txt5="";

$txt8="";

$txt18="";

echo "Done...";

echo "<br><a href='ebook.epub'>ebook.epub</a>";

?>

the .html file:

Welcome !
<br>
2 Chapters ebook...

<br>
It writes the file ebook.epub (so everyone can see your 'ebook')
<br>


<form action='ebook2.php' method='post'>
<textarea name='ch1' style=width:600;height:150; >
Chapter1
<p></p>
<p><a href="http://www.justbasic.com">link</a></p>

</textarea>
<br>
<textarea name='ch2' style=width:600;height:150; >
Chapter2
<p></p>
Hello World
<p></p>
<p><a href="http://www.google.com">link</a></p>

<svg id="svg2" version="1.0" width="400" height="400" xmlns:svg="http://www.w3.org/2000/svg" 
           xmlns="http://www.w3.org/2000/svg">
  <g id="l">
    <rect id="r1" width="80" height="80" x="80" y="20"
        style="fill:blue;opacity:1;fill-opacity:0.5;stroke:black;stroke-opacity:1;" />
    <circle id="c1" cx="120" cy="20" r="80"
        style="fill:green;opacity:1;fill-opacity:0.5;stroke:black;stroke-opacity:1;" />
    <path id="m" d="M 238 49 L 350 145 L 327 172 L 215 76 Z"
        style="fill:red;opacity:1;fill-opacity:0.5;stroke:black;stroke-opacity:1;" />
  </g>
</svg>
</textarea>

<input type=submit value='Make simple .epub file'>
</form>

Code free to use...
Some epubreaders don't display svg...

Regards,
code

code Member in Training Posts: 74	Creating an e-book online... Apr 1, 2022 18:31:03 GMT Quote Select Post Deselect Post Link to Post Member Give Gift Back to Top Post by code on Apr 1, 2022 18:31:03 GMT The url(website) doesn't work anymore... Regards, code

code Member in Training Posts: 74	Creating an e-book online... May 16, 2022 12:16:36 GMT Quote Select Post Deselect Post Link to Post Member Give Gift Back to Top Post by code on May 16, 2022 12:16:36 GMT ebook.epub (4.08 KB) The above attachment is a simple .epub file(ebook)(6 chapters) made on: www.epub.byethost18.com/epub.html (as long it stays...) To look the ebook download: www.epubfilereader.com/ Regards, code

Post by code on Oct 16, 2021 4:45:26 GMT

Post by code on Oct 27, 2021 1:27:10 GMT

Post by cundo on Oct 27, 2021 18:59:09 GMT

Post by code on Oct 28, 2021 8:42:53 GMT

Post by code on Oct 28, 2021 12:21:46 GMT

Post by code on Oct 28, 2021 23:23:28 GMT

Post by code on Jan 10, 2022 17:35:33 GMT

Post by code on Mar 16, 2022 14:33:51 GMT

Post by code on Mar 19, 2022 0:44:14 GMT

Post by code on Mar 19, 2022 22:58:00 GMT

Post by code on Apr 1, 2022 18:31:03 GMT

Post by code on May 16, 2022 12:16:36 GMT