'Created by William N. Havard aka Nephthys
'Distributed under the CC BY-NA 3.0 licence (http://creativecommons.org/licenses/by-sa/3.0/)

let true = 1
let false = 0
 
'//Vérifie que la variable contient quelque chose
'notice empty(test$)
'if empty(test$) then
'   notice "Variable vide"
'else
'   notice "Variable pleine"
'end if
function empty(string$)
   if (string$="NULL") or (string$="")then
        empty=1
   else
        empty=0
   end if
end function
 
'//Récupère la chaine située après (0) ou avant (1) needle
'test$="USER@EXAMPLE.com"
'print strstr$(test$, "E", 0)
function strstr$(string$, needle$, val)
    lenString=len(string$)
    posFirstOcc=instr(string$, needle$)
 
    if val=0 then
        strstr$=right$(string$, lenString-posFirstOcc+1-len(needle$))
    else
        strstr$=left$(string$, posFirstOcc)
    end if
end function
 
'//Met chaque caractère d'un chaine dans un array
'/!\ Ne pas oublié d'utilisé STA dans la boucle while (pour lire le tabelau que ça soit ici ou ailleurs) et non i/p/z/etc. sinon bug.
'Utilisé STAi$ pour lire le tableau
'STA$=STA$("William")
'while empty(STAi$(STA))=false
'print STAi$(STA)
'STA=STA+1
'wend
function STA$(string$)
    GLOBAL STA
    lenS=len(string$)
    let STA=0
    redim STAi$(lenS)
 
    while (i<>lenS)
        STAi$(i)=left$(right$(string$,lenS-i),1)
        i=i+1
    wend
    STA$=STAi$
end function
 
'//Shuffle. Permet de mélanger les lettres à l'intérieur d'une chaine. Supp Espace (1)
'machin$="Je suis à la plage avec ma mère"
'print strShuffle$(machin$, 0)
function strShuffle$(string$, val)
    STA$=STA$(string$)
    lenS=len(string$)
 
    while (p<>lenS)
        rand=rand(0, lenS)
        if empty(STAi$(rand)) then
            p=p
        else
            if val=1 then
                chaine$=trim$(chaine$;STAi$(rand))
            else
                chaine$=chaine$;STAi$(rand)
            end if
            STAi$(rand)=""
            p=p+1
        end if
    wend
    strShuffle$=chaine$
end function
 
'//Première lettre d'une chaine en minuscule
function lcFirst$(string$)
    lenM=len(string$)
    lcFirst$=lower$(left$(string$,1));right$(string$, lenM-1)
end function
 
'//Première lettre d'une chaine en majuscule
function ucFirst$(string$)
    lenM=len(string$)
    ucFirst$=upper$(left$(string$,1));right$(string$, lenM-1)
end function
 
'//Première lettre de chaque mot en majuscule
function ucWords$(string$)
    STA$=STA$(string$)
    lenS=len(string$)
 while (p<>lenS)
        if p = 0 then
            chaine$=chaine$;upper$(STAi$(p))
        end if
        if p>0 then
            if STAi$(p-1)=chr$(32) then
                chaine$=chaine$;upper$(STAi$(p))
            else
                chaine$=chaine$;STAi$(p)
            end if
        end if
        p=p+1
 wend
 ucWords$=chaine$
end function
 
'//Supprime les espace à gauche de la chaine
function ltrim$(string$)
    STA$=STA$(string$)
    lenS=len(string$)
 
    while (p<>lenS)
        if empty(STAi$(p))=false then
            number=p
            exit while
        end if
        p=p+1
    wend
ltrim$=right$(string$, lenS-number)
end function
 
'//Supprime les espace à droite de la chaine
function rtrim$(string$)
    STA$=STA$(string$)
    lenS=len(string$)
 
    while (p<>lenS)
        if empty(STAi$(p))=false then
                while (p+i<>lenS)
                    if empty(STAi$(p+i)) then
                            number=p+i
                            exit while
                    end if
                    i=i+1
                wend
            exit while
        end if
        p=p+1
    wend
rtrim$=left$(string$, number)
end function
 
'Inverse l'ordre d'une chaine. Supp Espace (1)
function strrev$(string$, val)
    STA$=STA$(string$)
 
    while empty(STAi$(STA))=false
        STA=STA+1
    wend
    while STA<>-1
        chaine$=chaine$;STAi$(STA)
        STA=STA-1
    wend
 
    if val = 1 then
        strrev$=trim$(chaine$)
    else
        strrev$=chaine$
    end if
end function
 
'//Permet de répéter val fois string$
function strrepeat$(string$, val)
    for i=0 to val
        chaine$=chaine$;string$
    next i
    strrepeat$=chaine$
end function
 
'//Retourne string$ complétée à droite (0) ou à gauche (1) par padString$ jusqu'à ce que sa longueur soit égale à val
function strpad$(string$, padString$, val, pos)
    while lenS<>val
        chaine$=chaine$;padString$
        lenS=len(chaine$)
    wend
    if pos=1 then '//on remplit à gauche
        strpad$=chaine$;string$
    else '//on remplit à droite
        strpad$=string$;chaine$
    end if
end function
 
'//Function explode
'a$="       test1-test2-test3&test4&test5&test6&test7&test8&test9&test10&test11&test12&test13"
'explode$ = explode$(a$, "&")
'while i<explodei
'    if parametre$(i)<>"" then
'        print i;")";parametre$(i)
'    end if
'    i=i+1
'wend
function explode$(chaineSansSigne$, modifier$)
 
    GLOBAL explodei
 
    explodei=10
    dim parametre$(explodei)
 
    chaineSansSigne$=trim$(chaineSansSigne$;modifier$;"foo")
    chaineO$=chaineSansSigne$
 
    [loop]
    iP=0
    while instr(chaineSansSigne$, modifier$)<>0
 
        if iP=explodei then
            explodei=explodei+10     'Je rajoute par 10 et non 1 par 1 sinon ça ferait ramer le programme.
                                       'Faites le test en faisant une 20ene de c/c de a$ et en changant le 10 par un 1
            chaineSansSigne$=chaineO$
            redim parametre$(explodei)
            gosub [loop]
        end if
 
 
        a=instr(chaineSansSigne$, modifier$)
        b$=trim$(left$(chaineSansSigne$,a-1))
        c=len(b$)+1
        totallen=len(chaineSansSigne$)
        d$=right$(chaineSansSigne$,totallen-c)
        e$=trim$(d$)
 
        parametre$(iP)=b$
 
        chaineSansSigne$=e$
        iP=iP+1
    wend
end function
 
 
 
 
 
 
function rand(min,max)
    rand = int(rnd(1)*(max-min+1))+min
end function
 
 
 

 
string$ = "e"
 
if not(empty(string$)) then
    print "String is not null"
 else
    print "String is null"
end if
end
 
function empty(string$)
   if (string$="NULL") or (string$="")then
        empty=1
   else
        empty=0
   end if
end function
 
 
 
 

 
a$="345"
b$="---"
 
chaine$="123456789123456789"
print "En remplaçant ";a$;" par ";b$;" dans ";chaine$
print "   on obtient ";REMPLACE$(chaine$,a$,b$)
 
end
 
'***********************
function REMPLACE$(chain$,enlever$,remplacer$)
    enl=len(enlever$)
    cha=len(chain$)
    dercar=cha-enl+1
 
    for tour=1 to dercar
 
        if mid$(chain$,tour,enl)=enlever$ then
            deb$=left$(chain$,tour-1)
            fin$=right$(chain$,dercar-tour)
            chain$=deb$+remplacer$+fin$
        end if
 
    next
 
    REMPLACE$=chain$
    end function
 
 
 

 
a$="345"
b$="-"
 
chaine$="123456789123456789"
print "En remplaçant ";a$;" par ";b$;" dans ";chaine$
print "   on obtient ";REMPLACE$(chaine$,a$,b$)
 
end
 
'***********************
function REMPLACE$(chain$,enlever$,remplacer$)
    enl=len(enlever$)
    'cha=len(chain$)    'pas utile
    dercar=len(chain$)-enl+1
 
    for tour=1 to dercar
 
        if mid$(chain$,tour,enl)=enlever$ then
            deb$=left$(chain$,tour-1)
            fin$=right$(chain$,dercar-tour)
            chain$=deb$+remplacer$+fin$
            dercar=len(chain$)-enl+1    'il manquait cette maj
        end if
 
    next
 
    REMPLACE$=chain$
    end function
 
 

a$="1"
b$="11"
 
chaine$="123456789123456789"
print "En remplaçant ";a$;" par ";b$;" dans ";chaine$
print "   on obtient ";REMPLACE$(chaine$,a$,b$)
 
end
 
'***********************
function REMPLACE$(chain$,enlever$,remplacer$)
    enl=len(enlever$)
    cha=len(chain$)
 
    tour=1
    fini=0
    while fini=0
        dercar=cha-enl+1
        if mid$(chain$,tour,enl)=enlever$ then
            deb$=left$(chain$,tour-1)
            fin$=right$(chain$,dercar-tour)
            chain$=deb$+remplacer$+fin$
            cha=len(chain$)
        end if
 
        if tour>=cha then fini=1 else tour=tour+1
    wend
 
 
    REMPLACE$=chain$
    end function