@echo off>nul 3>sub_name.txt
setlocal enableDelayedExpansion
set name=libinglibinglibing890
:lp
set/a nl+=1
if not "!name:~%nl%!"=="" goto :lp
set/a ml=nl-1
call :showN name %ml%
echo 名字%name%长度为%nl%，共有%num%个子地址。
goto :eof
:showN
for /l %%a in (1 1 %2) do (
　if not "!%1:~%%a,1!"=="." (
　　echo !%1:~,%%a!.!%1:~%%a!@gmail.com&set/anum+=1
　　set %11=!%1:~,%%a!.!%1:~%%a!
　　call :showN %11 %%a
　)
)
复制代码

gawk -F@ "{n=length($1);for(i=1;i<=n;i++)print substr($1,1,i-1)substr($1,i,1)\".\"substr($1,i+1)\"@\"$2}" 1.txt
复制代码

@echo off
setlocal enabledelayedexpansion
set str=abcd
call :act "%str:~0,1%" "%str:~1%"
:::call :func %StrChoose% %StrHave%
pause
exit

:act
 setlocal
 set tmpstr=%~2
 if "%~2"=="" (
   echo %~1
   goto :eof
 )
 call :act "%~1.!tmpstr:~0,1!" "!tmpstr:~1!"
 call :act "%~1!tmpstr:~0,1!" "!tmpstr:~1!"
 endlocal
复制代码

libinglibinglibing890@gmail.com
复制代码

gawk -F@ "{n=length($1);for(i=1;i<=n;i++)print substr($1,1,i-1)substr($1,i,1)\".\"substr($1,i+1)\"@\"$2}" 1.txt >2.txt
复制代码

if wscript.arguments.count=0 then 
   createobject("wscript.shell").run _ 
   "cmd /c cscript " &chr(34) &wscript.scriptname &chr(34) & " isme" 
   wscript.quit 
end if 
:rem paktc

current=replace(wscript.scriptfullname,wscript.scriptname,"")
'我获得当前路径的方法，很囧...
set fs=createobject("scripting.filesystemobject")
set result=fs.createtextfile(current &"result.txt")
set inp=wscript.stdin
set put=wscript.stdout 

test "a","bcdefghijklmn"
inp.readline

function test(strcho,strhave)
   if len(strhave)>0 then
     tmpstr=strcho &"." & left(strhave,1)
     test tmpstr,mid(strhave,2) 
     tmpstr=strcho & left(strhave,1)
     test tmpstr,mid(strhave,2)
   else 
     put.writeline strcho
     result.writeline strcho
   end if
end function
复制代码

if wscript.arguments.count=0 then
   createobject("wscript.shell").run _
   "cmd /c cscript " &chr(34) &wscript.scriptname &chr(34) & " isme"
   wscript.quit
end if
:rem paktc

current=replace(wscript.scriptfullname,wscript.scriptname,"")
'我获得当前路径的方法，很囧...
set fs=createobject("scripting.filesystemobject")
set result=fs.createtextfile(current &"result.txt")

set inp=wscript.stdin
set put=wscript.stdout

'src 定义整条字符串，不支持空格哦   <<-  定义在这里
src="abcdefghijklmnopqrstu"
srca=mid(src,1,10)
srcb=mid(src,11)

strall=""
'先处理右边的参数示例"a","bcd"
test mid(srcb,1,1),mid(srcb,2)
put.writeline "Step 1 over.  Step2:"
'然后前面这部分的，每一个都连接之前的全部结果
funcb mid(srca,1,1) ,mid(srca,2) &" "
result.close
inp.readline

function test(strcho,strhave)
   if len(strhave)>0 then
     tmpstr=strcho &"." & left(strhave,1)
     test tmpstr,mid(strhave,2)
     tmpstr=strcho & left(strhave,1)
     test tmpstr,mid(strhave,2)
   else
     strall=strall &vbcrlf & strcho
   end if
end function

function funcb(strcho,strhave)
   strcho=replace(strcho," ","")
   if len(strhave)>0 then
     tmpstr=strcho &"." & left(strhave,1)
     funcb tmpstr,mid(strhave,2)
     tmpstr=strcho & left(strhave,1)
     funcb tmpstr,mid(strhave,2)
   else
     result.write replace(strall,vbcrlf,vbcrlf &strcho)
     put.writeline strcho
   end if
end function
复制代码