yangye_mcse

手机通讯录导入工具

在写文章之前我想先说一句，希望尊重别人的劳动成果，转载或者抄袭后在末尾加上原文的链接是对作者的尊重，也是鼓励作者再接再厉发帖的动力。

现在的手机五花八门，手机系统也多种多样，联系人的导入导出成了问题。为了自己，也为了身边的朋友，花了2天时间用VB做了一个小工具，大致原理如下：

不管什么系统安卓，windows，塞班，还是国产（爱疯由于没那个资金投入没做测试）都是支持国际通用的vcf格式，所以只需要将你的联系人做成这种格式就可以在很多手机上通用，VCF本身支持很多参数，以下是一个标准的VCF文件内容

  
  
  
  
   
   
   
   BEGIN:VCARD  
   
   
   
   VERSION:3.0  
   
   
   
   N:Lastname;Firstname;;;  
   
   
   
   FN:Fullname  
   
   
   
   NICKNAME:Alias  
   
   
   
   TEL;CELL;VOICE:PrimaryCell  
   
   
   
   TEL;CELL;VOICE:SecondaryCell  
   
   
   
   TEL;WORK;VOICE:WorkNum1  
   
   
   
   TEL;WORK;VOICE:WorkNum2  
   
   
   
   TEL;HOME;VOICE:HomeNum1  
   
   
   
   TEL;HOME;VOICE:HomeNum2  
   
   
   
   TEL;HOME;VOICE:RadioNum  
   
   
   
   TEL;WORK;FAX:WorkFax  
   
   
   
   TEL;HOME;FAX:HomeFax  
   
   
   
   TEL;TYPE=ISDN:ISDNNum  
   
   
   
   EMAIL;PREF;INTERNET:Email1  
   
   
   
   EMAIL;INTERNET:Email2  
   
   
   
   EMAIL;INTERNET:Email3  
   
   
   
   URL:Website  
   
   
   
   ORG:Organization  
   
   
   
   TITLE:Grade  
   
   
   
   BDAY:Birthday  
   
   
   
   ADR;TYPE=WORK;CHARSET=UTF-8:WorkStreet3;WorkStreet2;WorkStreet1;WorkCity;WorkProvince;WorkPostalcode;WorkState  
   
   
   
   ADR;TYPE=HOME;CHARSET=UTF-8:HomeStreet3;HomeStreet2;HomeStreet1;HomeCity;HomeProvince;HomePostalcode;HomeState  
   
   
   
   END:VCARD

语法很简单，根据英文简写就能猜到是什么东东。

只需要在上面的内容中输入自己联系人信息就可以了，但是一个个输入工作量太大也不太现实，所以就想到了做一个小脚本从Excel表格中一个个去“拿”数据，并且自动做成一个个vCards文件将这些文件拷贝到手机卡就可以导入了，非安卓手机必须一个个导入，安卓可以支持合并的联系人文件导入（批量导入），并且安卓系统支持VCF LABEL字段，所以整个程序设计起来就分为了安卓与非安卓两个方案。

实现过程：

1.数据源：就一个Excel表格，第一次可能需要自己花些时间将自己的联系人输入到程序指定的Excel中。

2.VCF模板

通过复制VCF标准模板，程序将读取到得数据替换模板的内容，最终保存为VCF联系人。

3.读取Excel数据并制成VCF的脚本

  
  
  
  
   
   
   
   Const ForReading=1 
   
   
   
   Const ForWriting=2 
   
   
   
   Const ForAppending=8 
   
   
   
   Const OverwriteExisting = True 
   
   
   
   Const DeleteReadOnly = True 
   
   
   
    
   
   
   
   Varsystem = UCase(InputBox("请选择你的手机系统."  & VbCrLf & "1.Android."  & VbCrLf & "2.Other."))  
   
   
   
    
   
   
   
   If Varsystem = "" then  
   
   
   
   wscript.quit  
   
   
   
   End If  
   
   
   
    
   
   
   
   If Not IsNumeric(Varsystem) then  
   
   
   
   wscript.echo "你的输入有误"  
   
   
   
   wscript.quit  
   
   
   
   End If  
   
   
   
    
   
   
   
   If Varsystem >=3 then  
   
   
   
   wscript.echo "请输入数字1-2"  
   
   
   
   wscript.quit  
   
   
   
   End If  
   
   
   
    
   
   
   
       Select Case Varsystem  
   
   
   
       Case 1  
   
   
   
           strStatus = "Android" 
   
   
   
       Case 2  
   
   
   
           strStatus = "Other" 
   
   
   
       End Select  
   
   
   
    
   
   
   
   'Define VcfFolder Path  
   
   
   
   StrVcfFolder = "vCards" 
   
   
   
   Set objFSO = CreateObject("Scripting.FileSystemObject")  
   
   
   
   If not objFSO.FolderExists(StrVcfFolder) Then  
   
   
   
       Set objFolder = objFSO.CreateFolder(StrVcfFolder)  
   
   
   
   End If  
   
   
   
    
   
   
   
   'Define data and path  
   
   
   
   Set objShell = CreateObject("Wscript.Shell")  
   
   
   
   strCurPath = objShell.CurrentDirectory  
   
   
   
   strDataPath = strCurPath & "\Data"  
   
   
   
   strxlsfile = strDataPath & "\Contact.xls"  
   
   
   
   strTempPath = strCurPath & "\templet"  
   
   
   
   strTempfile = strTempPath & "\" & strStatus & ".vcf"  
   
   
   
   stroldvcfs = strCurPath & "\vCards\*.*"  
   
   
   
    
   
   
   
   'Delete old vcf files  
   
   
   
   Set objFSO = CreateObject("Scripting.FileSystemObject")  
   
   
   
   objFSO.DeleteFile(stroldvcfs), DeleteReadOnly  
   
   
   
    
   
   
   
   'locate source data file  
   
   
   
   Set objExcel = CreateObject("Excel.Application")  
   
   
   
   Set objWorkbook = objExcel.Workbooks.Open(strxlsfile)  
   
   
   
   Set objWorksheet = objWorkbook.Worksheets(1)  
   
   
   
    
   
   
   
   Dim i, count  
   
   
   
   i = 3 
   
   
   
   count = 0 
   
   
   
    
   
   
   
   Do Until objExcel.Cells(i, 1).Value = "" 
   
   
   
   strFullname = objExcel.Cells(i, 1).Value  
   
   
   
   strLastname = objExcel.Cells(i, 2).Value  
   
   
   
   strFirstname = objExcel.Cells(i, 3).Value  
   
   
   
   strAlias = objExcel.Cells(i, 4).Value  
   
   
   
   strPrimaryCell = objExcel.Cells(i, 5).Value  
   
   
   
   strSecondaryCell = objExcel.Cells(i, 6).Value  
   
   
   
   strWorkNum1 = objExcel.Cells(i, 7).Value  
   
   
   
   strWorkNum2 = objExcel.Cells(i, 8).Value  
   
   
   
   strWorkFax = objExcel.Cells(i, 9).Value  
   
   
   
   strHomeNum1 = objExcel.Cells(i, 10).Value  
   
   
   
   strHomeNum2 = objExcel.Cells(i, 11).Value  
   
   
   
   strHomeFax = objExcel.Cells(i, 12).Value  
   
   
   
   strRadioNum = objExcel.Cells(i, 13).Value  
   
   
   
   strISDNNum = objExcel.Cells(i, 14).Value  
   
   
   
   strEmail1 = objExcel.Cells(i, 15).Value  
   
   
   
   strEmail2 = objExcel.Cells(i, 16).Value  
   
   
   
   strEmail3 = objExcel.Cells(i, 17).Value  
   
   
   
   strWebsite = objExcel.Cells(i, 18).Value  
   
   
   
   strOrganization = objExcel.Cells(i, 19).Value  
   
   
   
   strGrade = objExcel.Cells(i, 20).Value  
   
   
   
   strQQnum = objExcel.Cells(i, 21).Value  
   
   
   
   strMSNum = objExcel.Cells(i, 22).Value  
   
   
   
   strGoogletalk = objExcel.Cells(i, 23).Value  
   
   
   
   strBirthday = objExcel.Cells(i, 24).Value  
   
   
   
   strWorkStreet3 = objExcel.Cells(i, 25).Value  
   
   
   
   strWorkStreet2 = objExcel.Cells(i, 26).Value  
   
   
   
   strWorkStreet1 = objExcel.Cells(i, 27).Value  
   
   
   
   strWorkCity = objExcel.Cells(i, 28).Value  
   
   
   
   strWorkProvince = objExcel.Cells(i, 29).Value  
   
   
   
   strWorkPostalcode = objExcel.Cells(i, 30).Value  
   
   
   
   strWorkState = objExcel.Cells(i, 31).Value  
   
   
   
   strHomeStreet3 = objExcel.Cells(i, 32).Value  
   
   
   
   strHomeStreet2 = objExcel.Cells(i, 33).Value  
   
   
   
   strHomeStreet1 = objExcel.Cells(i, 34).Value  
   
   
   
   strHomeCity = objExcel.Cells(i, 35).Value  
   
   
   
   strHomeProvince = objExcel.Cells(i, 36).Value  
   
   
   
   strHomePostalcode = objExcel.Cells(i, 37).Value  
   
   
   
   strHomeState = objExcel.Cells(i, 38).Value  
   
   
   
    
   
   
   
   'copy from templet.vcf  
   
   
   
   strFilename = objExcel.Cells(i, 1).Value & ".vcf"  
   
   
   
   strDstPathfile = strCurPath & "\" & StrVcfFolder & "\" & strFilename  
   
   
   
   Set objFSO = CreateObject("Scripting.FileSystemObject")  
   
   
   
   objFSO.CopyFile strTempfile, strDstPathfile, OverwriteExisting  
   
   
   
    
   
   
   
   '=========================================================1  
   
   
   
   Set objFSO = CreateObject("Scripting.FileSystemObject")  
   
   
   
   Set objFile = objFSO.OpenTextFile(strDstPathfile, ForReading)  
   
   
   
   strText = objFile.ReadAll  
   
   
   
   objFile.Close  
   
   
   
   strNewText = Replace(strText, "Fullname", strFullname)  
   
   
   
   Set objFile = objFSO.OpenTextFile(strDstPathfile, ForWriting)  
   
   
   
   objFile.WriteLine strNewText  
   
   
   
   objFile.Close  
   
   
   
    
   
   
   
   '=========================================================2  
   
   
   
   Set objFSO = CreateObject("Scripting.FileSystemObject")  
   
   
   
   Set objFile = objFSO.OpenTextFile(strDstPathfile, ForReading)  
   
   
   
   strText = objFile.ReadAll  
   
   
   
   objFile.Close  
   
   
   
   strNewText = Replace(strText, "Lastname", strLastname)  
   
   
   
   Set objFile = objFSO.OpenTextFile(strDstPathfile, ForWriting)  
   
   
   
   objFile.WriteLine strNewText  
   
   
   
   objFile.Close  
   
   
   
    
   
   
   
   '=========================================================3  
   
   
   
   Set objFSO = CreateObject("Scripting.FileSystemObject")  
   
   
   
   Set objFile = objFSO.OpenTextFile(strDstPathfile, ForReading)  
   
   
   
   strText = objFile.ReadAll  
   
   
   
   objFile.Close  
   
   
   
   strNewText = Replace(strText, "Firstname", strFirstname)  
   
   
   
   Set objFile = objFSO.OpenTextFile(strDstPathfile, ForWriting)  
   
   
   
   objFile.WriteLine strNewText  
   
   
   
   objFile.Close  
   
   
   
    
   
   
   
   '=========================================================4  
   
   
   
   Set objFSO = CreateObject("Scripting.FileSystemObject")  
   
   
   
   Set objFile = objFSO.OpenTextFile(strDstPathfile, ForReading)  
   
   
   
   strText = objFile.ReadAll  
   
   
   
   objFile.Close  
   
   
   
   strNewText = Replace(strText, "Alias", strAlias)  
   
   
   
   Set objFile = objFSO.OpenTextFile(strDstPathfile, ForWriting)  
   
   
   
   objFile.WriteLine strNewText  
   
   
   
   objFile.Close  
   
   
   
    
   
   
   
   '=========================================================5  
   
   
   
   Set objFSO = CreateObject("Scripting.FileSystemObject")  
   
   
   
   Set objFile = objFSO.OpenTextFile(strDstPathfile, ForReading)  
   
   
   
   strText = objFile.ReadAll  
   
   
   
   objFile.Close  
   
   
   
   strNewText = Replace(strText, "PrimaryCell", strPrimaryCell)  
   
   
   
   Set objFile = objFSO.OpenTextFile(strDstPathfile, ForWriting)  
   
   
   
   objFile.WriteLine strNewText  
   
   
   
   objFile.Close  
   
   
   
    
   
   
   
   '=========================================================6  
   
   
   
   Set objFSO = CreateObject("Scripting.FileSystemObject")  
   
   
   
   Set objFile = objFSO.OpenTextFile(strDstPathfile, ForReading)  
   
   
   
   strText = objFile.ReadAll  
   
   
   
   objFile.Close  
   
   
   
   strNewText = Replace(strText, "SecondaryCell", strSecondaryCell)  
   
   
   
   Set objFile = objFSO.OpenTextFile(strDstPathfile, ForWriting)  
   
   
   
   objFile.WriteLine strNewText  
   
   
   
   objFile.Close  
   
   
   
    
   
   
   
   '=========================================================7  
   
   
   
   Set objFSO = CreateObject("Scripting.FileSystemObject")  
   
   
   
   Set objFile = objFSO.OpenTextFile(strDstPathfile, ForReading)  
   
   
   
   strText = objFile.ReadAll  
   
   
   
   objFile.Close  
   
   
   
   strNewText = Replace(strText, "WorkNum1", strWorkNum1)  
   
   
   
   Set objFile = objFSO.OpenTextFile(strDstPathfile, ForWriting)  
   
   
   
   objFile.WriteLine strNewText  
   
   
   
   objFile.Close  
   
   
   
    
   
   
   
   '=========================================================8  
   
   
   
   Set objFSO = CreateObject("Scripting.FileSystemObject")  
   
   
   
   Set objFile = objFSO.OpenTextFile(strDstPathfile, ForReading)  
   
   
   
   strText = objFile.ReadAll  
   
   
   
   objFile.Close  
   
   
   
   strNewText = Replace(strText, "WorkNum2", strWorkNum2)  
   
   
   
   Set objFile = objFSO.OpenTextFile(strDstPathfile, ForWriting)  
   
   
   
   objFile.WriteLine strNewText  
   
   
   
   objFile.Close  
   
   
   
    
   
   
   
   '=========================================================9  
   
   
   
   Set objFSO = CreateObject("Scripting.FileSystemObject")  
   
   
   
   Set objFile = objFSO.OpenTextFile(strDstPathfile, ForReading)  
   
   
   
   strText = objFile.ReadAll  
   
   
   
   objFile.Close  
   
   
   
   strNewText = Replace(strText, "WorkFax", strWorkFax)  
   
   
   
   Set objFile = objFSO.OpenTextFile(strDstPathfile, ForWriting)  
   
   
   
   objFile.WriteLine strNewText  
   
   
   
   objFile.Close  
   
   
   
    
   
   
   
   '========================================================10  
   
   
   
   Set objFSO = CreateObject("Scripting.FileSystemObject")  
   
   
   
   Set objFile = objFSO.OpenTextFile(strDstPathfile, ForReading)  
   
   
   
   strText = objFile.ReadAll  
   
   
   
   objFile.Close  
   
   
   
   strNewText = Replace(strText, "HomeNum1", strHomeNum1)  
   
   
   
   Set objFile = objFSO.OpenTextFile(strDstPathfile, ForWriting)  
   
   
   
   objFile.WriteLine strNewText  
   
   
   
   objFile.Close  
   
   
   
    
   
   
   
   '========================================================11  
   
   
   
   Set objFSO = CreateObject("Scripting.FileSystemObject")  
   
   
   
   Set objFile = objFSO.OpenTextFile(strDstPathfile, ForReading)  
   
   
   
   strText = objFile.ReadAll  
   
   
   
   objFile.Close  
   
   
   
   strNewText = Replace(strText, "HomeNum2", strHomeNum2)  
   
   
   
   Set objFile = objFSO.OpenTextFile(strDstPathfile, ForWriting)  
   
   
   
   objFile.WriteLine strNewText  
   
   
   
   objFile.Close  
   
   
   
    
   
   
   
   '========================================================12  
   
   
   
   Set objFSO = CreateObject("Scripting.FileSystemObject")  
   
   
   
   Set objFile = objFSO.OpenTextFile(strDstPathfile, ForReading)  
   
   
   
   strText = objFile.ReadAll  
   
   
   
   objFile.Close  
   
   
   
   strNewText = Replace(strText, "HomeFax", strHomeFax)  
   
   
   
   Set objFile = objFSO.OpenTextFile(strDstPathfile, ForWriting)  
   
   
   
   objFile.WriteLine strNewText  
   
   
   
   objFile.Close  
   
   
   
    
   
   
   
   '========================================================13  
   
   
   
   Set objFSO = CreateObject("Scripting.FileSystemObject")  
   
   
   
   Set objFile = objFSO.OpenTextFile(strDstPathfile, ForReading)  
   
   
   
   strText = objFile.ReadAll  
   
   
   
   objFile.Close  
   
   
   
   strNewText = Replace(strText, "RadioNum", strRadioNum)  
   
   
   
   Set objFile = objFSO.OpenTextFile(strDstPathfile, ForWriting)  
   
   
   
   objFile.WriteLine strNewText  
   
   
   
   objFile.Close  
   
   
   
    
   
   
   
   '========================================================14  
   
   
   
   Set objFSO = CreateObject("Scripting.FileSystemObject")  
   
   
   
   Set objFile = objFSO.OpenTextFile(strDstPathfile, ForReading)  
   
   
   
   strText = objFile.ReadAll  
   
   
   
   objFile.Close  
   
   
   
   strNewText = Replace(strText, "ISDNNum", strISDNNum)  
   
   
   
   Set objFile = objFSO.OpenTextFile(strDstPathfile, ForWriting)  
   
   
   
   objFile.WriteLine strNewText  
   
   
   
   objFile.Close  
   
   
   
    
   
   
   
   '========================================================15  
   
   
   
   Set objFSO = CreateObject("Scripting.FileSystemObject")  
   
   
   
   Set objFile = objFSO.OpenTextFile(strDstPathfile, ForReading)  
   
   
   
   strText = objFile.ReadAll  
   
   
   
   objFile.Close  
   
   
   
   strNewText = Replace(strText, "Email1", strEmail1)  
   
   
   
   Set objFile = objFSO.OpenTextFile(strDstPathfile, ForWriting)  
   
   
   
   objFile.WriteLine strNewText  
   
   
   
   objFile.Close  
   
   
   
    
   
   
   
   '========================================================16  
   
   
   
   Set objFSO = CreateObject("Scripting.FileSystemObject")  
   
   
   
   Set objFile = objFSO.OpenTextFile(strDstPathfile, ForReading)  
   
   
   
   strText = objFile.ReadAll  
   
   
   
   objFile.Close  
   
   
   
   strNewText = Replace(strText, "Email2", strEmail2)  
   
   
   
   Set objFile = objFSO.OpenTextFile(strDstPathfile, ForWriting)  
   
   
   
   objFile.WriteLine strNewText  
   
   
   
   objFile.Close  
   
   
   
    
   
   
   
   '========================================================17  
   
   
   
   Set objFSO = CreateObject("Scripting.FileSystemObject")  
   
   
   
   Set objFile = objFSO.OpenTextFile(strDstPathfile, ForReading)  
   
   
   
   strText = objFile.ReadAll  
   
   
   
   objFile.Close  
   
   
   
   strNewText = Replace(strText, "Email3", strEmail3)  
   
   
   
   Set objFile = objFSO.OpenTextFile(strDstPathfile, ForWriting)  
   
   
   
   objFile.WriteLine strNewText  
   
   
   
   objFile.Close  
   
   
   
    
   
   
   
   '========================================================18  
   
   
   
   Set objFSO = CreateObject("Scripting.FileSystemObject")  
   
   
   
   Set objFile = objFSO.OpenTextFile(strDstPathfile, ForReading)  
   
   
   
   strText = objFile.ReadAll  
   
   
   
   objFile.Close  
   
   
   
   strNewText = Replace(strText, "Website", strWebsite)  
   
   
   
   Set objFile = objFSO.OpenTextFile(strDstPathfile, ForWriting)  
   
   
   
   objFile.WriteLine strNewText  
   
   
   
   objFile.Close  
   
   
   
    
   
   
   
   '========================================================19  
   
   
   
   Set objFSO = CreateObject("Scripting.FileSystemObject")  
   
   
   
   Set objFile = objFSO.OpenTextFile(strDstPathfile, ForReading)  
   
   
   
   strText = objFile.ReadAll  
   
   
   
   objFile.Close  
   
   
   
   strNewText = Replace(strText, "Organization", strOrganization)  
   
   
   
   Set objFile = objFSO.OpenTextFile(strDstPathfile, ForWriting)  
   
   
   
   objFile.WriteLine strNewText  
   
   
   
   objFile.Close  
   
   
   
    
   
   
   
   '========================================================20  
   
   
   
   Set objFSO = CreateObject("Scripting.FileSystemObject")  
   
   
   
   Set objFile = objFSO.OpenTextFile(strDstPathfile, ForReading)  
   
   
   
   strText = objFile.ReadAll  
   
   
   
   objFile.Close  
   
   
   
   strNewText = Replace(strText, "Grade", strGrade)  
   
   
   
   Set objFile = objFSO.OpenTextFile(strDstPathfile, ForWriting)  
   
   
   
   objFile.WriteLine strNewText  
   
   
   
   objFile.Close  
   
   
   
    
   
   
   
   '========================================================21  
   
   
   
   Set objFSO = CreateObject("Scripting.FileSystemObject")  
   
   
   
   Set objFile = objFSO.OpenTextFile(strDstPathfile, ForReading)  
   
   
   
   strText = objFile.ReadAll  
   
   
   
   objFile.Close  
   
   
   
   strNewText = Replace(strText, "QQnum", strQQnum)  
   
   
   
   Set objFile = objFSO.OpenTextFile(strDstPathfile, ForWriting)  
   
   
   
   objFile.WriteLine strNewText  
   
   
   
   objFile.Close  
   
   
   
    
   
   
   
   '========================================================22  
   
   
   
   Set objFSO = CreateObject("Scripting.FileSystemObject")  
   
   
   
   Set objFile = objFSO.OpenTextFile(strDstPathfile, ForReading)  
   
   
   
   strText = objFile.ReadAll  
   
   
   
   objFile.Close  
   
   
   
   strNewText = Replace(strText, "MSNum", strMSNum)  
   
   
   
   Set objFile = objFSO.OpenTextFile(strDstPathfile, ForWriting)  
   
   
   
   objFile.WriteLine strNewText  
   
   
   
   objFile.Close  
   
   
   
    
   
   
   
   '========================================================23  
   
   
   
   Set objFSO = CreateObject("Scripting.FileSystemObject")  
   
   
   
   Set objFile = objFSO.OpenTextFile(strDstPathfile, ForReading)  
   
   
   
   strText = objFile.ReadAll  
   
   
   
   objFile.Close  
   
   
   
   strNewText = Replace(strText, "Googletalk", strGoogletalk)  
   
   
   
   Set objFile = objFSO.OpenTextFile(strDstPathfile, ForWriting)  
   
   
   
   objFile.WriteLine strNewText  
   
   
   
   objFile.Close  
   
   
   
    
   
   
   
   '========================================================24  
   
   
   
   Set objFSO = CreateObject("Scripting.FileSystemObject")  
   
   
   
   Set objFile = objFSO.OpenTextFile(strDstPathfile, ForReading)  
   
   
   
   strText = objFile.ReadAll  
   
   
   
   objFile.Close  
   
   
   
   strNewText = Replace(strText, "Birthday", strBirthday)  
   
   
   
   Set objFile = objFSO.OpenTextFile(strDstPathfile, ForWriting)  
   
   
   
   objFile.WriteLine strNewText  
   
   
   
   objFile.Close  
   
   
   
    
   
   
   
   '========================================================25  
   
   
   
   Set objFSO = CreateObject("Scripting.FileSystemObject")  
   
   
   
   Set objFile = objFSO.OpenTextFile(strDstPathfile, ForReading)  
   
   
   
   strText = objFile.ReadAll  
   
   
   
   objFile.Close  
   
   
   
   strNewText = Replace(strText, "WorkStreet3", strWorkStreet3)  
   
   
   
   Set objFile = objFSO.OpenTextFile(strDstPathfile, ForWriting)  
   
   
   
   objFile.WriteLine strNewText  
   
   
   
   objFile.Close  
   
   
   
    
   
   
   
   '========================================================26  
   
   
   
   Set objFSO = CreateObject("Scripting.FileSystemObject")  
   
   
   
   Set objFile = objFSO.OpenTextFile(strDstPathfile, ForReading)  
   
   
   
   strText = objFile.ReadAll  
   
   
   
   objFile.Close  
   
   
   
   strNewText = Replace(strText, "WorkStreet2", strWorkStreet2)  
   
   
   
   Set objFile = objFSO.OpenTextFile(strDstPathfile, ForWriting)  
   
   
   
   objFile.WriteLine strNewText  
   
   
   
   objFile.Close  
   
   
   
    
   
   
   
   '========================================================27  
   
   
   
   Set objFSO = CreateObject("Scripting.FileSystemObject")  
   
   
   
   Set objFile = objFSO.OpenTextFile(strDstPathfile, ForReading)  
   
   
   
   strText = objFile.ReadAll  
   
   
   
   objFile.Close  
   
   
   
   strNewText = Replace(strText, "WorkStreet1", strWorkStreet1)  
   
   
   
   Set objFile = objFSO.OpenTextFile(strDstPathfile, ForWriting)  
   
   
   
   objFile.WriteLine strNewText  
   
   
   
   objFile.Close  
   
   
   
    
   
   
   
   '========================================================28  
   
   
   
   Set objFSO = CreateObject("Scripting.FileSystemObject")  
   
   
   
   Set objFile = objFSO.OpenTextFile(strDstPathfile, ForReading)  
   
   
   
   strText = objFile.ReadAll  
   
   
   
   objFile.Close  
   
   
   
   strNewText = Replace(strText, "WorkCity", strWorkCity)  
   
   
   
   Set objFile = objFSO.OpenTextFile(strDstPathfile, ForWriting)  
   
   
   
   objFile.WriteLine strNewText  
   
   
   
   objFile.Close  
   
   
   
    
   
   
   
   '========================================================29  
   
   
   
   Set objFSO = CreateObject("Scripting.FileSystemObject")  
   
   
   
   Set objFile = objFSO.OpenTextFile(strDstPathfile, ForReading)  
   
   
   
   strText = objFile.ReadAll  
   
   
   
   objFile.Close  
   
   
   
   strNewText = Replace(strText, "WorkProvince", strWorkProvince)  
   
   
   
   Set objFile = objFSO.OpenTextFile(strDstPathfile, ForWriting)  
   
   
   
   objFile.WriteLine strNewText  
   
   
   
   objFile.Close  
   
   
   
    
   
   
   
   '========================================================30  
   
   
   
   Set objFSO = CreateObject("Scripting.FileSystemObject")  
   
   
   
   Set objFile = objFSO.OpenTextFile(strDstPathfile, ForReading)  
   
   
   
   strText = objFile.ReadAll  
   
   
   
   objFile.Close  
   
   
   
   strNewText = Replace(strText, "WorkPostalcode", strWorkPostalcode)  
   
   
   
   Set objFile = objFSO.OpenTextFile(strDstPathfile, ForWriting)  
   
   
   
   objFile.WriteLine strNewText  
   
   
   
   objFile.Close  
   
   
   
    
   
   
   
   '========================================================31  
   
   
   
   Set objFSO = CreateObject("Scripting.FileSystemObject")  
   
   
   
   Set objFile = objFSO.OpenTextFile(strDstPathfile, ForReading)  
   
   
   
   strText = objFile.ReadAll  
   
   
   
   objFile.Close  
   
   
   
   strNewText = Replace(strText, "WorkState", strWorkState)  
   
   
   
   Set objFile = objFSO.OpenTextFile(strDstPathfile, ForWriting)  
   
   
   
   objFile.WriteLine strNewText  
   
   
   
   objFile.Close  
   
   
   
    
   
   
   
   '========================================================32  
   
   
   
   Set objFSO = CreateObject("Scripting.FileSystemObject")  
   
   
   
   Set objFile = objFSO.OpenTextFile(strDstPathfile, ForReading)  
   
   
   
   strText = objFile.ReadAll  
   
   
   
   objFile.Close  
   
   
   
   strNewText = Replace(strText, "HomeStreet3", strHomeStreet3)  
   
   
   
   Set objFile = objFSO.OpenTextFile(strDstPathfile, ForWriting)  
   
   
   
   objFile.WriteLine strNewText  
   
   
   
   objFile.Close  
   
   
   
    
   
   
   
   '========================================================33  
   
   
   
   Set objFSO = CreateObject("Scripting.FileSystemObject")  
   
   
   
   Set objFile = objFSO.OpenTextFile(strDstPathfile, ForReading)  
   
   
   
   strText = objFile.ReadAll  
   
   
   
   objFile.Close  
   
   
   
   strNewText = Replace(strText, "HomeStreet2", strHomeStreet2)  
   
   
   
   Set objFile = objFSO.OpenTextFile(strDstPathfile, ForWriting)  
   
   
   
   objFile.WriteLine strNewText  
   
   
   
   objFile.Close  
   
   
   
    
   
   
   
   '========================================================34  
   
   
   
   Set objFSO = CreateObject("Scripting.FileSystemObject")  
   
   
   
   Set objFile = objFSO.OpenTextFile(strDstPathfile, ForReading)  
   
   
   
   strText = objFile.ReadAll  
   
   
   
   objFile.Close  
   
   
   
   strNewText = Replace(strText, "HomeStreet1", strHomeStreet1)  
   
   
   
   Set objFile = objFSO.OpenTextFile(strDstPathfile, ForWriting)  
   
   
   
   objFile.WriteLine strNewText  
   
   
   
   objFile.Close  
   
   
   
    
   
   
   
   '========================================================35  
   
   
   
   Set objFSO = CreateObject("Scripting.FileSystemObject")  
   
   
   
   Set objFile = objFSO.OpenTextFile(strDstPathfile, ForReading)  
   
   
   
   strText = objFile.ReadAll  
   
   
   
   objFile.Close  
   
   
   
   strNewText = Replace(strText, "HomeCity", strHomeCity)  
   
   
   
   Set objFile = objFSO.OpenTextFile(strDstPathfile, ForWriting)  
   
   
   
   objFile.WriteLine strNewText  
   
   
   
   objFile.Close  
   
   
   
    
   
   
   
   '========================================================36  
   
   
   
   Set objFSO = CreateObject("Scripting.FileSystemObject")  
   
   
   
   Set objFile = objFSO.OpenTextFile(strDstPathfile, ForReading)  
   
   
   
   strText = objFile.ReadAll  
   
   
   
   objFile.Close  
   
   
   
   strNewText = Replace(strText, "HomeProvince", strHomeProvince)  
   
   
   
   Set objFile = objFSO.OpenTextFile(strDstPathfile, ForWriting)  
   
   
   
   objFile.WriteLine strNewText  
   
   
   
   objFile.Close  
   
   
   
    
   
   
   
   '========================================================37  
   
   
   
   Set objFSO = CreateObject("Scripting.FileSystemObject")  
   
   
   
   Set objFile = objFSO.OpenTextFile(strDstPathfile, ForReading)  
   
   
   
   strText = objFile.ReadAll  
   
   
   
   objFile.Close  
   
   
   
   strNewText = Replace(strText, "HomePostalcode", strHomePostalcode)  
   
   
   
   Set objFile = objFSO.OpenTextFile(strDstPathfile, ForWriting)  
   
   
   
   objFile.WriteLine strNewText  
   
   
   
   objFile.Close  
   
   
   
    
   
   
   
   '========================================================38  
   
   
   
   Set objFSO = CreateObject("Scripting.FileSystemObject")  
   
   
   
   Set objFile = objFSO.OpenTextFile(strDstPathfile, ForReading)  
   
   
   
   strText = objFile.ReadAll  
   
   
   
   objFile.Close  
   
   
   
   strNewText = Replace(strText, "HomeState", strHomeState)  
   
   
   
   Set objFile = objFSO.OpenTextFile(strDstPathfile, ForWriting)  
   
   
   
   objFile.WriteLine strNewText  
   
   
   
   objFile.Close  
   
   
   
    
   
   
   
   ii = i + 1  
   
   
   
   countcount = count + 1  
   
   
   
   Loop  
   
   
   
    
   
   
   
   objExcel.Quit  
   
   
   
   Wscript.echo "共导入" & count & "个联系人"

到此，单个VCF联系人就制作完毕了，拷贝到手机就可以导入了。

4.合并单个联系人为一个

因为安卓系统支持合并的多联系人VCF文件，所以另写了一个脚本合并所有的联系人。

  
  
  
  
   
   
   
   Set objShell = CreateObject("Wscript.Shell")  
   
   
   
   strCurPath = objShell.CurrentDirectory  
   
   
   
   strVfolder = strCurPath & "\vCards"  
   
   
   
   stroutfile = strCurPath & "\contacts.vcf"  
   
   
   
   strcmd = "copy /B " & strVfolder & "\*.vcf " & stroutfile  
   
   
   
   objShell.Run("%comspec% /c" & strcmd)  
   
   
   
   wscript.sleep 2000  
   
   
   
   wscript.echo "联系人合成完毕!"

5.合并后发现内容中有很多空行和没有实际数值的行，写了个优化脚本，删除多余的空白行和没有值的行。

思路：先将无值行替换成空行再移除空行比较简单。

  
  
  
  
   
   
   
   On Error Resume Next  
   
   
   
    
   
   
   
   Const ForReading=1 
   
   
   
   Const ForWriting=2 
   
   
   
    
   
   
   
   'Replace all useless line to blank.  
   
   
   
   Set objFSO = CreateObject("Scripting.FileSystemObject")  
   
   
   
   Set objFile = objFSO.OpenTextFile("contacts.vcf", ForReading)  
   
   
   
    
   
   
   
   Do Until objFile.AtEndOfStream  
   
   
   
       strLine = objFile.Readline  
   
   
   
       strLine = Trim(strLine)  
   
   
   
       strRline = Right(strLine, 1)  
   
   
   
       If strRline = ":" Then  
   
   
   
       strnewline = " " 
   
   
   
       Else  
   
   
   
       strnewline = strLine 
   
   
   
       End if  
   
   
   
       strNewTextstrNewText = strNewText & strnewline & vbCrLf  
   
   
   
   Loop  
   
   
   
    
   
   
   
   objFile.Close  
   
   
   
    
   
   
   
   Set objFile = objFSO.OpenTextFile("contacts.vcf", ForWriting)  
   
   
   
   objFile.Write strNewText  
   
   
   
   objFile.Close  
   
   
   
    
   
   
   
   'Delete all blank line  
   
   
   
   Set objFSO = CreateObject("Scripting.FileSystemObject")  
   
   
   
   Set objFile = objFSO.OpenTextFile("contacts.vcf", ForReading)  
   
   
   
    
   
   
   
   Do Until objFile.AtEndOfStream  
   
   
   
       strLine = objFile.Readline  
   
   
   
       strLine = Trim(strLine)  
   
   
   
       If Len(strLine) > 0 Then  
   
   
   
           strNewContentsstrNewContents = strNewContents & strLine & vbCrLf  
   
   
   
       End If  
   
   
   
   Loop  
   
   
   
    
   
   
   
   objFile.Close  
   
   
   
    
   
   
   
   Set objFile = objFSO.OpenTextFile("contacts.vcf", ForWriting)  
   
   
   
   objFile.Write strNewContents  
   
   
   
   objFile.Close  
   
   
   
    
   
   
   
   wscript.echo "优化完毕!"

优化后的vcf就可以导入安卓系统或者上传到google通讯录了。

PS：附件为整个程序文件（含使用说明和另两个惊喜程序^_^）

做的不好别拍砖，支持的留个脚印。

你的支持是我最大的动力。

QQ群采集助手，精准引流必备神器 2401_87347160 其他经验分享
功能概述微信群查找与筛选工具是一款专为微信用户设计的辅助工具，它通过关键词搜索功能，帮助用户快速找到相关的微信群，并提供筛选是否需要验证的群组的功能。主要功能关键词搜索：用户可以输入关键词，工具将自动查找包含该关键词的微信群。筛选功能：工具提供筛选机制，用户可以选择是否只显示需要验证或不需要验证的群组。精准引流：通过上述功能，用户可以更精准地找到目标群组，进行有效的引流操作。3.设备需求该工具可以
理解Gunicorn：Python WSGI服务器的基石范范0825 ipython linux 运维
理解Gunicorn：PythonWSGI服务器的基石介绍Gunicorn，全称GreenUnicorn，是一个为PythonWSGI（WebServerGatewayInterface）应用设计的高效、轻量级HTTP服务器。作为PythonWeb应用部署的常用工具，Gunicorn以其高性能和易用性著称。本文将介绍Gunicorn的基本概念、安装和配置，帮助初学者快速上手。1.什么是Gunico
《投行人生》读书笔记小蘑菇的树洞
《投行人生》----作者詹姆斯-A-朗德摩根斯坦利副主席40年的职业洞见-很短小精悍的篇幅，比较适合初入职场的新人。第一部分成功的职业生涯需要规划1.情商归为适应能力分享与协作同理心适应能力，更多的是自我意识，你有能力识别自己的情并分辨这些情绪如何影响你的思想和行为。2.对于初入职场的人的建议，细节，截止日期和数据很重要截止日期，一种有效的方法是请老板为你所有的任务进行优先级排序。和老板喝咖啡的好
2022-04-18 Apbenz
语重心长的和我说，不要老是说不行，人至而立之年危机四伏，内在的，外在的，感觉就是心力憔悴，让人无所适从。面对职场的无情，突然好羡慕干体力劳动的外卖小哥。难道命运是想让我去送外卖了吗？干体力活才能让我活下去？fastadmin打卡成功,淘宝金币任务完成。ㅏㅓㅗㅜㅡㅣㅐㅔㅑㅕㅛㅠㅢㅒㅖY行。야자여자요리우유의사얘기예
怎么起诉借钱不还的人？怎样起诉欠款不还的人？影子爱学习
怎么起诉借钱不还的人？怎样起诉欠款不还的人？如果遇到难以解决的法律问题，我们可以匹配专业律师。例如：婚姻家庭（离婚纠纷）、刑事辩护、合同纠纷、债权债务、房产（继承）纠纷、交通事故、劳动争议、人身损害、公司相关法律事务（法律顾问）等咨询推荐手机/微信:15633770876【全国案件皆可】借钱不还起诉对方需要哪些资料起诉欠钱不还的，一般需要的材料包括以下这些：借据、收据、欠条、付款凭证等证据，以及向
Google earth studio 简介陟彼高冈yu 旅游
GoogleEarthStudio是一个基于Web的动画工具，专为创作使用GoogleEarth数据的动画和视频而设计。它利用了GoogleEarth强大的三维地图和卫星影像数据库，使用户能够轻松地创建逼真的地球动画、航拍视频和动态地图可视化。网址为https://www.google.com/earth/studio/。GoogleEarthStudio是一个基于Web的动画工具，专为创作使用G
直返最高等级与直返APP：无需邀请码的返利新体验古楼
随着互联网的普及和电商的兴起，直返模式逐渐成为一种流行的商业模式。在这种模式下，消费者通过购买产品或服务，获得一定的返利，并可以分享给更多的人。其中，直返最高等级和直返APP是直返模式中的重要概念和工具。本文将详细介绍直返最高等级的概念、直返APP的使用以及与邀请码的关系。【高省】APP（高佣金领导者）是一个自用省钱佣金高，分享推广赚钱多的平台，百度有几百万篇报道，运行三年，稳定可靠。高省APP，
特殊的拜年飘雪的天堂
文/雪儿大年初一，家家户户没有了轰响的鞭炮声，大街上没有了人流涌动的喧闹，几乎看不到人影，变得冷冷清清。天刚亮不大会儿，村里的大喇叭响了起来：由于当前正值疾病高发期，流感流行的高峰期。同时，新型冠状病毒感染的肺炎进入第二波流行的上升期。为了自己和他人的健康安全着想，请大家尽量不要串门拜年，不要在街里走动。可以通过手机微信，视频，电话，信息拜年……今年的春节真是特别。禁止燃放鞭炮，烟花爆竹，禁止出村
万物难度不度己边度512
你好，陌生人！你是否有过迷茫，在别人的面前自己却不曾展示！你是否自己承担着所有的痛苦，却又笑对人生！你是否在很多时候想找人诉说，翻开手机却发现，手机里面空无一人！你是否有很多事情想做，最后却因你自己拖延，最后发现自己什么都做不了！对没有错，我的名字就叫你是否！不要怀疑！不要悲伤！我们的生活可是还有很到要继续的呢！还有很多那个人，很多地方我们都没有去过！所以我们已经没有退路了！那就继续向前吧！加油！
2020-04-12每天三百字之连接与替代冷眼看潮
不知道是不是好为人师，有时候还真想和别人分享一下我对某些现象的看法或者解释。人类社会不断发展进步的过程，就是不断连接与替代的过程。人类发现了火并应用火以后，告别了茹毛饮血的野兽般的原始生活（火烧、烹饪替代了生食）人类用石器代替了完全手工，工具的使用使人类进步一大步。类似这样的替代还有很多，随着科技的发展，有更多的原始的事物被替代，代之以更高效、更先进的技术。在近现代，汽车替代了马车，高速公路和铁路
探索OpenAI和LangChain的适配器集成：轻松切换模型提供商 nseejrukjhad langchain easyui 前端 python
#探索OpenAI和LangChain的适配器集成：轻松切换模型提供商##引言在人工智能和自然语言处理的世界中，OpenAI的模型提供了强大的能力。然而，随着技术的发展，许多人开始探索其他模型以满足特定需求。LangChain作为一个强大的工具，集成了多种模型提供商，通过提供适配器，简化了不同模型之间的转换。本篇文章将介绍如何使用LangChain的适配器与OpenAI集成，以便轻松切换模型提供商
利用Requests Toolkit轻松完成HTTP请求 nseejrukjhad http 网络协议网络 python
RequestsToolkit的力量：轻松构建HTTP请求Agent在现代软件开发中，API请求是与外部服务交互的核心。RequestsToolkit提供了一种便捷的方式，帮助开发者构建自动化的HTTP请求Agent。本文旨在详细介绍RequestsToolkit的设置、使用和潜在挑战。引言RequestsToolkit是一个强大的工具包，可用于构建执行HTTP请求的智能代理。这对于想要自动化与外
深入理解 MultiQueryRetriever：提升向量数据库检索效果的强大工具 nseejrukjhad 数据库 python
深入理解MultiQueryRetriever：提升向量数据库检索效果的强大工具引言在人工智能和自然语言处理领域，高效准确的信息检索一直是一个关键挑战。传统的基于距离的向量数据库检索方法虽然广泛应用，但仍存在一些局限性。本文将介绍一种创新的解决方案：MultiQueryRetriever，它通过自动生成多个查询视角来增强检索效果，提高结果的相关性和多样性。MultiQueryRetriever的工
GitHub上克隆项目 bigbig猩猩 github
从GitHub上克隆项目是一个简单且直接的过程，它允许你将远程仓库中的项目复制到你的本地计算机上，以便进行进一步的开发、测试或学习。以下是一个详细的步骤指南，帮助你从GitHub上克隆项目。一、准备工作1.安装Git在克隆GitHub项目之前，你需要在你的计算机上安装Git工具。Git是一个开源的分布式版本控制系统，用于跟踪和管理代码变更。你可以从Git的官方网站（https://git-scm.
【目标检测数据集】卡车数据集1073张VOC+YOLO格式熬夜写代码的平头哥∰ 目标检测 YOLO 人工智能
数据集格式：PascalVOC格式+YOLO格式(不包含分割路径的txt文件，仅仅包含jpg图片以及对应的VOC格式xml文件和yolo格式txt文件)图片数量(jpg文件个数)：1073标注数量(xml文件个数)：1073标注数量(txt文件个数)：1073标注类别数：1标注类别名称:["truck"]每个类别标注的框数：truck框数=1120总框数：1120使用标注工具：labelImg标注
人工智能时代，程序员如何保持核心竞争力？ jmoych 人工智能
随着AIGC（如chatgpt、midjourney、claude等）大语言模型接二连三的涌现，AI辅助编程工具日益普及，程序员的工作方式正在发生深刻变革。有人担心AI可能取代部分编程工作，也有人认为AI是提高效率的得力助手。面对这一趋势,程序员应该如何应对?是专注于某个领域深耕细作，还是广泛学习以适应快速变化的技术环境?又或者，我们是否应该将重点转向AI无法轻易替代的软技能？让我们一起探讨程序员
2022现在哪个打车软件比较好用又便宜实惠的打车软件合集高省APP珊珊
这是一个信息高速传播的社会。信息可以通过手机，微信，自媒体，抖音等方式进行传播。但同时这也是一个交通四通发达的社会。高省APP，是2022年推出的平台，0投资，0风险、高省APP佣金更高，模式更好，终端用户不流失。【高省】是一个自用省钱佣金高，分享推广赚钱多的平台，百度有几百万篇报道，也期待你的加入。珊珊导师，高省邀请码777777，注册送2皇冠会员，送万元推广大礼包，教你如何1年做到百万团队。高
没有邀请码怎么注册买手妈妈? 氧惠评测
买手妈妈怎么注册小编为大家带来买手妈妈没有邀请码怎么注册。打开买手妈妈APP，点击“马上注册”，输入邀请信息“邀请码”点击下一步，没有邀请码是登录不上的，所以这个必须要填写，那我们没有怎么办？填写成功就可以登录下一步。这里面有手机登录和淘宝登录，手机登录以后也需要用淘宝授权的，所以基本上都是淘宝登录。购物、看电影、点外卖、用氧惠APP！更优惠！氧惠（全网优惠上氧惠）——是与以往完全不同的抖客+淘客
pyecharts——绘制柱形图折线图 2224070247 信息可视化 python java 数据可视化
一、pyecharts概述自2013年6月百度EFE(ExcellentFrontEnd）数据可视化团队研发的ECharts1.0发布到GitHub网站以来，ECharts一直备受业界权威的关注并获得广泛好评，成为目前成熟且流行的数据可视化图表工具，被应用到诸多数据可视化的开发领域。Python作为数据分析领域最受欢迎的语言，也加入ECharts的使用行列，并研发出方便Python开发者使用的数据
钢筋长度超限检测检数据集VOC+YOLO格式215张1类别 futureflsl 数据集 YOLO 深度学习机器学习
数据集格式：PascalVOC格式+YOLO格式(不包含分割路径的txt文件，仅仅包含jpg图片以及对应的VOC格式xml文件和yolo格式txt文件)图片数量(jpg文件个数)：215标注数量(xml文件个数)：215标注数量(txt文件个数)：215标注类别数：1标注类别名称:["iron"]每个类别标注的框数：iron框数=215总框数：215使用标注工具：labelImg标注规则：对类别进
CX8903：Ebike自行车仪表电源方案开发,Ebike智能仪表电源芯片诚芯微科技社交电子
CX8903：电动Ebike自行车仪表电源方案开发,Ebike智能仪表电源芯片推荐。电动助力自行车EBIKE凭借其环保、健康、低噪、和便捷等特点，成为了越来越受欢迎的骑行便利交通工具。提供电动Ebike自行车仪表电源方案开发、E-BIKE电动助力自行车仪表供电电源解决方案。CX8903采用100V高压制造工艺（芯片最高耐压可到100V以上），SOP-8L贴片封装，CX8903内置100V/90mΩ
Python 实现图片裁剪（附代码） | Python工具剑客阿良_ALiang
前言本文提供将图片按照自定义尺寸进行裁剪的工具方法，一如既往的实用主义。环境依赖ffmpeg环境安装，可以参考我的另一篇文章：windowsffmpeg安装部署_阿良的博客-CSDN博客本文主要使用到的不是ffmpeg，而是ffprobe也在上面这篇文章中的zip包中。ffmpy安装：pipinstallffmpy-ihttps://pypi.douban.com/simple代码不废话了，上代码
【华为OD技术面试真题 - 技术面】-测试八股文真题题库（1）算法大师华为od 面试 python 算法前端
华为OD面试真题精选专栏：华为OD面试真题精选目录:2024华为OD面试手撕代码真题目录以及八股文真题目录文章目录华为OD面试真题精选1.黑盒测试和白盒测试的区别2.假设我们公司现在开发一个类似于微信的软件1.0版本，现在要你测试这个功能：打开聊天窗口，输入文本，限制字数在200字以内。问你怎么提取测试点。功能测试性能测试安全性测试可用性测试跨平台兼容性测试网络环境测试3.接口测试的工具你了解哪些
烟花美，但瞬间即逝的样子像极了爱情。胡萝卜很甜
我见过烟花在天上绽放时绚烂的模样也目睹过爱情消逝曾经相爱的两人变冷漠的样子其实我特别喜欢烟花绽放的艳丽大年初一凌晨的烟花手机拍的没有眼睛看到的美但是烟花虽美，稍纵即逝，眼睛刚记录下它的美好，就转眼消失不见。天空又恢复一片黑。烟花的样子像极了爱情啊……不论曾经多么山盟海誓，海枯石烂。只要吵架或者分手。就变得那么冷漠，那么陌生。你甚至开始怀疑你有过爱情么？真正的爱情到底是什么样子。来的快去的也快么？对
Python爬虫解析工具之xpath使用详解 eqa11 python 爬虫开发语言
文章目录Python爬虫解析工具之xpath使用详解一、引言二、环境准备1、插件安装2、依赖库安装三、xpath语法详解1、路径表达式2、通配符3、谓语4、常用函数四、xpath在Python代码中的使用1、文档树的创建2、使用xpath表达式3、获取元素内容和属性五、总结Python爬虫解析工具之xpath使用详解一、引言在Python爬虫开发中，数据提取是一个至关重要的环节。xpath作为一门
Low Power概念介绍-Voltage Area 飞奔的大虎
随着智能手机，以及物联网的普及，芯片功耗的问题最近几年得到了越来越多的重视。为了实现集成电路的低功耗设计目标，我们需要在系统设计阶段就采用低功耗设计的方案。而且，随着设计流程的逐步推进，到了芯片后端设计阶段，降低芯片功耗的方法已经很少了，节省的功耗百分比也不断下降。芯片的功耗主要由静态功耗（staticleakagepower）和动态功耗(dynamicpower)构成。静态功耗主要是指电路处于等
mac电脑命令行获取电量小米人er 我的博客 macos 命令行
在macOS上，有几个命令行工具可以用来获取电量信息，最常用的是pmset命令。你可以通过以下方式来查看电池状态和电量信息：查看电池状态：pmset-gbatt这个命令会返回类似下面的输出：Nowdrawingfrom'BatteryPower'-InternalBattery-0(id=1234567)95%;discharging;4:02remainingpresent:true输出中包括电
【华为OD技术面试真题 - 技术面】- python八股文真题题库（1）算法大师华为od 面试 python
华为OD面试真题精选专栏：华为OD面试真题精选目录:2024华为OD面试手撕代码真题目录以及八股文真题目录文章目录华为OD面试真题精选1.数据预处理流程数据预处理的主要步骤工具和库2.介绍线性回归、逻辑回归模型线性回归（LinearRegression）模型形式：关键点：逻辑回归（LogisticRegression）模型形式：关键点：参数估计与评估：3.python浅拷贝及深拷贝浅拷贝（Shal
摩托车加装车载手机充电usb方案/雅马哈USB充电方案开发诚芯微科技社交电子
长途骑行需要给手机与行车记录仪等设备供电，那么，加装USB充电器就相继在两轮电动车上应用起来了。摩托车加装usb充电方案主要应用于汽车、电动自行车、摩托车、房车、渡轮、游艇等交通工具。提供电动车USB充电器方案/摩托车加装usb充电方案/渡轮加装usb充电方案/游艇加装usb充电方案开发。摩托车加装车载手机充电usb方案、汽车游艇改装四孔面板装双USB车充点烟器5V/4A电动车USB充电器输入4.
如何选择最适合你的项目研发管理软件？TAPD卓越版全面解析北京云巴巴信息技术有限公司产品经理需求分析
在当今快速发展的科技时代，项目研发管理软件已成为企业不可或缺的重要工具。面对市场上琳琅满目的产品，如何选择一款适合自己团队的项目研发管理软件呢？本文将围绕项目研发管理软件的选择标准，重点介绍TAPD卓越版的特点、优势以及使用体验，让你更好地理解和选择适合自己的项目研发管理软件。项目研发管理软件的选择标准在选择项目研发管理软件时，我们需要考虑以下几个方面的因素：功能全面性：软件是否覆盖了从需求管理、
SAX解析xml文件小猪猪08 xml
1.创建SAXParserFactory实例 2.通过SAXParserFactory对象获取SAXParser实例 3.创建一个类SAXParserHander继续DefaultHandler，并且实例化这个类 4.SAXParser实例的parse来获取文件 public static void main(String[] args) { //
为什么mysql里的ibdata1文件不断的增长？ brotherlamp linux linux运维 linux资料 linux视频 linux运维自学
我们在 Percona 支持栏目经常收到关于 MySQL 的 ibdata1 文件的这个问题。当监控服务器发送一个关于 MySQL 服务器存储的报警时，恐慌就开始了 —— 就是说磁盘快要满了。一番调查后你意识到大多数地盘空间被 InnoDB 的共享表空间 ibdata1 使用。而你已经启用了 innodbfileper_table，所以问题是： ibdata1存了什么？当你启用了 i
Quartz-quartz.properties配置 eksliang quartz
其实Quartz JAR文件的org.quartz包下就包含了一个quartz.properties属性配置文件并提供了默认设置。如果需要调整默认配置，可以在类路径下建立一个新的quartz.properties，它将自动被Quartz加载并覆盖默认的设置。下面是这些默认值的解释 #-----集群的配置 org.quartz.scheduler.instanceName =
informatica session的使用 18289753290 workflow session log Informatica
如果希望workflow存储最近20次的log，在session里的Config Object设置，log options做配置，save session log :sessions run ;savesessio log for these runs:20 session下面的source 里面有个tracing
Scrapy抓取网页时出现CRC check failed 0x471e6e9a != 0x7c07b839L的错误酷的飞上天空 scrapy
Scrapy版本0.14.4 出现问题现象： ERROR: Error downloading <GET http://xxxxx CRC check failed 解决方法 1.设置网络请求时的header中的属性'Accept-Encoding': '*;q=0' 明确表示不支持任何形式的压缩格式，避免程序的解压
java Swing小集锦永夜-极光 java swing
1.关闭窗体弹出确认对话框 1.1 this.setDefaultCloseOperation (JFrame.DO_NOTHING_ON_CLOSE); 1.2 this.addWindowListener ( new WindowAdapter () { public void windo
强制删除.svn文件夹随便小屋 java
在windows上，从别处复制的项目中可能带有.svn文件夹，手动删除太麻烦，并且每个文件夹下都有。所以写了个程序进行删除。因为.svn文件夹在windows上是只读的，所以用File中的delete()和deleteOnExist()方法都不能将其删除，所以只能采用windows命令方式进行删除
GET和POST有什么区别？及为什么网上的多数答案都是错的。 aijuans get post
如果有人问你，GET和POST，有什么区别？你会如何回答？我的经历前几天有人问我这个问题。我说GET是用于获取数据的，POST，一般用于将数据发给服务器之用。这个答案好像并不是他想要的。于是他继续追问有没有别的区别？我说这就是个名字而已，如果服务器支持，他完全可以把G
谈谈新浪微博背后的那些算法 aoyouzi 谈谈新浪微博背后的那些算法
本文对微博中常见的问题的对应算法进行了简单的介绍，在实际应用中的算法比介绍的要复杂的多。当然，本文覆盖的主题并不全，比如好友推荐、热点跟踪等就没有涉及到。但古人云“窥一斑而见全豹”，希望本文的介绍能帮助大家更好的理解微博这样的社交网络应用。微博是一个很多人都在用的社交应用。天天刷微博的人每天都会进行着这样几个操作：原创、转发、回复、阅读、关注、@等。其中，前四个是针对短博文，最后的关注和@则针
Connection reset 连接被重置的解决方法百合不是茶 java 字符流连接被重置
流是java的核心部分,,昨天在做android服务器连接服务器的时候出了问题,就将代码放到java中执行,结果还是一样连接被重置被重置的代码如下; 客户端代码; package 通信软件服务器; import java.io.BufferedWriter; import java.io.OutputStream; import java.io.O
web.xml配置详解之filter bijian1013 java web.xml filter
一.定义 <filter> <filter-name>encodingfilter</filter-name> <filter-class>com.my.app.EncodingFilter</filter-class> <init-param> <param-name>encoding<
Heritrix Bill_chen 多线程 xml 算法制造配置管理
作为纯Java语言开发的、功能强大的网络爬虫Heritrix，其功能极其强大，且扩展性良好，深受热爱搜索技术的盆友们的喜爱，但它配置较为复杂，且源码不好理解，最近又使劲看了下，结合自己的学习和理解，跟大家分享Heritrix的点点滴滴。 Heritrix的下载（http://sourceforge.net/projects/archive-crawler/）安装、配置，就不罗嗦了，可以自己找找资
【Zookeeper】FAQ bit1129 zookeeper
1.脱离IDE，运行简单的Java客户端程序 #ZkClient是简单的Zookeeper~$ java -cp "./:zookeeper-3.4.6.jar:./lib/*" ZKClient 1. Zookeeper是的Watcher回调是同步操作，需要添加异步处理的代码 2. 如果Zookeeper集群跨越多个机房，那么Leader/
The user specified as a definer ('aaa'@'localhost') does not exist 白糖_ localhost
今天遇到一个客户BUG，当前的jdbc连接用户是root，然后部分删除操作都会报下面这个错误：The user specified as a definer ('aaa'@'localhost') does not exist 最后找原因发现删除操作做了触发器，而触发器里面有这样一句 /*!50017 DEFINER = ''aaa@'localhost' */ 原来最初
javascript中showModelDialog刷新父页面 bozch JavaScript 刷新父页面 showModalDialog
在页面中使用showModalDialog打开模式子页面窗口的时候，如果想在子页面中操作父页面中的某个节点，可以通过如下的进行： window.showModalDialog('url',self,‘status...’); // 首先中间参数使用self 在子页面使用w
编程之美-买书折扣 bylijinnan 编程之美
import java.util.Arrays; public class BookDiscount { /**编程之美买书折扣书上的贪心算法的分析很有意思，我看了半天看不懂，结果作者说，贪心算法在这个问题上是不适用的。。下面用动态规划实现。哈利波特这本书一共有五卷，每卷都是8欧元，如果读者一次购买不同的两卷可扣除5%的折扣，三卷10%，四卷20%，五卷
关于struts2.3.4项目跨站执行脚本以及远程执行漏洞修复概要 chenbowen00 struts WEB安全
因为近期负责的几个银行系统软件，需要交付客户，因此客户专门请了安全公司对系统进行了安全评测，结果发现了诸如跨站执行脚本，远程执行漏洞以及弱口令等问题。下面记录下本次解决的过程以便后续 1、首先从最简单的开始处理，服务器的弱口令问题，首先根据安全工具提供的测试描述中发现应用服务器中存在一个匿名用户，默认是不需要密码的，经过分析发现服务器使用了FTP协议，而使用ftp协议默认会产生一个匿名用
[电力与暖气]煤炭燃烧与电力加温 comsci
在宇宙中,用贝塔射线观测地球某个部分,看上去,好像一个个马蜂窝,又像珊瑚礁一样,原来是某个国家的采煤区..... 不过,这个采煤区的煤炭看来是要用完了.....那么依赖将起燃烧并取暖的城市,在极度严寒的季节中...该怎么办呢? &nbs
oracle O7_DICTIONARY_ACCESSIBILITY参数 daizj oracle
O7_DICTIONARY_ACCESSIBILITY参数控制对数据字典的访问.设置为true,如果用户被授予了如select any table等any table权限,用户即使不是dba或sysdba用户也可以访问数据字典.在9i及以上版本默认为false,8i及以前版本默认为true.如果设置为true就可能会带来安全上的一些问题.这也就为什么O7_DICTIONARY_ACCESSIBIL
比较全面的MySQL优化参考 dengkane mysql
本文整理了一些MySQL的通用优化方法，做个简单的总结分享，旨在帮助那些没有专职MySQL DBA的企业做好基本的优化工作，至于具体的SQL优化，大部分通过加适当的索引即可达到效果，更复杂的就需要具体分析了，可以参考本站的一些优化案例或者联系我，下方有我的联系方式。这是上篇。 1、硬件层相关优化 1.1、CPU相关在服务器的BIOS设置中，可
C语言homework2，有一个逆序打印数字的小算法 dcj3sjt126com c
#h1# 0、完成课堂例子 1、将一个四位数逆序打印 1234 ==> 4321 实现方法一： # include <stdio.h> int main(void) { int i = 1234; int one = i%10; int two = i / 10 % 10; int three = i / 100 % 10;
apacheBench对网站进行压力测试 dcj3sjt126com apachebench
ab 的全称是 ApacheBench ，是 Apache 附带的一个小工具，专门用于 HTTP Server 的 benchmark testing ，可以同时模拟多个并发请求。前段时间看到公司的开发人员也在用它作一些测试，看起来也不错，很简单，也很容易使用，所以今天花一点时间看了一下。通过下面的一个简单的例子和注释，相信大家可以更容易理解这个工具的使用。
2种办法让HashMap线程安全 flyfoxs java jdk jni
多线程之--2种办法让HashMap线程安全多线程之--synchronized 和reentrantlock的优缺点多线程之--2种JAVA乐观锁的比较( NonfairSync VS. FairSync) HashMap不是线程安全的,往往在写程序时需要通过一些方法来回避.其实JDK原生的提供了2种方法让HashMap支持线程安全.
Spring Security（04）——认证简介 234390216 Spring Security 认证过程
认证简介目录 1.1 认证过程 1.2 Web应用的认证过程 1.2.1 ExceptionTranslationFilter 1.2.2 在request之间共享SecurityContext 1
Java 位运算 Javahuhui java 位运算
// 左移( << ) 低位补0 // 0000 0000 0000 0000 0000 0000 0000 0110 然后左移2位后，低位补0： // 0000 0000 0000 0000 0000 0000 0001 1000 System.out.println(6 << 2);// 运行结果是24 // 右移( >> ) 高位补"
mysql免安装版配置 ldzyz007 mysql
1、my-small.ini是为了小型数据库而设计的。不应该把这个模型用于含有一些常用项目的数据库。 2、my-medium.ini是为中等规模的数据库而设计的。如果你正在企业中使用RHEL,可能会比这个操作系统的最小RAM需求(256MB)明显多得多的物理内存。由此可见，如果有那么多RAM内存可以使用，自然可以在同一台机器上运行其它服务。 3、my-large.ini是为专用于一个SQL数据
MFC和ado数据库使用时遇到的问题你不认识的休道人 sql C++mfc
=================================================================== 第一个 =================================================================== try{ CString sql; sql.Format("select * from p
表单重复提交Double Submits rensanning double
可能发生的场景： *多次点击提交按钮 *刷新页面 *点击浏览器回退按钮 *直接访问收藏夹中的地址 *重复发送HTTP请求（Ajax）（1）点击按钮后disable该按钮一会儿，这样能避免急躁的用户频繁点击按钮。这种方法确实有些粗暴，友好一点的可以把按钮的文字变一下做个提示，比如Bootstrap的做法： http://getbootstrap.co
Java String 十大常见问题 tomcat_oracle java 正则表达式
　1.字符串比较，使用“==”还是equals()? 　　"=="判断两个引用的是不是同一个内存地址(同一个物理对象)。　　equals()判断两个字符串的值是否相等。　　除非你想判断两个string引用是否同一个对象，否则应该总是使用equals()方法。　　如果你了解字符串的驻留(String Interning)则会更好地理解这个问题。　　
SpringMVC 登陆拦截器实现登陆控制 xp9802 springMVC
思路，先登陆后，将登陆信息存储在session中，然后通过拦截器，对系统中的页面和资源进行访问拦截，同时对于登陆本身相关的页面和资源不拦截。实现方法： 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

手机通讯录导入工具

你可能感兴趣的:(职场,休闲,手机通讯录工具)