encore un probleme avec mon logiciel traitement texte

Nombre de messages : 44 Date d'inscription : 08/03/2012

comme dit ce matin je suis en train s’asseye de creer un petit logiciel de traitement de texte

quel est la commande pour créer un fichier dans lequel on peut écrire

regarder mon code et dites moi ce qui va pas

Code:: rem éditeur de texte par François Maestrati

rem -------------------------------------------------------------------
rem DECLARATION DES VARIABLES

rem -------------------------------------------------------------------
rem DECLARATION DES LABELS

label nouveau

rem --------------------------------------------------------------------
rem DEBUT DU PROGRAMME

caption 0,"TextEditBasic"

main_menu 1
sub_menu 2 : caption 2,"fichier" : parent 2,1
sub_menu 3 : caption 3,"édition" : parent 3,1

sub_menu 4 : caption 4,"nouveau" : parent 4,2
on_click 4, nouveau

sub_menu 5 : caption 5,"ouvrir" : parent 5,2
sub_menu 6 : caption 6,"sauvegarder" : parent 6,2
sub_menu 7 : caption 7,"imprimer" : parent 7,2
sub_menu 8 : caption 8,"fermer" : parent 8,2

sub_menu 9 : caption 9,"couper" : parent 9,3
sub_menu 10 : caption 10,"copier" : parent 10,3
sub_menu 11 : caption 11,"coller" : parent 11,3

combo 12 : top 12,10 : left 12,10 : text 12,"police"

combo 13 : top 13,10 : left 13,180 : text 13,"taille"
item_add 13,"8": item_add 13,"10": item_add 13,"12": item_add 13,"14"

combo 14 : top 14,10 : left 14,340 : text 14,"couleur"
item_add 14,"bleu": item_add 14,"rouge": item_add 14,"vert"
item_add 14,"violet"

end

nouveau:
file_open_write 16,texte
show 16
return

voici l' erreur quand je clique sur nouveau " object does not exist not create line 53

pourtant grâce file_open_write je cree l'objet adéquate non ?

merci

Oh, c'est très clair ! Tu ouvres un fichier en création avec le numéro 16. Or, ce numéro est un idenifiant de fichier, un peu comme un numéro de canal dans les anciens Basic, en Fortran, ... Ce n'est pas du tout un objet Panoramic, et donc la commande SHOW ne peut pas agir dessus. L'objet 16 n'est pas encore créé - c'est normal. Tu pourrais tout aussi bien utiliser 1 comme numéro de canal - il n'y a aucun lien entre canaux et objets Panoramic.

Honnétement, ton exemple n'a pas beaucoup de sens, je pense que tu as retiré trop de bouts...

nouveau:
file_open_write 16,texte
show 16
return

=> Tu veux écrire texte dans le fichier ou texte contient le nom de ton fichier ?
=> Bon dans le code ci dessous, je suppose que tu veux écrire une chaine contenu dans la variable texte$ dans un fichier

Il faudrait ajouter
dim Texte$,NomFichier$
Nomfichier$ = "config.txt"
Texte$ = "Ceci est un test d'écriture"

...

nouveau:
file_open_write 16,Nomfichier$
file_writeln 16,Texte$
file_close 16
return

Nombre de messages : 44 Date d'inscription : 08/03/2012

ce que je voulais exactement et ouvir un fichier text nommé texte pour que l'utilisateur puisse écrire dedans genre wordpad sous windows

Ca ne marche pas comme ça. Tu ouvres un memo par exemple.
Après tu charges la chaine Texte$ avec ce que tu veux écrire
Donc dans ce cas, ton nouveau t'afficherais une form qui contient un memo
Après seulement, quand tu chercherais à écrire, tu ferais
file_open_write 16,Nomfichier$
file_writeln 16,Texte$
file_close 16

Nombre de messages : 44 Date d'inscription : 08/03/2012

je pourrais peut etre créer un objet système mémo quand on clic k sur nouveau je le rend visible l'utilisateur pourrais écrire dedans puis le tout serais sauvegarder dans un fichier texte après utilisation

Nombre de messages : 44 Date d'inscription : 08/03/2012

je viens de voir ton message c'est presque similaire a ma réponse j vais asseye je posterais quand ce seras fini

Nombre de messages : 44 Date d'inscription : 08/03/2012

j'ai modifié le code voila ce que ça donne pour le moment l'utilisateur peut taper du texte

Code:: rem éditeur de texte par François Maestrati

rem -------------------------------------------------------------------
rem DECLARATION DES VARIABLES

rem -------------------------------------------------------------------
rem DECLARATION DES LABELS

label nouveau

rem --------------------------------------------------------------------
rem DEBUT DU PROGRAMME

caption 0,"TextEditBasic"
maximize 0

main_menu 1
sub_menu 2 : caption 2,"fichier" : parent 2,1
sub_menu 3 : caption 3,"édition" : parent 3,1

sub_menu 4 : caption 4,"nouveau" : parent 4,2
on_click 4, nouveau

sub_menu 5 : caption 5,"ouvrir" : parent 5,2
sub_menu 6 : caption 6,"sauvegarder" : parent 6,2
sub_menu 7 : caption 7,"imprimer" : parent 7,2
sub_menu 8 : caption 8,"fermer" : parent 8,2

sub_menu 9 : caption 9,"couper" : parent 9,3
sub_menu 10 : caption 10,"copier" : parent 10,3
sub_menu 11 : caption 11,"coller" : parent 11,3

combo 12 : top 12,10 : left 12,10 : text 12,"police"

combo 13 : top 13,10 : left 13,180 : text 13,"taille"
item_add 13,"8": item_add 13,"10": item_add 13,"12": item_add 13,"14"

combo 14 : top 14,10 : left 14,340 : text 14,"couleur"
item_add 14,"bleu": item_add 14,"rouge": item_add 14,"vert"
item_add 14,"violet"

end

nouveau:
memo 15: top 15, 70: left 15,30: width 15,800 : height 15,600
return

maintenant il me reste plus qu'as enregistrer dans une variable string ce que l'utilisateur à taper et le copié dans un fichier texte c'est ça ?

C'est ça, excuse pour le temps de réponse, mais je ne suis pas chez moi et je me connecte peu et pas longtrmps Wink

si tu rencontres un problème n'hésites pas à poser la questionmoi ou un autre te répondrons...

Nombre de messages : 44 Date d'inscription : 08/03/2012

mon projet n'as pas trop avancé si on appuie sur le menu nouveau un mémo apparait ça sa marche mais je ne sais pas du tout comment faire pour que ce qui est tapé dans le mémo soit enregistrer dan un ficher texte

voila mon code source

Code:: rem éditeur de texte par François Maestrati

rem -------------------------------------------------------------------
rem DECLARATION DES VARIABLES
dim Texte$,NomFichier$
NomFichier$ ="nouveau"

rem -------------------------------------------------------------------
rem DECLARATION DES LABELS

label nouveau
label sauvegarder

rem --------------------------------------------------------------------
rem DEBUT DU PROGRAMME

caption 0,"TextEditBasic"
maximize 0

main_menu 1
sub_menu 2 : caption 2,"fichier" : parent 2,1
sub_menu 3 : caption 3,"édition" : parent 3,1

sub_menu 4 : caption 4,"nouveau" : parent 4,2
on_click 4, nouveau

sub_menu 5 : caption 5,"ouvrir" : parent 5,2
sub_menu 6 : caption 6,"sauvegarder" : parent 6,2
sub_menu 7 : caption 7,"imprimer" : parent 7,2
sub_menu 8 : caption 8,"fermer" : parent 8,2

sub_menu 9 : caption 9,"couper" : parent 9,3
sub_menu 10 : caption 10,"copier" : parent 10,3
sub_menu 11 : caption 11,"coller" : parent 11,3

combo 12 : top 12,10 : left 12,10 : text 12,"police"

combo 13 : top 13,10 : left 13,180 : text 13,"taille"
item_add 13,"8": item_add 13,"10": item_add 13,"12": item_add 13,"14"

combo 14 : top 14,10 : left 14,340 : text 14,"couleur"
item_add 14,"bleu": item_add 14,"rouge": item_add 14,"vert"
item_add 14,"violet"

file_open_write 16,Nomfichier$

end

nouveau:
memo 15: top 15, 70: left 15,30: width 15,800 : height 15,600
return

sauvegarder:
file_save 15,Nomfichier$
file_writeln 16,Texte$
file_close 16
return

Invité

Bonjour Lucifor31,
Je vais te répondre:

Pour un memo, comme pour un list, ou un dlist, et c'est également vrai pour un picture (à condition que pour ce dernier, cela se termine entre-autre par .bmp), la solution est simple:

pour ouvrir un fichier existant:
FILE_LOAD numéro du memo (ou autre),"nom du fichier.txt". L'extension c'est selon ta volonté.

Pour sauvegarder, avec par exemple memo 15:
FILE_SAVE 15,"nom du fichier.txt"

Tu peux ouvrir une boite de dialog pour choisir un nom, mais c'est un objet, donc il faut la définir dans les objets:
OPEN_DIALOG numéro_de l'objet. exemple: open_dialog 10

A partir de là tu peux aussi vouloir choisir les extentions pour éviter de lister tous les fichiers d'un dossier, avec FILTER N,T

Un exemple:

Code:: ' définir les objets
MEMO 1
OPEN_DIALOG 2
SAVE_DIALOG 3

rem lire la boite de dialogue pour choisir un nom
FILTER 3,"sauvegarder un fichier texte|*.txt;*.ini" :' filter 3, 3 étant open_dialog
f$ = FILENAME$(3)
if f$ <> "_" then file_save 1,f$

Ici tu peux laisser file_write de côté

@cosmos 70
Quant on écrit vite on fait des fautes de frappes.

@Lucifor 31
Une petite correction dans l’exemple de Cosmos 70 : ligne 8

Code:: f$ = FILE_NAME$(3)

Et pour être fonctionnel, je me suis permis de compléter ainsi

Code:: dim f$
' définir les objets
MEMO 1
item_add 1,"LIGNE 1" : item_add 1,"LIGNE 2" : item_add 1,"ETC..."
OPEN_DIALOG 2
SAVE_DIALOG 3
rem lire la boite de dialogue pour choisir un nom
FILTER 3,"sauvegarder un fichier texte|*.txt;*.ini" :' filter 3, 3 étant open_dialog
f$ = FILE_NAME$(3)
if f$ <> "_" then file_save 1,f$

Invité

Ah! Papydall. Mere si, je vé pouvoire fère plin de fote dortografe. Jé un corecteur qui me survaille. ai come jé p'as peure dè zérho, je suye a la rhetraite, j'é plu peure. Very Happy

J'ai réédité. J'ai vu que j'avais fait des fautes d'orthographe. Cela peut parfois être un vrai problème chez moi. Embarassed

Merci de m'avoir corrigé. J'ai pas corrigé les fautes, vu que je n'arrive pas à me relire. Very Happy

Gé né pa parlé dé fote dortografe, kar gé men fou, bien ke par foi gé né con pran pa se con vous lait dir à koz din francé total ment 1 quorrekt. A l’or gé ferme lé zieu é gé ré pète la fraze a hote voi é la gé con pren mieu.
Pour moy le fran sé né pa ma lengue ma terre nel mai gesseye tou jour de crir avek le moin de fote gramatikal.
La lengue fran 16 é tune bel lengue é gé a pri sur tou à lecrir mieu ke la par laid.

Plus sérieusement, j’ai simplement corrigé FILENAME$ en FILE_NAME$ puisque l’exemple donné est surtout destiné à celui qui demande comment faire.
D’ailleurs j’ai parlé de faute de frappe et non d’orthographe.

Merci d’avoir pris la peine de déchiffrer mon charabia.

gé vou promé ke gé né criré plu kom se si

lol!

Invité

Enfin Papydall, Il n'y a pas de moquerie de ma part. J'ai bien vu la faute sur FILE_NAME$, et tu avais raison d'intervenir. Et je n'en suis pas offuqué. J'ai commencé à te répondre normalement, et j'ai tout effacé, pour rire un peu. Tu aimes la plaisanterie, et moi aussi. Aussi je n'avais pas pensé que tu sois choqué. C'est pas l'heure, autrement on aurait été boire un peau Very Happy

et tout serait rentré dans l'ordre. Allez je me recouche. J'ai du me lever à cause d'une crampe.

Bravo les gars !

Vous êtes prêt pour apprendre le créole...
lol!

@Cosmos 70

Plaisanterie pour plaisanterie : moi je préfère boire un pot et non un peau car je ne suis pas choqué.

Soigne bien ta crampe.
Je sais qu’une crampe c’est très douloureux. J’en ai fais l’expérience.

@ygeronimi

lol!

Tu peux nous faire en PANORAMIC « le créole facile » ? Laughing

Je parle seulement 3 langues, malheureusement le Créole n'en fait partie...

Mais vous n'avez pas besoin de moi sur ce coup là, vous avez de très bonnes bases ...

lol!

Pas mal trois langues !
Pourtant la nature ne nous a donné qu’une seule !

Invité

Citation :: moi je préfère boire un pot et non un peau

Je suis surpris que tu ais cru que c'était involontaire. Le " Very Happy

" était en rapport avec "peau". Et bien tu es tombé dans le panneau!
Papydall est bien le correcteur officiel de mon écriture. Un jour j'aurai ta pot! lol!

Pour découvrir le pot aux roses, pas besoin de se déplacer à Pô ni à Pau, non plus à Paud.
Mais pour boire un pot, on ne doit pas laisser sa peau !

» Problème de traitement des opérateurs avec le compilateur.
» Problème avec select case Probleme réglé merci
» Problème de lecture de fichier texte.
» [RÉSOLU] Afficher du texte enrichi avec PANORAMIC
» Problème installation logiciel