FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» Panoramic et ses curiosités
par Jean Claude Aujourd'hui à 21:48

» Synedit Parameters
par Jean Claude Aujourd'hui à 21:15

» Utilitaire de suppression de fichiers
par Jean Claude Aujourd'hui à 21:11

» Code à vérifier SVP (Oups ! résolu)
par Jean Claude Hier à 21:16

» Compilateur FBPano
par jean_debord Hier à 9:56

» Bienvenue à Virtualalan !
par UltraVox Hier à 9:18

» Concours de Morpions
par jjn4 Hier à 0:04

» ShortName$(F) [Cloturé]
par papydall Mer 21 Juin 2017 - 16:19

» Remplacer espace par tiret dans noms des dossiers / fichiers
par papydall Mer 21 Juin 2017 - 15:27

» Menu personalisé avec icones et menu contextuel
par Laurent (Minibug) Mer 21 Juin 2017 - 12:44

» La liste des choses à faire ...
par Jack Mar 20 Juin 2017 - 22:49

» Quoi de neuf à propos de Goric 3D ? (@Jack)
par UltraVox Mar 20 Juin 2017 - 21:06

» Nom court et anti fenetre dos
par silverman Mar 20 Juin 2017 - 18:31

» Ludothèque Panoramic
par jjn4 Mar 20 Juin 2017 - 18:09

» Proposition à la communauté
par Yannick Mar 20 Juin 2017 - 15:02

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Juin 2017
LunMarMerJeuVenSamDim
   1234
567891011
12131415161718
19202122232425
2627282930  
CalendrierCalendrier

Partagez | 
 

 Remplacer une sous-chaîne de caractères par une autre

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
papydall

avatar

Nombre de messages : 5384
Age : 66
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Remplacer une sous-chaîne de caractères par une autre   Sam 1 Fév 2014 - 12:55

Panoramic dispose de plusieurs fonctions sur les chaînes de caractères.
Mais comme toujours, il n’y a jamais assez pour subvenir à tous les besoins.
A titre d’exemple : comment remplacer dans une chaîne de caractères, une sous-chaîne par une autre ?
Soit t$ = "Voici un exemple d’utilisation de ma procédure"
Je veux remplacer "exemple" par "test" pour obtenir "Voici un test d’utilisation de ma procédure".

Le code suivant présente une SUB qui réalise cette fonction.
On peut remplacer soit la 1ère occurrence du mot à remplacer soit toutes les occurrences de ce même mot.

L’appel à la SUB se fait comme ceci :
Code:
Remplace(t$,s1$,s2$)
t$ est la chaîne d’origine,
s1$ est la sous chaîne à remplacer
s2$ est la sous-chaîne de remplacement.
Le résultat se trouve dans la variable globale remplace$

Code:

rem ============================================================================
rem                     Remplace.bas par Papydall
rem   Remplacer dans le texte t$, la 1ère occurence (ou toutes les occurences)
rem               de la chaine s1$ par la chaine s2$
rem ============================================================================
dim t$,s1$,s2$,t1$
t$ = "Ceci est un exemple d'utilisation de la SUB Remplace(t$,s1$,s2$): exemple réussi "

s1$ = "exemple"
s2$ = "test"
t1$ = t$
rem ============================================================================
' Exemple d'appel pour remplacer la 1ère occurence de s1$ :
' Remplace(t$,s1$,s2$) : t$ = remplace$
rem ============================================================================
' Exemple d'appel pour remplacer toutes les occurences de s1$
while instr(t$,s1$) > 0 : Remplace(t$,s1$,s2$) : t$ = remplace$ : end_while
rem ============================================================================
 
message "Texte original : " + t1$ + chr$(13) + "On va remplacer " + s1$+" par "+ s2$+chr$(13)+"Texte final : " + t$

end

rem ============================================================================
' Remplacer dans le texte T$, la chaîne S1$ par la chaîne S2$
' Le retour est dans la variable globale REMPLACE$
' Cette procédure (utilisée comme fonction) remplace la 1ère occurence de S1$
' par S2$ dans T$.
' REMARQUE :
' Pour remplacer toutes les occurences de S1$ par S2$ dans T$, l'appel se fera
' comme ceci :
' while instr(t$,s1$) > 0 : Remplace(t$,s1$,s2$) : t$ = remplace$ : end_while
rem ============================================================================
SUB Remplace(t$,s1$,s2$)
    dim_local f$,retour$,g$
    if variable("remplace$") = 0 then DIM remplace$
    f$ = "c:\temp\replace.vbs" : retour$ = "c:\temp\retour.txt" : g$ = chr$(34)
    FILE_OPEN_WRITE 9999, f$
    file_writeln 9999, "Function Replace(string_1,strPattern, strReplaceString)"
    file_writeln 9999, "Set regEx = New RegExp"
    file_writeln 9999, "regEx.Pattern = strPattern"
    file_writeln 9999, "Replace = regEx.Replace(string_1,strReplaceString)"
    file_writeln 9999, "retour = Replace"
    file_writeln 9999, "End Function"
    file_writeln 9999, "Set fso = CreateObject("+g$+"Scripting.FileSystemObject"+g$+")"
    file_writeln 9999, "Set MyFile = fso.CreateTextFile("+g$+retour$+g$+", True)"
    file_writeln 9999, "MyFile.WriteLine(Replace("+g$+t$+g$+","+g$+s1$+g$+","+g$+s2$+g$+"))"
    file_writeln 9999, "MyFile.Close"
    FILE_CLOSE 9999
    EXECUTE_WAIT f$ : FILE_DELETE f$
    file_open_read 9999,retour$ : file_readln 9999,Remplace$
    file_close 9999 : file_delete retour$

END_SUB
rem ============================================================================

Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
bignono

avatar

Nombre de messages : 1079
Age : 60
Localisation : Val de Marne
Date d'inscription : 13/11/2011

MessageSujet: Re: Remplacer une sous-chaîne de caractères par une autre   Sam 1 Fév 2014 - 17:58

bonjour Papydall,  Smile 
Remplacer un chaine par une autre ça déjà du être fait sous panoramic. Je ne sais pas si Nardo avait fait une sub pour cela?
En tout cas, voici ma contribution, une petite sub vite faite:
Spoiler:
 
Mais ta procédure est valable pour remplacer par exemple tous les mots d'un texte (exemple ==> test).
A +  Wink Wink Wink
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jean Claude

avatar

Nombre de messages : 4933
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Remplacer une sous-chaîne de caractères par une autre   Sam 1 Fév 2014 - 20:05

Les deux sont bien,
S'il n'y a qu'un seul mot à changer celle de Bignono est bien plus légère.
Mais celle de Papydall, est la plus efficace pour un éditeur de texte.

Bravo!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5384
Age : 66
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Remplacer une sous-chaîne de caractères par une autre   Sam 1 Fév 2014 - 21:10

Voici  un code qui remplace tout un bloc de texte par un autre bloc dans un fichier texte.

L’appel à la sub se fait comme ceci :
Code:
 remplace_block(source$,destination$,recherche$,remplace$)
en transmettant les 4 paramètres qui ont la signification suivante :
Source$ est le nom complet (nom et chemin) du fichier texte à modifier. Si le chemin est omis, le programme considère qu’il s’agit du répertoire en cours.
Destination$ est le nom complet (nom et chemin)  du fichier texte résultant après modification. Si le chemin est omis, le programme considère qu’il s’agit du répertoire en cours.
Recherche$ est le bloc de texte à modifier.
Remplace$  est le bloc de texte de remplacement.

Si le fichier source est introuvable, un message d'alerte sera affiché et le programme s'arrête.
Si le bloc de texte à modifier n'existe pas dans la source, le fichier destination restera inchangé.

Exemple :
Vous disposez du fichier texte suivant qui est enregistré sur C:\temp\invitation_source.txt
Code:

Chers Panoramiciens et Panoramiciennes

Pour fêter l'arrivée du compilateur Panoramic, l'association Panoramicale a le plaisir de vous inviter à son Panoramic Party, le  
dimanche 02 Février à partir de 16 heurs ( heure Panoramicienne)

A cette occasion, notre cher Jean Claude nous organisera un grand méchoui Panoramicien.
Vous pouvez venir nombreux, vos amis sont les bienvenus.
Une participation de deux SUB bien codées sera demandée.

Vous voulez remplacer toutes les occurrences de Panoramic par langage Panoramic
L’appel se fait ainsi :

Code:
 remplace_block("c:\temp\invitation_source.txt","c:\temp\invitation_destination.txt","Panoramic","langage Panoramic")

Si tout va bien, vous obtenez un fichier c:\temp\invitation_destination.txt que je vous laisse découvrir le contenu.


Avant d'oublier, voici le code en question :

Code:

REM ============================================================================
REM                     replace_block_of_text.bas
'        remplacer n'importe quoi dans un fichier texte, par n'importe quoi
REM ============================================================================
' Exemple d'appel :
remplace_block("c:\temp\invitation_source.txt","c:\temp\invitation_destination.txt","Panoramic","langage Panoramic")


REM ============================================================================

END
REM ============================================================================
' Remplacer un bloc de texte par un autre bloc de texte dans un fichier texte
' Paramètres :
' Source$      : nom du fichier texte à modifier
' Destination$ : nom du fichier texte modifié
' Recherche$   : bloc de texte à remplacer
' Remplace$    : bloc de texte de remplacement
' ==============================================================================
' Si le fichier source n'existe pas, il y aura un message d'alerte et arrêt du script
' Si le bloc de texte à remplacer n'existe pas dans le fichier source,
' le fichier destination sera identique au fichier source
REM ============================================================================
SUB remplace_block(source$,destination$,recherche$,remplace$)
    dim_local f$,g$
    f$ = "c:\temp\replace_block_of_text.vbs"
    g$ = chr$(34)
REM ============================================================================
    FILE_OPEN_WRITE 9999, f$
    file_writeln 9999, "Option Explicit"
    file_writeln 9999, "Dim oFSO"
    file_writeln 9999, "Set oFSO = CreateObject(" + g$ + "Scripting.FileSystemObject" + g$ + ")"
    file_writeln 9999, "if oFSO.FileExists("+g$+source$+g$+") then"
    file_writeln 9999, "Main"
    file_writeln 9999, "Else"
    file_writeln 9999, "MsgBox " +g$+"Le fichier "  + source$  +" n'existe pas."+g$+",48"+","+g$+"!!! ERREUR !!!" +g$
    file_writeln 9999, "wscript.quit"
    file_writeln 9999, "end if"
REM ============================================================================
    file_writeln 9999, "Sub Main"
    file_writeln 9999, "Dim f, sSourceFile, sDestFile, sSearch, sReplace, sText1, sText2"
    file_writeln 9999, "sSourceFile = " + g$ + source$ + g$
    file_writeln 9999, "sDestFile = " + g$ + destination$ + g$
    file_writeln 9999, "sSearch =  " + g$ + recherche$ + g$
    file_writeln 9999, "sReplace = " + g$ + remplace$ + g$
    file_writeln 9999, "Set f = oFSO.OpenTextFile(sSourceFile)"
    file_writeln 9999, "sText1 = FileReadAll(sSourceFile)"
    file_writeln 9999, "sText2 = Replace(sText1, sSearch, sReplace)"
    file_writeln 9999, "SaveToFile sText2, sDestFile"
    file_writeln 9999, "Wscript.Echo _"
    file_writeln 9999,  g$ + "Texte avant : " + g$ + " & Len(sText1) & " + g$ + " caractères, " + g$ + " & _ "
    file_writeln 9999,  g$+g$ + "texte après : " + g$ + " & Len(sText2) & " + g$ + " caractères (résultat dans " + g$ + " & sDestFile & " + g$ + ")." + g$ + "
    file_writeln 9999, "End Sub"
REM ============================================================================
   file_writeln 9999, "Function FileReadAll(sFile)"
   file_writeln 9999, "Dim f"
   file_writeln 9999, "Set f = oFSO.OpenTextFile(sFile)"
   file_writeln 9999, "FileReadAll = f.ReadAll"
   file_writeln 9999, "f.Close"
   file_writeln 9999, "End Function"
REM ============================================================================
   file_writeln 9999, "Sub SaveToFile(sText, sFile)"
   file_writeln 9999, "Dim f"
   file_writeln 9999, "Set f = oFSO.CreateTextFile(sFile)"
   file_writeln 9999, "f.Write sText"
   file_writeln 9999, "f.Close"
   file_writeln 9999, "End Sub"
REM ============================================================================
   FILE_CLOSE 9999
   EXECUTE_WAIT f$ : FILE_DELETE f$
END_SUB
REM ============================================================================

PS : Comme contenu du fichier source, ce n'est pas original! Embarassed
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
JL35



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

MessageSujet: Re: Remplacer une sous-chaîne de caractères par une autre   Sam 1 Fév 2014 - 22:03

Mais si, seulement ça fait un peu juste pour le méchoui chez Jean-Claude demain. Je vais essayer de me libérer..
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jean Claude

avatar

Nombre de messages : 4933
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Remplacer une sous-chaîne de caractères par une autre   Sam 1 Fév 2014 - 22:57

Question méchoui, je pense que Papydall est très certainement plus connaisseur que moi.

Mais, question couscous, çà se discute.

à propos, pour ceux qui se pointeraient, demain, chez moi, c'est OK, l'entrée est de 10€ (c'est pas cher).
Le repas est de 100€ sans les vins, sans le dessert et sans le café. (Je ne parle pas des digestifs)
Compte tenu du délai plus que bref qui m'est imposé, je suis contrains d'ajouter un supplément pour le billet d'avion de Papydall, et un autre supplément pour le fournisseur local qui devra me fournir un mouton dans l'urgence. Ça ne devrait pas dépasser les 300€ de supplément.
Compte tenu de l'urgence, (qui n'est pas de mon fait), vous devez vous inscrire sur ce poste avant 21h (il est 20h57).

 lol! 
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jean Claude

avatar

Nombre de messages : 4933
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Remplacer une sous-chaîne de caractères par une autre   Sam 1 Fév 2014 - 23:01

Bon, il est 21h et personne ne s'est inscrit, çà sera pour une autre fois.

 lol!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5384
Age : 66
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Remplacer une sous-chaîne de caractères par une autre   Dim 2 Fév 2014 - 1:13

Bon, bin, merci jean Claude pour l’offre bon marché que tu nous faites  mais s’il y a une proposition meilleur marché j’y adhère, moi !

Hé, à propos, personne n’a commenté ma SUB !  Laughing 
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
bignono

avatar

Nombre de messages : 1079
Age : 60
Localisation : Val de Marne
Date d'inscription : 13/11/2011

MessageSujet: Re: Remplacer une sous-chaîne de caractères par une autre   Dim 2 Fév 2014 - 10:43

Hello Papydall!  Smile 
J'ai fait une petite sub pour faire la même chose que tu nous proposes! A vous de rajouter les tests d'existence ou non des fichiers source.txt et destination.txt . J'ai essayé avec un fichier texte de plus de 10 Mo, ça fonctionne, mais presque 1 minute pour faire tout le travail.
voilà le fichier source.txt:
Code:
Voici un petit texte d'essai:

Il était une fois un marchand de salades qui essayait de vendre des radis. Un jour, on lui
amena un radis vert. Il s'écria: "Oh! Mon Dieu!, ce n'est pas un radis rouge!"
Depuis ce jour, il ne vend plus que des radis noirs! Fin de l'histoire des radis.
Moralité: Il vaut mieux continuer à vendre des salades que devenir marchand de radis!

et voici mon code:
Spoiler:
 

Bon, il faut que je continue à vendre mes salades! lol! lol! lol! 
Ça me reviendra moins cher que le méchoui!
A+  Wink Wink Wink
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5384
Age : 66
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Remplacer une sous-chaîne de caractères par une autre   Dim 2 Fév 2014 - 12:05

Bonjour à tous les marchands de salades et à tous les spécialistes du méchoui.   Laughing 

Même si je poste un code assez médiocre ( ! ) , il y a toujours quelqu’un qui en sort des meilleurs !
Donc je gagne à tous les coups.
Merci bignono.
Tes radis qui deviennent des tapis sont meilleurs que mon méchoui ; hé oui ; c’est bien ainsi et j’en suis ravi, alors merci.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Jean Claude

avatar

Nombre de messages : 4933
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Remplacer une sous-chaîne de caractères par une autre   Dim 2 Fév 2014 - 13:07

Je dois admettre que ton usine à gaz, Papydall, s'est trouvée sévèrement simplifiée par Bignono.  Very Happy 

Néanmoins, comme tu le dit, tout le monde y à gagné.

Ça m'a permis de voir que sous W8 il n'y a pas de C:\temp, mais il y a C:\Windows\temp.

A+
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



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

MessageSujet: Re: Remplacer une sous-chaîne de caractères par une autre   Dim 2 Fév 2014 - 13:13

?
Je suis sous W7, mais il me semble que c'est pareil pour tout le monde, il n'y a pas de C:\Temp d'office si on ne l'a pas créé...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5384
Age : 66
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Remplacer une sous-chaîne de caractères par une autre   Dim 2 Fév 2014 - 13:38

Sous XP aussi il y a du c:\Windows\temp et c’est le temp de Windows ; moi je préfère mon temp à moi !
A chacun son temp non ?

Question usine à gaz, Bignono n’a même pas besoin d'un simple étalage.

Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Jean Claude

avatar

Nombre de messages : 4933
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Remplacer une sous-chaîne de caractères par une autre   Dim 2 Fév 2014 - 14:03

Autant pour moi, j'ai bêtement cru que ce dossier "temp" existait d'office.

Bon, c'est l'heure d'attaquer la botte de radis !  Very Happy 

A+
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



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

MessageSujet: Re: Remplacer une sous-chaîne de caractères par une autre   Lun 3 Fév 2014 - 23:23

@bignono
Tu vas me dire que je cherche la petite bête, mais dans ton exemple essaie de remplacer "radis" par "radis noirs"...
ça boucle...
Je verrais plutôt une sub du genre (tout intégré, et non pas une sub qui en appelle une autre):
Code:
SUB Remplace(b$,c$,source$,destination$)
' remplacer la séquence b$ par c$ dans le fichier source$, résultat dans le fichier destination$
dim_local a$,aa$,k%,u%
file_open_read 1,source$: file_open_write 2,destination$
while file_eof(1) = 0
    file_readln 1,a$
    k% = INSTR(a$, b$)
    WHILE k% > 0
        a$ = LEFT$(a$, k%-1)+c$+MID$(a$,k%+LEN(b$),500)
        u% = k%+LEN(c$): aa$ = MID$(a$, u%, 500)
        k% = INSTR(aa$, b$): IF k% = 0 THEN EXIT_WHILE
        k% = k% + u% -1
    END_WHILE
    file_writeln 2,a$
end_while
file_close 1: file_close 2
end_sub
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
bignono

avatar

Nombre de messages : 1079
Age : 60
Localisation : Val de Marne
Date d'inscription : 13/11/2011

MessageSujet: Re: Remplacer une sous-chaîne de caractères par une autre   Mar 4 Fév 2014 - 10:52

Bonjour JL35,  Smile 
Tu as tout à fait raison de chercher la petite bête! Cela prouve que mon code n'était pas infaillible. Donc, j'ai revu ma copie! Et pour ce faire j'ai créé un nouveau fichier source pour transformer mes "radis" en "radis noir", que voilà:
Code:
Voici un petit texte d'essai:

1 radis + 1 radis + 1 radis + 1 radis + 1 radis = 5 radis.
Et combien font 10 x 5 radis?
Sûrement pas 50 radis! Ni 10 radis + 10 radis + 10 radis + 10 radis + 10 radis!
Cela fait tout simplement une botte de radis!
une fois transformé, cela devient:
Code:
Voici un petit texte d'essai:

1 radis noirs + 1 radis noirs + 1 radis noirs + 1 radis noirs + 1 radis noirs = 5 radis noirs.
Et combien font 10 x 5 radis noirs?
Sûrement pas 50 radis noirs! Ni 10 radis noirs + 10 radis noirs + 10 radis noirs + 10 radis noirs + 10 radis noirs!
Cela fait tout simplement une botte de radis noirs!
Voici mon code source revu et corrigé :
Code:
dim b$,c$
height 0,545

' Substituer les mots "radis noirs" au mot "radis"!
b$="radis" : c$="radis noirs"

remplace(b$,c$,"c:\temp\source.txt","c:\temp\destination.txt")

' Pour vérifier le résultat
memo 3:width 3,580:height 3,250:file_load 3,"c:\temp\source.txt"
memo 4:width 4,580:height 4,250:top 4,253:file_load 4,"c:\temp\destination.txt"
end

SUB Remplace(b$,c$,source$,destination$)
' remplacer la séquence b$ par c$ dans le fichier source$, résultat dans le fichier destination$
   dim_local a$,d$,k,h
   file_open_read 1,source$ : file_open_write 2,destination$
   while file_eof(1)=0
      file_readln 1,a$
         k=instr(a$,b$) : d$=right_pos$(a$,k+len(b$))
      repeat
         if k>0
            a$=left$(a$,k-1)+c$+d$ : k=instr_pos(a$,d$,1) : h=instr(d$,b$)
            if h>0
               k=k+h-1:d$=right_pos$(a$,k+len(b$))
            else
               k=0
            end_if
         end_if
      until k=0
      file_writeln 2,a$
   end_while
   file_close 1 : file_close 2
end_sub
Après, vous avez le choix.
- Ou vous renommez destination.txt en source.txt et vous continuez à transformer vos radis en radis noirs: cela donne des radis noirs noirs, puis des radis noirs noirs noirs, etc...
- Ou alors vous renommez destination.txt en source.txt et dans le code vous inversez b$ et c$ soit b$="radis noirs" et c$="radis" et par miracle vous retrouvez le premier texte d'origine!
J'ai vérifié aussi si mes radis se transformait en tapis!  lol! 

Ouf! Quelle histoire! Bon je remballe mon " />

pour continuer à vendre mes " />
 Laughing Laughing Laughing 
A+  Wink Wink Wink
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



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

MessageSujet: Re: Remplacer une sous-chaîne de caractères par une autre   Mar 4 Fév 2014 - 15:36

On frôle l'indigestion de radis, mais j'aime beaucoup mieux comme ça !
Ce problème de remplacement d'une chaîne par une autre qui contient la première ça revient régulièrement...
Comme les radis...

Bon, je ne vais pas être radin, je te mets un 10/10
Après l'Enfer, le (Pa)radis (je me demande s'il y en a là-bas... des radis... malgré le nom...)
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Remplacer une sous-chaîne de caractères par une autre   

Revenir en haut Aller en bas
 
Remplacer une sous-chaîne de caractères par une autre
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Agrandir titre d'un sous-forum et/ou le remplacer par une image
» Image des sous forum et bouton résolu
» Recherche de chaînes de caractères : FINDSTR
» Tri de chaînes de caractères
» message d'un sous-forum à déplacer vers un autre sous-forum

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