Cet article est un article miroir de traduction automatique, veuillez cliquer ici pour accéder à l’article original.

Vue: 6158|Répondre: 0

Ajoutez des caractères en bloc avant chaque ligne dans un fichier texte txt

[Copié le lien]
Publié sur 04/02/2015 13:25:21 | | |

'=================================================================
set arg=WScript.Arguments
si arg.count=0 alors
msgbox « Usage :"&vbcrlf&vbcrlf& » N’exécutez pas ce script directement, glissez-déposer simplement un ou plusieurs fichiers qui doivent être remplacés par des chaînes de caractères sur ce fichier script.
wscript.quit
fin si
Set FSO=Wscript.CreateObject(« Scripting.FileSystemObject »)
Set FR=fso.OpenTextFile(arg(0),1)
Set fw=fso.createtextfile(« temp.txt »,2)
data=inputbox(« Veuillez entrer le caractère que vous avez ajouté avant la ligne : »)
faire
fw.writeline(data&fr.readline)
boucle jusqu’à fr.atendofstream
fr.close
fw.close
Set FR=fso.OpenTextFile(« temp.txt »,1)
Set fw=fso.createtextfile(arg(0),2)
faire
fw.writeline(fr.readline)
boucle jusqu’à fr.atendofstream
fr.close
fw.close
fso.deletefile(« temp.txt »)
'====================================================
Copiez le contenu ci-dessus et enregistrez-le en fichier VBS, faites glisser le document que vous souhaitez modifier dans ce fichier VBS, vous pouvez entrer les caractères que vous souhaitez ajouter, confirmer après avoir saisi, ouvrir votre document, et vous verrez que chaque ligne de votre texte a ajouté les données que vous venez de saisir.




Précédent:Il existe trois instructions d’insertion SQL courantes
Prochain:Importez le fichier txt vers SQL SERVER 2008
Démenti:
Tous les logiciels, supports de programmation ou articles publiés par Code Farmer Network sont uniquement destinés à l’apprentissage et à la recherche ; Le contenu ci-dessus ne doit pas être utilisé à des fins commerciales ou illégales, sinon les utilisateurs assumeront toutes les conséquences. Les informations sur ce site proviennent d’Internet, et les litiges de droits d’auteur n’ont rien à voir avec ce site. Vous devez supprimer complètement le contenu ci-dessus de votre ordinateur dans les 24 heures suivant le téléchargement. Si vous aimez le programme, merci de soutenir un logiciel authentique, d’acheter l’immatriculation et d’obtenir de meilleurs services authentiques. En cas d’infraction, veuillez nous contacter par e-mail.

Mail To:help@itsvse.com