日本免费全黄少妇一区二区三区-高清无码一区二区三区四区-欧美中文字幕日韩在线观看-国产福利诱惑在线网站-国产中文字幕一区在线-亚洲欧美精品日韩一区-久久国产精品国产精品国产-国产精久久久久久一区二区三区-欧美亚洲国产精品久久久久

  1. 首頁(yè) > 云知道 > >

從OUTLOOK到聯(lián)想i966的電話簿導(dǎo)入

云知道

新年了，給自己買一個(gè)禮物，獎(jiǎng)勵(lì)一下自己一年辛勤的勞動(dòng) 。
I966還是一部不錯(cuò)的電話，用了一天，感覺(jué)到了國(guó)產(chǎn)電子產(chǎn)品在不斷的進(jìn)步 。原來(lái)我用的是Nokia6021，我有463個(gè)聯(lián)系人共計(jì)1000多個(gè)電話號(hào)碼、電子郵件和地址等信息 。要全部導(dǎo)在新的電話中也是一件需要?jiǎng)幽X筋的工作 。
Nokia有PC套件，所有的電話簿都會(huì)同步在Outlook中 。
第一步，我先把所有的Outlook聯(lián)系人選擇導(dǎo)出成Windows以逗號(hào)分隔的CSV文件 。這實(shí)際上是一種文本文件 。
第二步，用EXCEL打開(kāi)這個(gè)導(dǎo)出的文件，把第一行編輯成這10列：
---------------------------------------------------------------------
姓名,群組,移動(dòng)電話,家庭電話,商務(wù)電話,傳真,其它電話,電子郵件,地址,備注
---------------------------------------------------------------------
這時(shí)候，會(huì)發(fā)現(xiàn)所有長(zhǎng)的電話號(hào)碼都變成了指數(shù)表示方式，如“139 E8”，需要把這些列進(jìn)行單元格式轉(zhuǎn)換變?yōu)椤皵?shù)值”，然后再把所有的單元格轉(zhuǎn)換為“文本” 。注意：這樣會(huì)有一個(gè)結(jié)果，區(qū)號(hào)前面的0會(huì)被去掉，需要手工補(bǔ)回！
第三步，這是是大量的手工調(diào)整工作 。因?yàn)镺UTLOOK轉(zhuǎn)換出來(lái)的文件有幾十個(gè)字段，而聯(lián)想格式只有10個(gè)列 。先去掉沒(méi)有用的空字段，然后把其他各個(gè)欄目的內(nèi)容分別移動(dòng)到對(duì)應(yīng)的新的列中 。注意在同一行中移動(dòng)，以免把電話號(hào)安錯(cuò)人 。這樣直到整個(gè)表只有上述10列為止 。
第四步，把EXCEL另存為CSV格式文件，然后用文本編輯器打開(kāi)，推薦用UltraEdit32編輯 。首先全局把所有的雙引號(hào)替換為什么都沒(méi)有（不是空格），然后保存 。
【從OUTLOOK到聯(lián)想i966的電話簿導(dǎo)入】第五步，轉(zhuǎn)換成聯(lián)想格式的文本文件 。聯(lián)想格式的文本文件是每個(gè)列都帶引號(hào)的CSV文件 。一個(gè)一個(gè)加太費(fèi)勁了，使用編輯器的紅替換也很難做到盡善盡美 。于是我寫了一段perl程序腳本，用來(lái)自動(dòng)的把所有的有內(nèi)容的字段加上引號(hào) 。腳本代碼如下：
tel.pl
#!c:perlbinperl.exe
####################################
#"姓名","群組","移動(dòng)電話","家庭電話","商務(wù)電話" ,"傳真","其它電話","電子郵件","地址","備注"
#"張峰","未分組","139xxxxxxxx","","xxxxxxxxx","","133xxxxxxxx","","","","","","",""
####################################
$filename_src = https://www.rkxy.com.cn/sjjc/@ARGV[0];
$filename_out = "tel.csv";
unless (open (SRCFILE, "<$filename_src"))
{
die ("n錯(cuò)誤：不能打開(kāi)你指定的文件：$filename_srcn");
}
unless (open (OUTFILE, ">$filename_out"))
{
die ("n錯(cuò)誤：不能打開(kāi)你指定的文件：$filename_outn");
}
while()
{
chomp;
@line = split(/,/,$_);

if($line[0] ne "")
{
$a1 = ""$line[0]"";
}
else
{
$a1 = "";
}
if($line[1] ne "")
{
$a2 = ""$line[1]"";
}
else
{
$a2 = "";
}
if($line[2] ne "")
{
$a3 = ""$line[2]"";
}
else
{
$a3 = "";
}
if($line[3] ne "")
{
$a4 = ""$line[3]"";
}
else
{
$a4 = "";
}
if($line[4] ne "")
{
$a5 = ""$line[4]"";
}
else
{
$a5 = "";
}
if($line[5] ne "")
{
$a6 = ""$line[5]"";
}
else
{
$a6 = "";
}
if($line[6] ne "")
{
$a7 = ""$line[6]"";
}
else
{
$a7 = "";
}
if($line[7] ne "")
{
$a8 = ""$line[7]"";
}
else
{
$a8 = "";
}
if($line[8] ne "")
{
$a9 = ""$line[8]"";
}
else
{
$a9 = "";
}
if($line[9] ne "")
{
$a10 = ""$line[9]"";
}
else
{
$a10 = "";
}
print OUTFILE "$a1,$a2,$a3,$a4,$a5,$a6,$a7,$a8,$a9,$a10n";
}
close(SRCFILE);
close(OUTFILE);
第七步，腳本使用ActivePerl解釋器解釋運(yùn)行（可以從網(wǎng)上搜索下載安裝，免費(fèi)的），命令行如下：

推薦閱讀