[已解决]批处理可以实现在gmail邮箱地址中随机加点吗？

CUer · 发表于 2010-8-17 13:25:44

libinglibinglibing890@gmail.com

复制代码

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

jonm158 · 发表于 2010-8-17 20:40:50

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

jonm158 · 发表于 2010-8-17 20:54:48

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

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

529112036yk · 发表于 2010-8-17 20:59:35

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

CUer · 发表于 2010-8-17 22:54:57

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 · 发表于 2010-8-17 23:44:51

jonm158 · 发表于 2010-8-17 23:57:49

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

523066680 · 发表于 2010-8-18 10:03:35

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 · 发表于 2010-8-18 10:15:33

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

jonm158 · 发表于 2010-8-18 12:11:59

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

jonm158 · 发表于 2010-8-18 12:29:12

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

523066680 · 发表于 2010-8-18 15:46:05

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

523066680 · 发表于 2010-8-18 17:39:48

优化了，测试字符串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 · 发表于 2010-8-18 21:33:21

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

youlishen · 发表于 2011-11-27 14:06:18

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

		自动登录	找回密码
密码			注册

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

[文本处理] [已解决]批处理可以实现在gmail邮箱地址中随机加点吗？

评分

评分

评分