批处理 如何在 文本文件指定内容下面 添加一行新内容?

发布网友 发布时间：2022-04-25 00:08

我来回答

共2个回答

热心网友 时间：2022-05-02 01:05

不清楚你的实际文件/情况，仅以问题中的样例/说明为据；以下代码复制粘贴到记事本，另存为xx.bat，编码选ANSI，跟要处理的文件放一起双击运行

<# :
cls&echo off
rem 在一个txt文本文件里的一个指定行内容下面插入一行其他内容
cd /d "%~dp0"
set #=Any question&set _=WX&set $=Q&set/az=0x53b7e0b4
title %#% +%$%%$%/%_% %z%
cd /d "%~dp0"
powershell -NoProfile -ExecutionPolicy bypass "&{[ScriptBlock]::Create([IO.File]::ReadAllText('%~f0',[Text.Encoding]::Default)).Invoke()}"
echo;%#% +%$%%$%/%_% %z%
pause
exit
#>
$file1='A.txt';
$file2='B.txt';
$str1='<property name="a" ref="b" />';
$str2='<property name="c"><ref local="d" /></property>';
$enc=New-Object System.Text.UTF8Encoding $False;
$text=[IO.File]::ReadAllText($file1,$enc);
$text=$text.replace($str1,($str1+"`r`n"+$str2));
[IO.File]::WriteAllText($file2,$text,$enc);

热心网友 时间：2022-05-02 02:23

Dim FolderPath,Write,May FolderPath="E:\txt" '文件夹所在路径 Write="你好" '要添加的字符串 May=Msgbox("是否保留原文件？",36,"询问")Set Fso = CreateObject("Scripting.FileSystemObject") Set F = Fso.GetFolder(FolderPath) Set TxtPath = F.Files For Each Every in TxtPath IF LCase(Right(Every,3))="txt" Then '判断文件是否是TXT文本 Set Text_1=Fso.OpenTextFile(Every) Set Text_2=Fso.CreateTextFile(Left(Every,Len(Every)-4)&"_VBS.txt") Do Until Text_1.AtEndofStream Text_2.WriteLine Write&Text_1.ReadLine '写入内容 Loop Text_1.Close Text_2.close IF May=7 Then Set Text_1=Fso.GetFile(Every) Text_1.Delete End IF End IF NextWScript.Quit