[文本处理] [已解决]批处理字符串截取IP和端口号

for /f "tokens=1,2 delims=:" %%a in (ipgroup.txt) do (echo %%a %%b)
复制代码

$SourceFile="D:\test mu\ipgr oup.txt" 
$OutFile="D:\test mu\output.txt"   
$result=Get-Content -path $SourceFile|%{$_ -split "outerip`":`""}|%{$_ -split "`",`""}|?{$_ -match "(\d+\.){3}\d+"}|Out-File -FilePath $OutFile
pause
复制代码

@echo off
Setlocal enabledelayedexpansion
for /f "delims=" %%i in (ipgroup.txt) do (
	set "str=%%i"
	for %%j in ([ {  } ]) do (
		set str=!str:%%j=!
	)
	
	for %%a in (!str!) do (
		set "_%%a=%%a"
	)
)

for /f "tokens=1,* delims==" %%i in ('set _^|findstr "outerip"') do (
	set "str=%%j"&set str=!str:":"=","!
	for %%a in (!str!) do set "str=%%~a"
	echo,!str!
)
pause
复制代码

use Modern::Perl;
use JSON;
use File::Slurp;

my $text = read_file( "ipgroup.txt" );
my $struct = from_json( $text );

for my $e ( @$struct )
{
    for my $ips ( @{ $e->{ips} } )
    {
        say $ips->{name}, " - ", $ips->{outerip};
    }
}
复制代码

' &cscript -e:vbscript -nologo "%~0" >结果.txt &start "" 结果.txt
Text = CreateObject("Scripting.FileSystemObject"). _
	GetFile("ipgroup.txt"). _
	OpenAsTextStream(1). _
	ReadAll
Set regex = New RegExp
regex.Global = True
regex.Pattern="\d+\.\d+\.\d+\.\d+:\d+"
For Each match In regex.Execute(text)
	wsh.echo match
Next
复制代码