CUer

libinglibinglibing890@gmail.com
复制代码

保存到1.txt里面
再运行gawk命令

jonm158

管理说的那个工具，以下了，但还是不清楚怎么用，还是要请高手指导，谢谢大家

jonm158

谢谢各位高手，我先去试试了

523066680

那么，如果gawk 可以不重复地插入任意个点并枚举，代码也很短吗？
好奇啊。

Batcher

下载gawk.exe
http://bbs.bathome.net/thread-3981-1-1.html

523066680

libinglibinglibing890   
21个字符
=.= 我杯具了，你的那个地址的字符串的插入点的组合个数是：
2的20次方： 1048576
用递归的方法效率超低……

[ 本帖最后由 523066680 于 2010-8-18 17:32 编辑 ]

523066680

@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
复制代码

测试的字符串是abcd，在其中间插入点

a.b.c.d
a.b.cd
a.bc.d
a.bcd
ab.c.d
ab.cd
abc.d
abcd
请按任意键继续. . .

我是利用组合，
每一个位置：存在与不存在点  的情况构成不同的组合，
4个字符之间有三个地方可插入点， 那么组合的个数就是 2的三次方=8

改掉字符串，试试吧

jonm158

请各位高手们再指导指导，谢谢

jonm158

谢谢CUER的指导，
但这句代码怎么用还看懂

CUer

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
复制代码

jonm158

点的个数没有限制,谢谢各位高手朋友
我用下面这个批处理试过,不动

@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
　)
)
复制代码

请高手改进

523066680

点的个数有限制吗？
没有限制就按顺序加呗 遇到@ 就结束
a.bcd
ab.cd
abc.d
这样子吗？

Batcher

3楼没看懂，楼主说了：“我用论坛里一个朋友写的,处理我这个,半天不动”

slk5090

2楼没看懂，意思就是：我要告诉别人我的邮箱地址如：[email]libingli.binglibing890@gmail.com[/email]，要怎样把这一行字加进批处理文件里去，请解答一下，象这样的事情很多的，如果能写，就方便多了。

Batcher

你用的哪个？能否贴出来看看？