Page 1 sur 1
[R] Inserer un texte dans une ligne d'un .txt
Posté : jeu. 17 sept. 2009 11:33
par astaroth
Hello!
Je cherche un script pour pouvoir modifier un fichier texte (ajout de caractère au milieu d'une phrase)
J'ai trouvé ca:
Code : Tout sélectionner
$var = FileOpenDialog("Choisissez le fichier à modifier", @DesktopDir, "Fichier txt (*.txt)", 1)
$FO = FileOpen($var, 0)
$FO2 = FileOpen(@ScriptDir & '\fichiermodifie.txt', 9)
$FR = FileRead($FO)
$SP = StringSplit($FR, @CR)
FileClose($FO)
$FO = FileOpen($var, 0)
For $i = 1 To $SP[0] -1
$FRL = FileReadLine($FO, $i)
$FWL = FileWriteLine($FO2, $FRL & "#@#" & @CR)
Next
FileClose($FO)
FileClose($FO2)
MsgBox(0,"test","Conversion efféctuée.")
c'est ce que je cherche, mais comment placer le texte au milieu d'une phrase?
ex:
"Une voiture rouge" je voudrais que #@# se place entre "voiture" et "rouge" =)
Merci !
Re: [..] Inserer un texte dans une ligne d'un .txt
Posté : jeu. 17 sept. 2009 14:08
par Tlem
Tout est possible, mais en fait il faudrait un peut plus d'élément.
Dans votre exemple, il y à trois mots, mais est-ce que toutes les phrases seront composées de la même manière ?
Le mot que vous devez rajouter à t-il une place déterminée dans chaque phrase.
Y à t-il un dénominateur commun à chaque cas ?
En fonction des réponses, nous pourront vous donner une solution au plus juste.
Re: [..] Inserer un texte dans une ligne d'un .txt
Posté : jeu. 17 sept. 2009 18:31
par astaroth
Alors en fait le fichier texte (.txt) va contenir des liens Mégaupload (1par ligne) et sans limite du nombre de lignes
dans ses liens je veux rajouté "mgr_dl.php" entre ".com/" et "?d" par exemple:
devient
Et cela pour tous les liens =)
Merci
Re: [..] Inserer un texte dans une ligne d'un .txt
Posté : jeu. 17 sept. 2009 19:27
par Iste
Si vos liens MU mennent vers du contenu légale, alors commencez par lire tout votre .txt
Puis remplacez les megaupload.com/ par des megaupload.com/mgr_dl.php
Code : Tout sélectionner
StringReplace ($texte,"megaupload.com/","megaupload.com/mgr_dl.php")
, puis ré-écrivez le tout !
Et dans le cas ou vous chercheriez a utilisez notre forum d'entraide pour vous facilité les tache dans vos acte de piraterie, sachez que nous ne vous aiderons pas
Re: [..] Inserer un texte dans une ligne d'un .txt
Posté : jeu. 17 sept. 2009 22:18
par Tlem
@astaroth
Le lien que vous citez :
http://www.megaupload.com/?d=TL9tCYUG
renvoi ceci :
Malheureusement, ce lien n'est pas disponible.
Raisons possibles :
- Lien invalide
- Ce fichier a été effacé pour viol de nos Conditions d'utilisation.
J'ose espérer que que c'est la première raison qui est la bonne...
Re: [..] Inserer un texte dans une ligne d'un .txt
Posté : jeu. 17 sept. 2009 23:24
par astaroth
Le lien est bidon ^^
Sinon j'ai fait ceci avec vos idée le script trouvé et l'aide d'autoit:
Code : Tout sélectionner
$var = FileOpenDialog("Choisissez le fichier à modifier", @DesktopDir, "Fichier txt (*.txt)", 1)
$FO = FileOpen($var, 0)
$1 = FileRead($FO)
$text = StringReplace($1, "http://www.megaupload.com/", "http://www.megaupload.com/mgr_dl.php")
$numreplacements = @extended
MsgBox(0, "", $numreplacements & "liens modifier")
$2 = FileSaveDialog ("Sauvegarder", @DesktopDir, "Fichier txt (*.txt)", 2, "New.txt")
FileWrite ($2, $text)
Merci pour votre aide =)