CUer

libinglibinglibing890@gmail.com
复制代码

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

jonm158

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

jonm158

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
再把[email]libinglibinglibing890@gmail.com[/email]保存到1.txt里面

放在同一文件夹里，运行上面的命令，就闪了一下，没有别的变化。
请再指点

529112036yk

不管怎样先顶一下。。。。。

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

jonm158

cure,你好,你这个命令只能生成这几个
[email]l.ibinglibinglibing890@gmail.com[/email]
[email]li.binglibinglibing890@gmail.com[/email]
[email]lib.inglibinglibing890@gmail.com[/email]
[email]libi.nglibinglibing890@gmail.com[/email]
[email]libin.glibinglibing890@gmail.com[/email]
[email]libing.libinglibing890@gmail.com[/email]
[email]libingl.ibinglibing890@gmail.com[/email]
[email]libingli.binglibing890@gmail.com[/email]
[email]libinglib.inglibing890@gmail.com[/email]
[email]libinglibi.nglibing890@gmail.com[/email]
[email]libinglibin.glibing890@gmail.com[/email]
[email]libinglibing.libing890@gmail.com[/email]
[email]libinglibingl.ibing890@gmail.com[/email]
[email]libinglibingli.bing890@gmail.com[/email]
[email]libinglibinglib.ing890@gmail.com[/email]
[email]libinglibinglibi.ng890@gmail.com[/email]
[email]libinglibinglibin.g890@gmail.com[/email]
[email]libinglibinglibing.890@gmail.com[/email]
[email]libinglibinglibing8.90@gmail.com[/email]
[email]libinglibinglibing89.0@gmail.com[/email]
[email]libinglibinglibing890.@gmail.com[/email]
我的要求还要生成这样的
[email]libin.glibinglibing890.@gmail.com[/email]
[email]libinglibin.glibing890.@gmail.com[/email]
[email]libin.glibinglibi.ng890.@gmail.com[/email]

jonm158

应是这样的效果,前面十楼,523066680版主,写了一个,但对字符太长的,计算出来太慢了
a.b.c.d
a.b.cd
a.bc.d
a.bcd
ab.c.d
ab.cd
abc.d
abcd
请各高手显神通,指导

523066680

vbs版的：改成cscript模式打开，这样方便看处理进度

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

上面vbs 一边显示一边写入result.txt

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

523066680

这个东西还可以优化速度的
a.b.c.d
a.b.cd
a.bc.d
a.bcd
============
ab.c.d
ab.cd
abc.d
abcd
============
区别是 "a."和a  ，后面的完全一样……   不过…… 我也是有工作的人，闪了。

jonm158

亲爱的版主，请明确指导一下，我笨鸟实在是不明白，谢谢

jonm158

版主达人，请优化一个给我哦，谢谢

523066680

vbs的话速度已经快很多了， 约莫着十几二十分钟可以完成吧？
等重新写一个又得等，时间已经过了哦？   去威客网吧，找一个处理得彻头彻尾的人

523066680

优化了，测试字符串abcdefghijklmnopqrstu  21个字母
处理时间3秒到5秒左右
结果生成到 result.txt,  33MB   1048577 行 (第一行为空行)
2的20次方=1048576

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

jonm158

谢谢版主,也谢谢各位大大了

youlishen

这个借鉴的地方很多，学习了，标记