FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC
Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  RechercherRechercher  Dernières imagesDernières images  S'enregistrerS'enregistrer  MembresMembres  Connexion  
Derniers sujets
» demande explication KGF pour imprimer en mm
Recherches dans un fichier texte Emptypar lepetitmarocain Aujourd'hui à 12:55

» Petit passage furtif
Recherches dans un fichier texte Emptypar Froggy One Hier à 14:26

» SPIN et aide langage (résolu)
Recherches dans un fichier texte Emptypar leclode Sam 23 Mar 2024 - 15:20

» Aide-mémoire des mots-clés Panoramic
Recherches dans un fichier texte Emptypar papydall Mer 20 Mar 2024 - 21:23

» Je ne comprend pas pourquoi la largeur de la scene 3d change
Recherches dans un fichier texte Emptypar Marc Mar 12 Mar 2024 - 20:06

» Comment télécharger panoramic?
Recherches dans un fichier texte Emptypar lepetitmarocain Sam 9 Mar 2024 - 13:31

» @lepetitmarocain <==> KGFGrid
Recherches dans un fichier texte Emptypar Klaus Dim 3 Mar 2024 - 9:59

» Tangram-Toukaré
Recherches dans un fichier texte Emptypar jjn4 Mer 28 Fév 2024 - 18:12

» Editeur EliP 6 : Le Tiny éditeur avec 25 onglets de travail
Recherches dans un fichier texte Emptypar jjn4 Mer 28 Fév 2024 - 18:09

» KGF_dll - nouvelles versions
Recherches dans un fichier texte Emptypar Klaus Mer 28 Fév 2024 - 17:01

» Mes souhaits d'amélioration de Panoramic.
Recherches dans un fichier texte Emptypar Pedro Lun 26 Fév 2024 - 18:12

» Testez-votre-QI
Recherches dans un fichier texte Emptypar jjn4 Dim 25 Fév 2024 - 17:12

» Utilisation d'Élip
Recherches dans un fichier texte Emptypar jjn4 Sam 24 Fév 2024 - 18:33

» Récapitulatif ludothèque panoramic jjn4
Recherches dans un fichier texte Emptypar jjn4 Sam 24 Fév 2024 - 18:11

» Générateur de mots de passe
Recherches dans un fichier texte Emptypar mindstorm Mar 20 Fév 2024 - 20:09

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Mars 2024
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
25262728293031
CalendrierCalendrier
-15%
Le deal à ne pas rater :
(Adhérents) LEGO® Icons 10318 Le Concorde
169.99 € 199.99 €
Voir le deal

 

 Recherches dans un fichier texte

Aller en bas 
3 participants
AuteurMessage
JL35




Nombre de messages : 7089
Localisation : 77
Date d'inscription : 29/11/2007

Recherches dans un fichier texte Empty
MessageSujet: Recherches dans un fichier texte   Recherches dans un fichier texte EmptyDim 20 Mai 2018 - 9:38

Il est beaucoup plus facile de lire le fichier entier dans une variable unique, et de faire dans cette variable les recherches, remplacements, suppressions, insertions, etc. avec les fonctions de traitement de chaînes.
C'est vraiment simple et rapide, grâce à la commande 'type':
Code:
FileToString("C:\TEXTES\Lorem.txt"): ' un fichier quelconque
message str$(len(buf$)): ' pour voir
END
' -----
SUB FileToString(f$)
  ' Copie d'un fichier de type texte f$ dans une chaîne buf$
  IF VARIABLE("buf$") = 0 THEN DIM buf$
  EXECUTE_WAIT "cmd.exe /c type "+CHR$(34)+f$+CHR$(34)+" | clip"
  buf$ = CLIPBOARD_STRING_PASTE$
END_SUB

On peut ensuite réécrire éventuellement la chaîne modifiée dans un fichier texte résultat, en une seule fois (File_Writeln'. (noter que l'écriture ajoute un retour chariot interligne à la fin)
Revenir en haut Aller en bas
silverman

silverman


Nombre de messages : 968
Age : 51
Localisation : Picardie
Date d'inscription : 18/03/2015

Recherches dans un fichier texte Empty
MessageSujet: Re: Recherches dans un fichier texte   Recherches dans un fichier texte EmptyDim 20 Mai 2018 - 10:21

Je confirme puisque c'est ainsi que je procède Smile
Revenir en haut Aller en bas
Oscaribout




Nombre de messages : 471
Date d'inscription : 29/12/2016

Recherches dans un fichier texte Empty
MessageSujet: Re: Recherches dans un fichier texte   Recherches dans un fichier texte EmptyDim 20 Mai 2018 - 15:50

Juste une remarque.

Si on veut lire le contenu entier d'un memo:

Code:
FileToString("C:\TEXTES\Lorem.txt"): ' un fichier quelconque
message str$(len(buf$)): ' pour voir
' autre posssibilité:
memo 10 : full_space 10:file_load 10,"z:\prg_teste_debog.txt"
message str$(len(text$(10)))
END
' -----
SUB FileToString(f$)
   ' Copie d'un fichier de type texte f$ dans une chaîne buf$
   IF VARIABLE("buf$") = 0 THEN DIM buf$
   EXECUTE_WAIT "cmd.exe /c type "+CHR$(34)+f$+CHR$(34)+" | clip"
   buf$ = CLIPBOARD_STRING_PASTE$
END_SUB

La fonction TEXT$() est une fonction pour EDIT, mais elle fonctionne aussi pour un memo, même si cela devrait provoquer une erreur.

Text$(10) (ici) prend le contenu entier d'un memo.
Revenir en haut Aller en bas
JL35




Nombre de messages : 7089
Localisation : 77
Date d'inscription : 29/11/2007

Recherches dans un fichier texte Empty
MessageSujet: Re: Recherches dans un fichier texte   Recherches dans un fichier texte EmptyDim 20 Mai 2018 - 20:18

Exact Oscaribout, ça donne exactement le même résultat d'une façon encore plus simple, et il me semble, plus rapide !

On peut juste éventuellement ajouter un HIDE 10 derrière le MEMO 10, pour que ce soit plus discret.

Et finalement j'adopte ta solution qui est meilleure que la mienne et plus discrète (pas d'affichage, même si c'est bref, de fenêtre noire)
Code:
DIM f$: f$ = "C:\TEXTES\Lorem.txt"
FileToString_ex(f$): ' un fichier quelconque
message "Ancien_ "+str$(len(buf$)): ' pour voir
buf$ = ""
' autre posssibilité:
FileToString(f$)
message "Nouveau_ "+str$(len(buf$))
END
' -----
SUB FileToString_ex(f$)
   ' Copie d'un fichier de type texte f$ dans une chaîne buf$
   IF VARIABLE("buf$") = 0 THEN DIM buf$
   EXECUTE_WAIT "cmd.exe /c type "+CHR$(34)+f$+CHR$(34)+" | clip"
   buf$ = CLIPBOARD_STRING_PASTE$
END_SUB
' Nouvelle formule :
SUB FileToString(f$)
   ' Copie d'un fichier de type texte f$ dans une chaîne buf$
   ' (Merci Oscaribout !)
   IF VARIABLE("buf$") = 0 THEN DIM buf$
   MEMO 9000: HIDE 9000: WIDTH 9000,2000: FILE_LOAD 9000,f$
   buf$ = TEXT$(9000): DELETE 9000
END_SUB
C'est vrai que le TEXT$(N) n'est pas prévu pour un MEMO, mais si ça marche, autant en profiter.
Revenir en haut Aller en bas
Contenu sponsorisé





Recherches dans un fichier texte Empty
MessageSujet: Re: Recherches dans un fichier texte   Recherches dans un fichier texte Empty

Revenir en haut Aller en bas
 
Recherches dans un fichier texte
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Recherches de textes dans le forum français Panoramic
» Remplacer un article dans un fichier texte
» Rechercher une séquence dans un fichier texte
» Camoufler un fichier texte dans une image
» Recherches dans le forum

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Vos sources, vos utilitaires à partager-
Sauter vers: