求助 - 要怎麼樣把文字檔的資料大量批次修改剔除?

[lovesp]

要怎麼樣把文字檔的資料大量批次修改剔除?
1.我有一個字典檔
例如
sfsfer
5454.t4t4
grgre.y54y54
grhtrhr
54yhyty
345436t
要怎麼樣大量批次的 把沒有grgre"."y54y54 點刪除
注意 是要刪除沒有點的喔 只要留下有點的
請賜教 謝謝

2.如何把字典檔低於五位元的單字刪除
例如
gregergre
grghg
hreh
herh
j6uu
hrtjtrjtj
要刪除五字母位元
謝謝

[飛鳥]

這....要寫小程式呢

用perl就可以作到了
執行perl程式前先安裝ActivePerl

然後把下面程式碼複製到記事本，存檔並把副檔名改名為.pl，並點兩下即可

第一個功能
perl程式碼

#!/usr/local/bin/perl -w

print "請輸入來源檔名：(例如C:\\abc.txt)\n";
my $FileSource=<>;
print "請輸入要另存的檔名：(例如C:\\abc_out.txt)\n";
my $ExprotFile=<>; #請輸入要另存的檔名

open(TXT, "$FileSource") || die "無法讀取 $FileSource 檔! 請查明原因!\n";
open(ETXT, "> $ExprotFile") || die "無法讀取 $FileSource 檔! 請查明原因!\n";

while (my $read=<TXT>){
chomp $read;
if($read =~ /\./){
print "$read 有\. 不是想要的\n";
}else{
print ETXT "$read\n";
}
}
close(ETXT);
close(TXT);

第二個功能
perl程式碼

#!/usr/local/bin/perl -w

print "請輸入來源檔名：(例如C:\\abc.txt)\n";
my $FileSource=<>;
print "請輸入要另存的檔名：(例如C:\\abc_out.txt)\n";
my $ExprotFile=<>; #請輸入要另存的檔名

open(TXT, "$FileSource") || die "無法讀取 $FileSource 檔! 請查明原因!\n";
open(ETXT, "> $ExprotFile") || die "無法讀取 $FileSource 檔! 請查明原因!\n";

while (my $read=<TXT>){
chomp $read;
$st_len=length($read);
if($st_len <= 5){
print "$read 不是想要的\n";
}else{
print ETXT "$read\n";
}
}
close(ETXT);
close(TXT);

[san]

用筆記本開啟，然後用取代的功能就可以了

[lovesp]

飛鳥大您真是太神啦!!!!!!!!!!!!!!!!!!
感激不盡!!!!!!!!!
史版真是個太好的學習場所
不拉親朋好友近來怎麼對得起別人呢
哈哈

作者: 飛鳥

這....要寫小程式呢

用perl就可以作到了
執行perl程式前先安裝ActivePerl

然後把下面程式碼複製到記事本，存檔並把副檔名改名為.pl，並點兩下即可

第一個功能
perl程式碼

第二個功能
perl程式碼