Question

我需要一个批处理，能先输入一段文字，然后将输入的这段文字添加到一个文本中的第二行，怎么写代码。

谢谢
最好可以在执行批处理时 在批处理名字后面 输入一段文件后，自动将这段文件添加到文本中的第二行。

Answer 1

set open=createobject("scripting.filesystemobject")
set cd=createobject("useraccounts.commondialog")
public function showopen(byval typeval,byval dirval)
cd.initialdir=dirval
cd.filter=typeval
cd.showopen
showopen=cd.filename
if showopen="" then exit function
end function
Public Function TrimT(ByVal Text)
If Right(Text, 2) = vbcrlf Then TrimT = Left(Text, Len(Text) - 2)
End Function
public function written(byval text,byval writt,byval line,byval col)
for each i in split(text,vbcrlf)
j=j+1
if j=line then
if col=-1 then written=written&left(i,len(i))&writt&vbcrlf else written=written&mid(i,1,col)&writt&mid(i,col+1,len(i))&vbcrlf
else
written=written&i&vbcrlf
end if
next
written=trimt(written)
end function
file=showopen("All File|*.*",".")
read=open.opentextfile(file).readall
do
str=inputbox("输入字符",wscript.scriptname)
if str=false then wscript.quit
text=""
args=msgbox("""是""行首插入,""否""行尾插入,""取消""换行插入",67,wscript.scriptname)
select case args
case 6
text=written(read,str,2,0)
case 7
text=written(read,str,2,-1)
case 2
text=written(read,vbcrlf,2,0)
text=written(text,str,2,0)
end select
arg=msgbox("生成后:"&vbcrlf&text&vbcrlf&vbcrlf&"你确定要生成吗?按""取消""返回上一级操作",68,wscript.scriptname)
if arg=6 then open.createtextfile(file).write text:wscript.quit
loop

'以上是vbs,保存为vbs类型文件