[R] Inserer un texte dans une ligne d'un .txt

[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 !

[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.

[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:

Code : Tout sélectionner

http://www.megaupload.com/?d=TL9tCYUG

devient

Code : Tout sélectionner

http://www.megaupload.com/mgr_dl.php?d=TL9tCYUG

Et cela pour tous les liens =)

Merci

[Iste]

Si vos liens MU mennent vers du contenu légale, alors commencez par lire tout votre .txt

Code : Tout sélectionner

$texte = FileRead("txt.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 !

Code : Tout sélectionner

FileWrite("neotxt.txt",$texte)

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

[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...

[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 =)