作者：广东在线游戏网日期：
返回目录：游戏解答
针对你的问题我专门为你编写了一个程序。
请将以下代码复制保存为VBS格式的文件。
然后运行
===================================================
Option Explicit
Dim objArgs,wsShell,fso,objDialog
Dim bFile,strLoadFile,fFile,oFile,tmpStr,vCardBegin,sLineRecord
Dim FilePath,i,Begin
'对象实例化
Set objArgs = WScript.Arguments
Set wsShell = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set objDialog = CreateObject("UserAccounts.CommonDialog")
Begin = 1
If objArgs.Count>0 Then
For i = 0 To objArgs.Count - 1
strLoadFile = objArgs(i)
Call TransNBU(strLoadFile,Begin)
Next
Else
'显示打开文件对话框，选择数据文件
objDialog.Filter = "通信录备份文件(*.nbu)|*.nbu|所有文件|*.*"
objDialog.InitialDir = "c:\"
bFile=objDialog.ShowOpen
if bFile then
strLoadFile = objDialog.FileName
Call TransNBU(strLoadFile,Begin)
else
wscript.quit
end If
End If
Private Sub TransNBU(strLoadFile,Begin)
On Error Resume Next
'读取文件
set fFile=fso.opentextfile(strLoadFile,1,true)
FilePath = Left(strLoadFile,InStrRev(strLoadFile,"\"))
vCardBegin = False
i = Begin
'按行读取
While Not fFile.AtEndOfStream
sLineRecord=fFile.ReadLine
If vCardBegin Then
tmpStr= tmpStr & sLineRecord & vbCrLf
End If
If InStr(1,sLineRecord,"BEGIN:VCARD",1)>0 Then
tmpStr = "BEGIN:VCARD" & vbCrLf
vCardBegin = True
End If
If InStr(1,sLineRecord,"END:VCARD",1)>0 Then
vCardBegin = False
If InStr(1,tmpStr ,"END:VCARD",1) >0 then
Set oFile = fso.CreateTextFile(FilePath & cstr(i) &".vcf")
oFile.writeline tmpStr
oFile.Close
i=i+1
End if
End If
Wend
Begin =i
fFile.Close
if Err.number<>0 then
msgbox "导出通信录可能不完整，请检查！e799bee5baa6e997aee7ad94e78988e69d83334"& vbCrLf & "反映问题！"
else
msgbox "成功执行！"& vbCrLf & "表示感谢！"
end if
End sub
=========================================================
如果还有什么不明白请为我
那这个是中兴旗下的牌子，但是有百比他熟手机现在的度销量和不行，而且中心由于受到制裁，带手机上面投入的精力问也不是很多，建议你如果选择手机的话，最好答不要选择杜比亚手机，但是在2017年之前，卢比亚手机专是一款非常非常好的手机，当时可能就是称为是一种妖姬属，但是。现在卢比亚是不行了。