Re!
Bon voila j´ai fait un lanceur de .txt pour psp il marche mais je n´arrive a faire a sorte que sa aille a la ligne au bout de 57 caractére !
comment faire ?
Voici le prog
color = Color.new(0,0,255) --Déclaration d´une couleur d´après RGB (red-green-blue) , ici bleue
fondimg = Image.load("back.png") --Déclaration d´un objet image, charge l´image dans le dossier du script du nom de "back.png" . L´objet s´appelle fondimg. C´est comme une référence pour l´emplacement en mémoire de "back.png"
--Déclaration de la fonction délai. Une fonction permet d´exécuter plusieur action en appelant seulement le nom. delai permet de mettre une pause de x seconde
function delai(x)
local t = Timer.new() --Création d´un timer
t:start()
while t:time()<(x*1000) do
end
t:reset()
t = nil
end
--Vérification des données
local folder = System.listDirectory() --Enregistrement des objet présent dans le dossier (fichier, dossier)
local result = {}
if folder~=nil then --Vérification du résultant, nil veut dire vide (pas 0)
for i=1,table.getn(folder) do --Table.getn renvoie la taille d´un tableau
if folder[i].directory == false then --Tableau "folder", position "i", champ "directory"
table.insert(result, folder[i]) --Table.insert insert dans result l´élément de à la positon "i" du tableau "folder"
end
end
folder = nil
result = {{name = "test.txt", size = 12, directory = false},{name = "lisezmoi.txt", size = 12, directory = false}}
for i=1,table.getn(result) do
if string.lower(string.sub(result[i].name, -4))~=".txt" then --string.lower transforme toutes les majuscules en minuscules (pour évité des erreurs d´extension) ; string.sub découpe une partie d´une chaine (chaine : variable constituéé d´ensemble de lettre)
table.remove(result, i) --Efface l´élément "i" du tableau "result"
end
end
if result~=nil then
pad = Controls.read() --Création d´un objet de détection des touches
local pos, oldpos = 1, 0 --Position et AnciennePosition
while not(pad:cross()) do
pad = Controls.read()
if pad:up()then pos = pos-1; delai(0.2) end
if pad:down()then pos = pos+1; delai(0.2) end
if pos>table.getn(result) then pos = table.getn(result) end
if pos<1 then pos = 1 end
if oldpos~=pos then --Rafraichit l´écran si la position à changé
oldpos = pos
screen:clear() --Efface l´écran
screen:blit(0,0,fondimg) --Fonction d´affichage
screen:print(10,10,"Quelle fichier?")
for i=1,table.getn(result) do
screen:print(20, 18 + 16*i, tostring(i).." : "..tostring(result[i].name)) --tostring convertit une variable du type : true, false, 34, nil en text -> "true" "false" "34" "nil"
end
screen:print(155, 10, pos)
screen.flip() --Fonction de rafaraichissement de l´écran (double buffer) /!\IMPORTANTE
screen.waitVblankStart() --Foncion d´attente... /!\ IMPORTANTE
end
end
--Affichage
file = io.open(result[pos].name) --Fonction d´ouverture de fichier
i = 0
screen:blit(0,0, fondimg)
repeat
tmp = file:read("*l")
if tmp~=nil then
if string.byte(string.sub(tostring(tmp), -1))==13 then --string.yte renvoie le code ASCII correspondant au caractère
screen:print(10, 2+10*i, string.sub(tostring(tmp), 1, string.len(tostring(tmp))-1), color) --string.len renvoie le nombre de caractère d´une chaine
else
screen:print(10, 2+10*i, tostring(tmp), color)
end
end
i = i + 1
until tmp == nil
screen.flip()
screen.waitVblankStart()
delai(100)
else
screen:print(10,10, "Pas de fichier texte")
delai(3)
end
end
mais vous n´avez pas de tuto comme celui de kufa en fr ?