@Echo OFF & SetLocal EnableDelayedExpansion
 
Set    "inputFile=.\Archivo.txt"
Set /A "fileCount=1"
 
Echo [+] ".\ZZZ%fileCount%.txt"
For /F "UseBackQ Tokens=* Delims=" %%a In ("%inputFile%") Do (
 
	Set "line=%%~a"
	Echo !line!
	(Echo !line!)>>".\zzzz!fileCount!.txt"
	If /I "!line:~0,4!" EQU "N490" (
		Set /A "fileCount+=1"
		Echo+
		Echo [+] ".\ZZZ!fileCount!.txt"
	)
 
)
 
Pause&Exit /B 0

[+] ".\ZZZ1.txt"
ZZZ
 X0.0  Y0.0  Z30.0
M601
M2
G0 Z-100.0
N1  G1 X240.1 Y324.9 Z3.6 F2
N2  G1 X239.5 Y325.5 Z4.9 F2
N3  G1 X238.8 Y326.1 Z4.9 F2
N4  G1 X238.2 Y326.8 Z2.4 F2
N5  G1 X237.6 Y327.4 Z1.4 F2
N6  G1 X247.5 Y317.5 F2
N490  G1 X240.7 Y324.3 Z0.5 F2

[+] ".\ZZZ2.txt"
N1  G1 X240.1 Y324.9 Z3.6 F2
N2  G1 X239.5 Y325.5 Z4.9 F2
N3  G1 X238.8 Y326.1 Z4.9 F2
N4  G1 X238.2 Y326.8 Z2.4 F2
N5  G1 X237.6 Y327.4 Z1.4 F2
N6  G1 X237.0 Y328.0 Z0.9 F2
N490  G1 X236.4 Y328.6 Z0.7 F2

[+] ".\ZZZ3.txt"
N1 G1 X235.7 Y329.2 Z3.3 F2
N2  G1 X235.1 Y329.8 Z4.1 F2
N3  G1 X234.5 Y330.5 Z0.8 F2
N4  G1 X233.9 Y331.1 Z1.7 F2
N5  G1 X233.3 Y331.7 Z4.9 F2
N6  G1 X232.6 Y332.3 Z3.7 F2
N490  G1 X232.0 Y332.9 Z1.1 F2

[+] ".\ZZZ4.txt"
N1  G1 X231.4 Y333.6 Z0.6 F2
N2  G1 X230.8 Y334.2 Z0.6 F2
N3  G1 X230.2 Y334.8 Z4.2 F2
N4  G1 X229.6 Y335.4 Z5.0 F2
N5  G1 X228.9 Y336.0 Z5.0 F2
N6  G1 X228.3 Y336.7 Z5.0 F2
N490  G1 X226.5 Y338.5 Z1.0 F2

[+] ".\ZZZ5.txt"
G0 Z-100.0
G0 Y0
Presione una tecla para continuar . . .

CScript.exe ".\Script.vbs" ".\Archivo1.txt" ".\Archivo2.txt" "etc..."

' Example: RegEx capture in textfile, By Elektro
 
Option Explicit
 
Dim args, arg, _
    outPath, fullpath, fileName, fileExt, _
    fso, file, fileContent, _
    rgx, rgxMatches, rgxMatch, rgxValue
 
Set args = WScript.Arguments
If args.Count = 0 Then
   Wscript.Echo("Any filepath specified.")
   Wscript.Quit(1)
End If
 
outPath = ".\Output\"
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
If Not fso.FolderExists(outPath) Then
   Call fso.CreateFolder(outPath)
End If
 
' El primer grupo de esta expresión captura el string "cash out:" plus el valor decimal.
' El cuarto grupo de esta expresión captura el valor decimal.
Set rgx = New RegExp
    rgx.Pattern    = "Cash(\s+)?out(\:)?(\s+)?([\d\.]+)" 
    rgx.IgnoreCase = True
    rgx.Global     = True
 
For Each arg in args
 
   fullPath    = fso.GetAbsolutePathName(arg)
   fileName    = fso.GetBaseName(fullPath)
   fileExt     = fso.GetExtensionName(fullPath)
   fileContent = fso.OpenTextFile(fullPath, 1).ReadAll
 
   Set rgxMatches = rgx.Execute(fileContent)
   Set file       = fso.CreateTextFile(outPath & "\" & fileName & "_new" & "." & fileext)
 
   Wscript.Echo("[+] Processing file: " & fullPath)
   For Each rgxMatch in rgxMatches
      rgxValue = rgxMatch.Submatches(3)
      Wscript.Echo(rgxValue)
      Call file.WriteLine("Cash Out: " & rgxValue)
   Next
 
   file.Close
 
Next
 
Wscript.Quit(0)

• .\Archivo1.txt

asdadasdasdasd asdsadas asdasdasd cash out: 1.97 asdasdas asdasda
asdadasdasdasd asdsadas asdasdasd cash out: 212.34 asdasdas asdasda

• .\Outpu\Archivo1_new.txt

Cash Out: 1.97
Cash Out: 212.34

Imports System.IO
Imports System.Text
 
Public Class Form1
 
    Private Sub WriteFile()
 
        Dim sw As StreamWriter = Nothing
 
        Try
            sw = New StreamWriter(path:="C:\prueba.txt", append:=False, encoding:=Encoding.Default)
            Using sw
                sw.WriteLine("Primera liinea")
                sw.WriteLine("Segunda linea")
                sw.WriteLine(Me.TextBox1.Text)
            End Using
 
        Catch ex As Exception
            Throw
 
        Finally
            If sw IsNot Nothing Then
                sw.Dispose()
            End If
 
        End Try
 
    End Sub
 
End Class

Imports System.IO
Imports System.Text
 
Public Class Form1
 
    Private Sub WriteFile()
 
        Dim sb As New StringBuilder
        With sb
            .Appendline("Primera liinea")
            .Appendline("Segunda liinea")
            .Appendline(Me.TextBox1.Text)
        End With
 
        Try
            File.WriteAllText("C:\prueba.txt", sb.ToString, Encoding.Default)
 
        Catch ex As Exception
            Throw
 
        Finally
            sb.Clear
 
        End Try
 
    End Sub
 
End Class
 

@Echo OFF 
 
REM Declaro una variable que almacenará el valor de la variable 'path_sql', pero sin comillas dobles, las elimino.
Set sqlPath=%path_sql%
Set sqlPath=%sqlPath:"=%
 
For /F "Tokens=* Delims=" %%a In ('""sqlplus.exe" -s QA_DATAC/qa_dc@orcl_qa @^'%sqlPath%^'ESTADISTICA | "FindStr.exe" "[0-9]""') Do (
	Echo %%~a
)
 
Pause&Exit /B 0

FOR /F "usebackq delims=!" %%c in (`sqlplus -s QA_DATAC/qa_dc@orcl_qa @%PATH_SQL%ESTADISTICA ^|Findstr "[0-9]"`) DO (
SET /A "VALUE=%%c"
ECHO %VALUE%
PAUSE
)

CALL ECHO %%VALUE%%

@Echo OFF
 
For /F "Tokens=* Delims=" %%# In (
	'Echo 123'
) Do (
	Set /A "var=%%#"
	Call Echo Variable dentro del FOR="%%Var%%"
	Call ".\Script2.cmd"
)
 
Pause&Exit

@Echo OFF 
 
Echo Variable desde otro script="%var%"
 
Exit /B 0