. : : ClassiClub ForuM : : .

会员中心 论坛帮助 日历事件 标记论坛已读
返回   精品技术论坛 » 技术论坛 » 『软件使用』 » 专题:命令正则

『软件使用』: 电脑软件推荐, 电脑软件使用, 经验分享



发表新主题 关闭主题
 
主题工具
hitme
 
hitme 的头像
支柱会员
 
资 料:
注册日期: Oct 2001
帖子: 6,489 声望值: 2
精华: 38,解答: 6
#1 旧 2004-12-25, 19:41:16 默认
hitme 当前离线  

喝多了酒,瞎搞了个gb->maxthon,copy至gb的Groups子目录中运行
group_convert_gb_maxthon.bat
代码:
@echo off
setlocal ENABLEDELAYEDEXPANSION
rd /s/q max_group
md max_group

for %%a in (*.cgp) do for /f "skip=1 tokens=2 delims==" %%i in (%%a) do echo %%i>>max_group\%%~na.txt

for %%a in (max_group\*.txt) do echo [CaptorGroup]>>max_group\%%~na.cgp

for %%a in (max_group\*.txt) do for /f "tokens=1,2 delims=:" %%i in (%%a) do if "%%i" neq "http" (set n=%%i) else (if "%%i" == "http" echo !n!=http:%%j>>max_group\%%~na.cgp)

del /q max_group\*.txt
谁来测试下,顺祝圣诞快乐 :blush;

此帖于 2004-12-26 08:27:11 被 hitme 编辑. .
Browser
 
Browser 的头像
超级会员
 
资 料:
注册日期: Sep 2002
帖子: 1,902 声望值: 3
精华: 0,解答: 5
#2 旧 2004-12-25, 19:59:00 默认
Browser 当前离线  

引用:
作者: hitme
喝多了酒,瞎搞了个gb->maxthon,copy至Groups自目录中运行
convert.bat
谁来测试下,顺祝圣诞快乐 :blush;
成功,就有一个小问题:
"="前多了一个空格,导致maxthon内鼠标右击组名不能打开子项。
hitme
 
hitme 的头像
支柱会员
 
资 料:
注册日期: Oct 2001
帖子: 6,489 声望值: 2
精华: 38,解答: 6
#3 旧 2004-12-25, 20:05:23 默认
hitme 当前离线  

引用:
作者: Browser
成功,就有一个小问题:
"="前多了一个空格,导致maxthon内鼠标右击组名不能打开子项。
改好了,多谢测试 :blush;
自带Folder of GreenBrowser.cgp与Folder of My Computer.cgp群组,模式不同,不转了
出去继续喝

此帖于 2004-12-25 20:26:41 被 hitme 编辑. .
Browser
 
Browser 的头像
超级会员
 
资 料:
注册日期: Sep 2002
帖子: 1,902 声望值: 3
精华: 0,解答: 5
#4 旧 2004-12-25, 20:24:38 默认
Browser 当前离线  

上面我可能误导了一下,现在看起来格式完全一样,但右键还是点不开。
在“群组-整理群组”里随便动两下后,maxthon会自动保存这个.cgp,重启之后就正常了。比较前后两个版本内容完全一致,编码也没区别。奇怪了...

比如这两个.cgp,一个能打开(160byte)一个不能(165byte),但看不出区别。
上传的附件
文件类型: rar groups.rar (411 字节, 4 次查看)

此帖于 2004-12-25 20:36:14 被 Browser 编辑. .
hitme
 
hitme 的头像
支柱会员
 
资 料:
注册日期: Oct 2001
帖子: 6,489 声望值: 2
精华: 38,解答: 6
#5 旧 2004-12-25, 20:36:56 默认
hitme 当前离线  

引用:
作者: Browser
上面我可能误导了一下,现在看起来格式完全一样,但右键还是点不开。
在“群组-整理群组”里随便动两下后,maxthon会自动保存这个.cgp,重启之后就正常了。比较前后两个版本内容完全一致,编码也没区别。奇怪了...

比如这两个.cgp,一个能打开(160byte)一个不能(165byte),但看不出区别。
交友.cgp每行末尾多个空格
刚没去掉,已经更新了
Browser
 
Browser 的头像
超级会员
 
资 料:
注册日期: Sep 2002
帖子: 1,902 声望值: 3
精华: 0,解答: 5
#6 旧 2004-12-25, 20:43:33 默认
Browser 当前离线  

试出来了,真正的原因是 [CaptorGroup] 后面不能有空格,跟这个问题类似:
http://m2.overseasky.net/forum_posts.asp?TID=15217&PN=1

看到你上面的代码已经改正了,现在运行完全正常。
MIKA
 
MIKA 的头像
核心会员
 
资 料:
注册日期: Jul 2002
帖子: 3,461 声望值: 3
精华: 0,解答: 2
#7 旧 2004-12-25, 21:33:22 默认
MIKA 当前离线  

我出来的怎么是txt文件?


穷则独善其身 达则兼济天下

人生最痛苦的两件事→找工作和找老婆
巫神
 
巫神 的头像
核心会员
 
资 料:
注册日期: Sep 2002
帖子: 2,051 声望值: 1
精华: 0
#8 旧 2004-12-25, 22:04:48 默认
巫神 当前离线  

引用:
作者: MIKA
我出来的怎么是txt文件?
用记事本另存为bat文件啊
MIKA
 
MIKA 的头像
核心会员
 
资 料:
注册日期: Jul 2002
帖子: 3,461 声望值: 3
精华: 0,解答: 2
#9 旧 2004-12-25, 22:58:19 默认
MIKA 当前离线  

我是说转换出来的文件。
MIKA
 
MIKA 的头像
核心会员
 
资 料:
注册日期: Jul 2002
帖子: 3,461 声望值: 3
精华: 0,解答: 2
#10 旧 2004-12-26, 10:05:38 默认
MIKA 当前离线  

有几个组总是转换不成功,奇怪了

此帖于 2004-12-26 10:19:50 被 MIKA 编辑. .
hitme
 
hitme 的头像
支柱会员
 
资 料:
注册日期: Oct 2001
帖子: 6,489 声望值: 2
精华: 38,解答: 6
#11 旧 2004-12-26, 10:20:26 默认
hitme 当前离线  

引用:
作者: MIKA
有几个组总是转换不成功,奇怪了
遭遇甚为bt的
findstr搜索多个文件输出错位
(嵌套for解决)
for() 取中文文件名出现错位
('findstr /n "=" "%%a"空格') ,注意有个空格

都赶上了,呵呵

此帖于 2004-12-26 11:02:39 被 hitme 编辑. .
MIKA
 
MIKA 的头像
核心会员
 
资 料:
注册日期: Jul 2002
帖子: 3,461 声望值: 3
精华: 0,解答: 2
#12 旧 2004-12-26, 10:42:26 默认
MIKA 当前离线  

好啊,非常的期待,希望弄个像ffxp<--->Ufxp站点转换这样的一个程序
hitme
 
hitme 的头像
支柱会员
 
资 料:
注册日期: Oct 2001
帖子: 6,489 声望值: 2
精华: 38,解答: 6
#13 旧 2004-12-26, 10:57:28 默认
hitme 当前离线  

引用:
作者: MIKA
好啊,非常的期待,希望弄个像ffxp<--->Ufxp站点转换这样的一个程序
偶不会。。。

再接再厉,GB和Maxthon群组互转工具,扔group目录中运行,测试测试
group_convert_gb&max.bat

代码:
rem GB和Maxthon群组转换工具
rem Desigh by hitme@ccf 2004.12.26

@echo off
:common

setlocal ENABLEDELAYEDEXPANSION
findstr "CaptorGroup" *.cgp  && goto max_gb ||  goto gb_max



:max_gb

rd /s/q gb_group
md gb_group
for %%i in (*.cgp) do echo [Group]>>gb_group\\%%i
for %%a in (*.cgp) do for /f "tokens=1-4 delims==:" %%i in ('findstr /n "=" "%%a                " ') do set /a n=%%i-2 && echo name!n!=%%j>>gb_group\%%a && echo ^url!n!=%%k:%%l>>gb_group\%%a
goto end


:gb_max

rd /s/q max_group
md max_group
for %%a in (*.cgp) do for /f "tokens=2 delims==" %%i in ('findstr "." "%%a               " ') do echo %%i>>max_group\%%~na.txt
for %%a in (max_group\*.txt) do echo [CaptorGroup]>>max_group\%%~na.cgp
for %%a in (max_group\*.txt) do for /f "tokens=1,2 delims=: " %%i in ('findstr "." "%%a               " ') do if "%%i" neq "http" (set n=%%i) else (if "%%i" == "http" echo !n!=http:%%j>>max_group\%%~na.cgp)
del /q max_group\*.txt
goto end


:end

cls
echo 转换完成,请查看子目录
pause 
exit
上传的附件
文件类型: rar group_convert_gb&max.bat.rar (627 字节, 10 次查看)

此帖于 2004-12-26 13:17:52 被 hitme 编辑. .
MIKA
 
MIKA 的头像
核心会员
 
资 料:
注册日期: Jul 2002
帖子: 3,461 声望值: 3
精华: 0,解答: 2
#14 旧 2004-12-26, 11:26:54 默认
MIKA 当前离线  

不错,挺完美的了,老大是不是一时粗心,我max转gb的时候转换出来的网址是http//,少了个冒号,还有这个组好像转换不成功,麻烦看下

此帖于 2007-05-04 15:56:07 被 MIKA 编辑. .
hitme
 
hitme 的头像
支柱会员
 
资 料:
注册日期: Oct 2001
帖子: 6,489 声望值: 2
精华: 38,解答: 6
#15 旧 2004-12-26, 11:37:37 默认
hitme 当前离线  

引用:
作者: MIKA
不错,挺完美的了,老大是不是一时粗心,我max转gb的时候转换出来的网址是http//,少了个冒号,还有这个组好像转换不成功,麻烦看下
for in ()中文支持有点问题 暂时没想到聪明办法
用填空格的bt办法凑合一下
15楼更新了,吃饭去,早饭没吃,附件都传错了

此帖于 2004-12-26 13:27:06 被 hitme 编辑. .
发表新主题 关闭主题

主题工具

论坛规则  发帖规则
不可以发表主题
不可以回复帖子
不可以上传附件
不可以编辑自己的帖子
论坛启用 vB 代码
版面启用 表情符号
版面启用 [IMG] 代码
版面禁用 HTML 代码


所有时间均为北京时间, 现在的时间是 01:52:03.

本论坛带宽由迅通网络提供
SSL证书由TrustAsia提供

Copyright © 2000 - 2019 ClassiClub Forum All Rights Reserved.
粤ICP备09123456号