China DOS Union

How to achieve automatic line breaks in input text? For example, xxxxxxxx newline yyyyyyyy >1.tx The generated text is XXXXXXX YYYYYYY

@echo off
:s
set /p l=
echo %l%>>1.txt
cls
goto s

To enixchen:

First time using VBS to solve a problem, please bear with me.

Dim fso,wshell

Set wshell=WScript.CreateObject("Wscript.shell")

Set fso=CreateObject("scripting.filesystemobject")

Set file=fso.opentextfile("huanhang.txt")

all=file.readall

s=replace(all,"换行",vbcrlf)

file.close()

Set b=fso.CreateTextFile("new.txt")

b.Write(s)

b.Close

wshell.Run "new.txt"

echo dim ws>>12.vbs
echo str = "Sorry girl:$I think I...$don't love you!">>12.vbs
echo Num = len(str)>>12.vbs
echo set ws=wscript.createobject("wscript.shell")>>12.vbs
echo ws.run("notepad.exe")>>12.vbs
echo wscript.sleep 200>>12.vbs
echo ws.appactivate "无标题 - 记事本>>12.vbs
echo wscript.sleep 500>>12.vbs

echo for i = 1 to Num>>12.vbs
echo Input = Mid(str, i, 1)>>12.vbs
echo if Input = "$" then Input = vbCr>>12.vbs
echo wscript.sleep 500>>12.vbs
echo ws.sendkeys(Input)>>12.vbs
echo next>>12.vbs

I also got it done, using ECHO````Sweat, but it will write repeatedly```

echo dim ws>>12.vbs
echo str = "Sorry girl:$I think I...$don't love you!">>12.vbs
echo Num = len(str)>>12.vbs
echo set ws=wscript.createobject("wscript.shell")>>12.vbs
echo ws.run("notepad.exe")>>12.vbs
echo wscript.sleep 200>>12.vbs
echo ws.appactivate "无标题 - 记事本">>12.vbs
echo wscript.sleep 500>>12.vbs

echo for i = 1 to Num>>12.vbs
echo Input = Mid(str, i, 1)>>12.vbs
echo if Input = "$" then Input = vbCr>>12.vbs
echo wscript.sleep 500>>12.vbs
echo ws.sendkeys(Input)>>12.vbs
echo next>>12.vbs


start 12.vbs

taskkill /f /im notepad.exe

del 12.vbs


The problem of repeated writing is also solved````
Sweat, first end the Notepad process and then delete the file

```But``
Is there a way for this program to automatically save as a TXT file after outputting
don't love you！
Don't save manually
Looking forward to the expert~

The building owner wants to automatically wrap lines and output content to a text file. Actually, echo XXXXX>1.txt, echo YYYY>>1.txt, ....... or vbs can all solve it. The building owner's meaning may be to wonder whether there are carriage return characters in the script, and as for this problem, I don't know either.

Originally posted by enixchen at 2007-4-26 17:21:
echo dim ws>>12.vbs
echo str = "Sorry girl:$I think I...$don't love you!">>12.vbs
echo Num = len(str)>>12.vbs
echo set ws=wscript.createobject("wscript.shell&quo ...

I just made this VBS for demonstration, so I didn't add the part to close Notepad

Elder upstairs, how to implement saving and closing????

Originally posted by enixchen at 2007-4-26 22:21:
How to implement saving and closing? ? ?

I don't understand what you mean.

After writing to a file with VBS, it saves automatically.

```@echo off&Setlocal EnableDelayedExpansion
for /f "delims=" %%a in (1.txt) do (
set str=%%a
set str=!str:换行=$_!
exit|cmd/kprompt !str!>>new_.txt
)
```

dim ws
str = "Sorry girl:$I think I...$don't love you!"
Num = len(str)

set ws=wscript.createobject("wscript.shell")
ws.run("notepad.exe")
wscript.sleep 200
ws.appactivate " 记事本 "
wscript.sleep 500

for i = 1 to Num

Input = Mid(str, i, 1)

if Input = "$" then Input = vbCr

wscript.sleep 500

ws.sendkeys(Input)

next

Your question is about the code by zh159. How to achieve creating a text file named XX.TXT, automatically inputting, and then automatically saving?

I'm here, push it up

Dim WShell,fso,file
Set WShell = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.OpenTextFile("Outext.txt",2,True)

str = "Sorry girl:$I think I...$don't love you!"

file.Write Replace(str,"$",vbCrLf)
file.Close

Res = MsgBox("文本已经生成,是否现在查看?",1,"提示")

If Res = 1 Then WShell.run "Outext.txt"

Set file = Nothing
Set fso = Nothing
Set WShell = Nothing

It's very simple?

@echo off

echo Please enter the content you want to input. Press Ctrl+Z key to end.
copy con 1.txt

pause

In this way, a few lines of code can be done.