' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
' BAS TO HTML VS 0.1
' PAR
' YGERONIMI
' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
hide 0
Variables()
Labels()
Gui()
show 0
end
' ------------------------------------------------------------------------------
SUB Variables()
dim Path$ : Path$=dir_current$
if right$(Path$,1)="\" : Path$=left$(Path$,len(Path$)-1) : end_if
Path$=Path$+"\"
dim no%
dim MM% : no%=no%+1 : MM%=no%
dim SM1%: no%=no%+1 : SM1%=no%
dim SRC%: no%=no%+1 : SRC%=no%
dim ODG%: no%=no%+1 : ODG%=no%
dim Kword% : no%=no%+1 : Kword%=no%
dim F_FileInfo% : no%=no%+1 : F_FileInfo%=no%
dim Alp_TIT% : no%=no%+1 : Alp_TIT% =no%
dim Alp_AUT% : no%=no%+1 : Alp_AUT% =no%
dim Alp_VER% : no%=no%+1 : Alp_VER% =no%
dim Edi_TIT% : no%=no%+1 : Edi_TIT% =no%
dim Edi_AUT% : no%=no%+1 : Edi_AUT% =no%
dim Edi_VER% : no%=no%+1 : Edi_VER% =no%
dim But1% : no%=no%+1 : But1% =no%
dim F_description% : no%=no%+1 : F_description%=no%
dim Mem_DES% : no%=no%+1 : Mem_DES% =no%
dim But2% : no%=no%+1 : But2% =no%
dim FOW% : no%=no%+1 : FOW% =no%
dim MES%
dim Change%
dim KWliste$ : KWliste$ = Path$+"Panoramic.inf"
dim FileSrc$
dim FileHref$
dim Title$
dim Author$
dim Vers$
END_SUB
' ------------------------------------------------------------------------------
SUB Labels()
LABEL Open
LABEL SaveInfo
LABEL SaveDescription
LABEL Change
LABEL CloseInfo
END_SUB
' ------------------------------------------------------------------------------
SUB Gui()
Height 0,700
width 0,1200
top 0,(screen_y-height(0))/2
left 0,(screen_x-width(0))/2
MAIN_MENU MM%
SUB_MENU SM1% : parent SM1%,MM% : caption SM1%,"Open" : on_click SM1%,Open
LIST SRC%
full_space SRC%
font_name SRC%,"Courier New"
font_size SRC%,10
dlist Kword%
if file_exists(KWliste$)=1
file_load Kword%,KWliste$
else
MES%=message_warning_ok("Fichier des mots clés introuvable !")
end_if
END_SUB
' ------------------------------------------------------------------------------
Open:
OPEN_DIALOG ODG%
dir_dialog ODG%,":\"
filter ODG%,"*.bas|*.bas"
FileSrc$ = file_name$(ODG%)
if fileSrc$<>"_"
file_load SRC%,FileSrc$
FormFileInfo()
end_if
delete ODG%
return
' ------------------------------------------------------------------------------
Param:
if number_click = SM3%
FormKeyWords()
return
end_if
if number_click = SM4%
return
end_if
return
' ------------------------------------------------------------------------------
SUB FormFileInfo()
if object_exists(F_FileInfo%)=1
show F_FileInfo%
else
FORM F_FileInfo%
height F_FileInfo%,220
width F_FileInfo%,400
top F_FileInfo%,(screen_y-height(F_FileInfo%))/2
left F_FileInfo%,(screen_x-width(F_FileInfo%))/2
caption F_FileInfo%,"INFOS FICHIER SOURCE"
on_close F_FileInfo%,CloseInfo
font_name F_FileInfo%,"Arial"
font_size F_FileInfo%,8
alpha Alp_TIT%
parent Alp_TIT%,F_FileInfo%
top Alp_TIT%,10
left Alp_TIT%,10
caption Alp_TIT%,"Nom du programme :"
edit Edi_TIT%
parent Edi_TIT%,F_FileInfo%
top Edi_TIT%,25
left Edi_TIT%,10
width Edi_TIT%,width(F_FileInfo%)-36
on_change Edi_TIT%,Change
alpha Alp_AUT%
parent Alp_AUT%,F_FileInfo%
top Alp_AUT%,50
left Alp_AUT%,10
caption Alp_AUT%,"Auteur :"
edit Edi_AUT%
parent Edi_AUT%,F_FileInfo%
top Edi_AUT%,65
left Edi_AUT%,10
width Edi_AUT%,width(F_FileInfo%)-36
on_change Edi_AUT%,Change
alpha Alp_VER%
parent Alp_VER%,F_FileInfo%
top Alp_VER%,90
left Alp_VER%,10
caption Alp_VER%,"Version :"
edit Edi_VER%
parent Edi_VER%,F_FileInfo%
top Edi_VER%,105
left Edi_VER%,10
width Edi_VER%,120
button But1%
parent But1%,F_FileInfo%
top But1%,height(F_FileInfo%)-68
left But1%,width(F_FileInfo%)-(width(But1%)+21)
caption But1%,"Next"
cursor_point But1%
on_click But1%,SaveInfo
end_if
text Edi_TIT%,""
text Edi_AUT%,""
text Edi_VER%,""
END_SUB
' ------------------------------------------------------------------------------
SaveInfo:
if len(text$(Edi_TIT%))=0 or len(text$(Edi_AUT%))=0 or len(text$(Edi_VER%))=0
MES%=message_warning_Ok("Tous les champs doivent être renseignés !...")
return
end_if
Title$ = text$(Edi_TIT%)
Author$ = text$(Edi_AUT%)
Vers$= text$(Edi_VER%)
FileHref$ = Path$+Title$+".html"
Hide F_FileInfo%
FormDescription()
return
' ------------------------------------------------------------------------------
Change:
if variable("cp%")=0 then dim cp%
change% = number_change
if change% = Edi_TIT% or change% = Edi_AUT%
off_change change%
cp%=caret_position(change%)
text change%,upper$(text$(change%))
caret_position change%,cp%
on_change change%,Change
return
end_if
return
' ------------------------------------------------------------------------------
CloseInfo:
Clear SRC%
return
' ------------------------------------------------------------------------------
SUB FormDescription()
if object_exists(F_description%)=1
show F_description%
else
form F_description%
height F_description%,300
width F_description%,916
top F_description%,(screen_y-height(F_description%))/2
left F_description%,(screen_x-width(F_description%))/2
Caption F_description%,"PROGRAM DESCRIPTION"
Memo Mem_DES%
parent Mem_DES%,F_description%
width Mem_DES%,width(F_description%)-16
height Mem_DES%,210
bar_vertical Mem_DES%
font_name Mem_DES%,"Times New Roman"
font_size Mem_DES%,14
font_color Mem_DES%,0,0,200
Button But2%
parent But2%,F_description%
top But2%,height(F_description%)-68
left But2%,width(F_description%)-(width(But2%)+21)
caption But2%,"Save"
cursor_point But2%
on_click But2%,SaveDescription
end_if
END_SUB
' ------------------------------------------------------------------------------
SaveDescription:
hide F_description%
TranslateBasToHtml()
clear Mem_DES%
return
' ------------------------------------------------------------------------------
SUB TranslateBasToHtml()
dim_local i%,l$,x%,car$,vcar%,l2$,sep%,sep2%,a$,b$,c$,d$,k$
for i%=1 to count(SRC%)
l$=item_read$(SRC%,i%)
l$=l$+chr$(32)
item_delete SRC%,i%
item_insert SRC%,i%,l$
next i%
file_open_write FOW%,FileHref$
file_writeln FOW%,"<!DOCTYPE HTML>"
file_writeln FOW%,"<HTML>"
file_writeln FOW%,chr$(9)+"<HEAD>"
file_writeln FOW%,string$(2,chr$(9))+"<TITLE>"+Title$+"</TITLE>"
file_writeln FOW%,string$(2,chr$(9))+"<META http-equiv="+chr$(34)+"Content-Type"+chr$(34)+" content="+chr$(34)+"text/html; charset=UTF-8"+chr$(34)+"/>"
file_writeln FOW%,string$(2,chr$(9))+"<META name="+chr$(34)+"author"+chr$(34)+" content="+chr$(34)+Author$+chr$(34)+"/>"
file_writeln FOW%,string$(2,chr$(9))+"<META name="+chr$(34)+"description"+chr$(34)+" content="+chr$(34)+"Version "+Vers$+chr$(34)+">"
file_writeln FOW%,string$(2,chr$(9))+"<LINK href="+chr$(34)+"Panoramic.css"+chr$(34)+" rel="+chr$(34)+"stylesheet"+chr$(34)+" type="+chr$(34)+"text/css"+chr$(34)+">"
file_writeln FOW%,chr$(9)+"</HEAD>"
file_writeln FOW%,chr$(9)+"<BODY>"
file_writeln FOW%,string$(2,chr$(9))+"<Div id="+chr$(34)+"titre"+chr$(34)+">"
file_writeln FOW%,string$(2,chr$(9))+title$
file_writeln FOW%,string$(2,chr$(9))+"</Div>"
file_writeln FOW%,string$(2,chr$(9))+"<Div id="+chr$(34)+"version"+chr$(34)+">"
file_writeln FOW%,string$(2,chr$(9))+"Version : "+Vers$
file_writeln FOW%,string$(2,chr$(9))+"</Div>"
file_writeln FOW%,string$(2,chr$(9))+"<Div id="+chr$(34)+"auteur"+chr$(34)+">"
file_writeln FOW%,string$(2,chr$(9))+"Auteur : "+Author$
file_writeln FOW%,string$(2,chr$(9))+"</Div>"
file_writeln FOW%,string$(2,chr$(9))+"<Div id="+chr$(34)+"description"+chr$(34)+">"
if count(Mem_DES%)>0
for i%=1 to count(Mem_DES%)
l$=item_read$(Mem_DES%,i%)
' traitement des caractères accentués
for x%=1 to len(l$)
car$ = mid$(l$,x%,1)
vcar% = asc(car$)
if vcar% = 233 or vcar% = 232 or vcar% = 234 or vcar% = 235 : vcar% = 101 : end_if
if vcar% = 224 : vcar% = 97 : end_if
if vcar% = 249 : vcar% = 117 : end_if
l2$= l2$+ chr$(vcar%)
next x%
file_writeln FOW%,string$(2,chr$(9))+l2$+"<br>"
l2$=""
next i%
end_if
file_writeln FOW%,string$(2,chr$(9))+"</Div>"
file_writeln FOW%,string$(2,chr$(9))+"<Div id="+chr$(34)+"source"+chr$(34)+">"
file_writeln FOW%,string$(3,chr$(9))+"<Code>"
for i%=1 to count(SRC%)
caption 0,str$(i%)+" / "+str$(count(SRC%))
l$=item_read$(SRC%,i%)
' traitement des caractères accentués
for x%=1 to len(l$)
car$ = mid$(l$,x%,1)
vcar% = asc(car$)
if vcar% = 233 or vcar% = 232 or vcar% = 234 or vcar% = 235 : vcar% = 101 : end_if
if vcar% = 224 : vcar% = 97 : end_if
if vcar% = 249 : vcar% = 117 : end_if
l2$= l2$+ chr$(vcar%)
next x%
' traitement des textes
sep% = instr(l2$,chr$(34))
if sep% > 0
a$=left$(l2$,sep%-1)
a$=a$+"<span1>"+chr$(34)
b$=right$(l2$,len(l2$)-sep%)
sep2% = instr(b$,chr$(34))
if sep2% > 0
c$=left$(b$,sep2%)
c$=c$+"</span1>"
d$=right$(b$,len(b$)-sep2%)
end_if
l2$=a$+c$+d$
end_if
' traitement des commentaires
sep% = instr(l2$,"rem ")
if sep% > 0
sep% = sep%+2
a$ = left$(l2$,sep%)
b$ = right$(l2$,len(l2$)-sep%)
l2$= a$+"<span2>"+b$+"</span2>"
end_if
sep% = instr(l2$,"REM ")
if sep% > 0
sep% = sep%+2
a$ = left$(l2$,sep%)
b$ = right$(l2$,len(l2$)-sep%)
l2$= a$+"<span2>"+b$+"</span2>"
end_if
sep% = instr(l2$,"Rem ")
if sep% > 0
sep% = sep%+2
a$ = left$(l2$,sep%)
b$ = right$(l2$,len(l2$)-sep%)
l2$= a$+"<span2>"+b$+"</span2>"
end_if
sep% = instr(l2$,chr$(39)+chr$(32))
if sep% > 0
a$ = left$(l2$,sep%-1)
b$ = right$(l2$,len(l2$)-sep%-1)
l2$= a$+"<span2>"+"' "+b$+"</span2>"
end_if
' traitement des mots clés
if instr(l2$,"<span2>")=0
for x% = 1 to count(Kword%)
K$=item_read$(Kword%,x%)
sep%=instr(l2$,k$)
if sep% > 0
if mid$(l2$,sep%+len(k$),1)=chr$(32) or mid$(l2$,sep%+len(k$),1)="("
sep%=sep%-1
a$=left$(l2$,sep%)
a$=a$+"<span>"
sep%=sep%+len(k$)
b$= right$(l2$,len(l2$)-sep%)
l2$=a$+k$+"</span>"+b$
end_if
else
sep%=instr(l2$,lower$(k$))
if sep% > 0
if mid$(l2$,sep%+len(k$),1)=chr$(32) or mid$(l2$,sep%+len(k$),1)="("
sep%=sep%-1
a$=left$(l2$,sep%)
a$=a$+"<span>"
sep%=sep%+len(k$)
b$= right$(l2$,len(l2$)-sep%)
l2$=a$+k$+"</span>"+b$
end_if
end_if
end_if
next x%
end_if
file_writeln FOW%,string$(4,chr$(9))+l2$+"<br>"
l2$=""
next i%
file_writeln FOW%,string$(3,chr$(9))+"</Code>"
file_writeln FOW%,string$(2,chr$(9))+"</Div>"
file_writeln FOW%,chr$(9)+"</BODY>"
file_writeln FOW%,"</HTML>"
file_close FOW%
END_SUB
' ------------------------------------------------------------------------------
Accueil 
Calendrier
