{"id":359911,"date":"2024-05-21T00:42:24","date_gmt":"2024-05-21T00:42:24","guid":{"rendered":"http:\/\/savepearlharbor.com\/?p=359911"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-29T21:00:00","slug":"","status":"publish","type":"post","link":"https:\/\/savepearlharbor.com\/?p=359911","title":{"rendered":"\u041f\u0440\u043e\u0441\u0442\u043e\u0439 VBA \u0441\u043a\u0440\u0438\u043f\u0442 \u0434\u043b\u044f \u043f\u0440\u0435\u043e\u0431\u0440\u0430\u0437\u043e\u0432\u0430\u043d\u0438\u044f \u0442\u0430\u0431\u043b\u0438\u0446\u044b excel \u0442\u0435\u043b\u0435\u0444\u043e\u043d\u043d\u043e\u0439 \u0431\u0430\u0437\u044b \u043a\u043e\u043d\u0442\u0430\u043a\u0442\u043e\u0432 \u0432 \u0444\u0430\u0439\u043b .vcf<\/span>"},"content":{"rendered":"
<\/div>\n
\n
\n
\n
\n

\u041d\u0435\u0434\u0430\u0432\u043d\u043e \u044f \u043f\u044b\u0442\u0430\u043b\u0441\u044f \u043f\u0435\u0440\u0435\u043a\u0438\u043d\u0443\u0442\u044c \u0441\u0432\u043e\u0438 \u043a\u043e\u043d\u0442\u0430\u043a\u0442\u044b \u0438\u0437 \u0441\u0442\u0430\u0440\u043e\u0433\u043e \u0411\u043b\u0435\u043a\u0431\u0435\u0440\u0440\u0438 \u0432 \u0442\u0435\u043b\u0435\u0444\u043e\u043d \u0441 \u0410\u043d\u0434\u0440\u043e\u0438\u0434\u043e\u043c \u0438 \u043c\u0435\u043d\u044f \u043f\u043e\u0441\u0442\u0438\u0433\u043b\u0430 \u043d\u0435\u0443\u0434\u0430\u0447\u0430 — \u043e\u043a\u0430\u0437\u0430\u043b\u043e\u0441\u044c \u043d\u0435 \u0441\u0443\u0449\u0435\u0441\u0442\u0432\u0443\u0435\u0442 \u0438\u043d\u0441\u0442\u0440\u0443\u043c\u0435\u043d\u0442\u043e\u0432 \u0434\u043b\u044f \u043a\u043e\u0440\u0440\u0435\u043a\u0442\u043d\u043e\u0433\u043e \u043f\u0440\u0435\u043e\u0431\u0440\u0430\u0437\u043e\u0432\u0430\u043d\u0438\u044f \u043e\u0434\u043d\u043e\u0433\u043e \u0444\u043e\u0440\u043c\u0430\u0442\u0430 \u0432 \u0434\u0440\u0443\u0433\u043e\u0439.<\/p>\n

\u0422\u043e\u0433\u0434\u0430 \u044f \u0440\u0435\u0448\u0438\u043b \u043f\u0440\u0435\u043e\u0431\u0440\u0430\u0437\u043e\u0432\u0430\u0442\u044c \u043c\u043e\u0438 \u043a\u043e\u043d\u0442\u0430\u043a\u0442\u044b, \u043f\u043e\u043b\u0443\u0447\u0435\u043d\u043d\u044b\u0435 \u0438\u0437 \u0441\u0442\u0430\u0440\u043e\u0433\u043e \u0442\u0435\u043b\u0435\u0444\u043e\u043d\u0430, \u0432 \u0442\u0430\u0431\u043b\u0438\u0446\u0443 excel, \u0438 \u0441 \u043f\u043e\u043c\u043e\u0449\u044c\u044e \u043d\u0435\u0441\u043b\u043e\u0436\u043d\u043e\u0433\u043e \u0441\u043a\u0440\u0438\u043f\u0442\u0430 \u0432 VBA \u043f\u0440\u0435\u043e\u0431\u0440\u0430\u0437\u043e\u0432\u0430\u0442\u044c \u0435\u0451 \u0444\u0430\u0439\u043b \u0432\u0438\u0434\u0430 .vcf, \u043a\u043e\u0442\u043e\u0440\u044b\u0439 \u043c\u043e\u0436\u043d\u043e \u0441\u043a\u043e\u0440\u043c\u0438\u0442\u044c \u043b\u044e\u0431\u043e\u043c\u0443 \u0441\u043e\u0432\u0440\u0435\u043c\u0435\u043d\u043d\u043e\u043c\u0443 \u0442\u0435\u043b\u0435\u0444\u043e\u043d\u0443.<\/p>\n

\u0422\u0430\u0431\u043b\u0438\u0446\u0430 \u0443 \u043c\u0435\u043d\u044f \u043f\u043e\u043b\u0443\u0447\u0438\u043b\u0430\u0441\u044c \u0442\u0430\u043a\u043e\u0433\u043e \u0432\u0438\u0434\u0430: <\/p>\n

\"\u041f\u0440\u0438\u043c\u0435\u0440<\/p>\n
\u041f\u0440\u0438\u043c\u0435\u0440 \u0442\u0430\u0431\u043b\u0438\u0446\u044b excel \u0441 \u043a\u043e\u043d\u0442\u0430\u043a\u0442\u0430\u043c\u0438<\/figcaption><\/div>\n<\/figure>\n
Public Sub vcard()   Dim a(), i&, ii&, t  Dim b As String, OutDir As String  Dim fso As Object 'FileSystemObject  Dim txt As Object 'TextStream       a = [a1].CurrentRegion.Value     b = \"\" ' \u041f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0430\u044f, \u0432 \u043a\u043e\u0442\u043e\u0440\u0443\u044e \u043c\u044b \u0431\u0443\u0434\u0435\u043c \u0441\u043e\u0431\u0438\u0440\u0430\u0442\u044c \u0438\u043d\u0444\u043e\u0440\u043c\u0430\u0446\u0438\u044e \u0432 \u0444\u043e\u0440\u043c\u0430\u0442\u0435 .vcf              For i = 2 To UBound(a)              b = b & \"BEGIN:VCARD\" & vbNewLine & \"VERSION:2.1\" & vbNewLine         b = b & \"FN:\" & Cells(i, 1).Text & vbNewLine                  If Cells(i, 2).Text <> \"\" Then b = b & \"EMAIL:\" & Cells(i, 2).Text & vbNewLine         If Cells(i, 3).Text <> \"\" Then b = b & \"ADR:\" & Cells(i, 3).Text & \", \" & Cells(i, 4).Text & vbNewLine         If Cells(i, 5).Text <> \"\" Then b = b & \"TEL;HOME:\" & Cells(i, 5).Text & vbNewLine         If Cells(i, 6).Text <> \"\" Then b = b & \"TEL;CELL;PREF:\" & Cells(i, 6).Text & vbNewLine         If Cells(i, 7).Text <> \"\" Then b = b & \"TEL;WORK:\" & Cells(i, 7).Text & vbNewLine         If Cells(i, 8).Text <> \"\" Then b = b & \"ORG:\" & Cells(i, 8).Text & vbNewLine         If Cells(i, 9).Text <> \"\" Then b = b & \"TITLE:\" & Cells(i, 9).Text & vbNewLine         If Cells(i, 10).Text <> \"\" Then b = b & \"NOTE:\" & Cells(i, 10).Text & vbNewLine          b = b & \"END:VCARD\" & vbNewLine              Next   OutDir = \"C:\\out\\\" '\u041f\u0430\u043f\u043a\u0430, \u0432 \u043a\u043e\u0442\u043e\u0440\u0443\u044e \u0441\u043e\u0445\u0440\u0430\u043d\u0438\u043c \u043f\u043e\u043b\u0443\u0447\u0435\u043d\u043d\u044b\u0439 \u0444\u0430\u0439\u043b      Set fso = CreateObject(\"Scripting.FileSystemObject\")     Set txt = fso.CreateTextFile(OutDir & \"out.vcf\", 1, 1) '\u041f\u043e\u0441\u043b\u0435\u0434\u043d\u0438\u0439 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440 - Unicode           txt.WriteLine b       txt.Close   End Sub <\/code><\/pre>\n
\u041a\u043e\u0434 \u043f\u0435\u0440\u0435\u0431\u0438\u0440\u0430\u0435\u0442 \u0441\u0442\u0440\u043e\u043a\u0438 \u0438 \u044f\u0447\u0435\u0439\u043a\u0438 \u0438 \u0435\u0441\u043b\u0438 \u043d\u0430\u0445\u043e\u0434\u0438\u0442 \u0438\u043d\u0444\u043e\u0440\u043c\u0430\u0446\u0438\u044e \u0432 \u0441\u043e\u043e\u0442\u0432\u0435\u0442\u0441\u0442\u0432\u0443\u044e\u0449\u0438\u0445 \u044f\u0447\u0435\u0439\u043a\u0430\u0445 \u0441\u043e\u0437\u0434\u0430\u0451\u0442 \u0441\u043e\u043e\u0442\u0432\u0435\u0442\u0441\u0442\u0432\u0443\u044e\u0449\u0443\u044e \u0441\u0442\u0440\u043e\u0447\u043a\u0443 \u0432 \u0444\u0430\u0439\u043b\u0435 .vcf.<\/p>\n
\u0412\u044b \u043c\u043e\u0436\u0435\u0442\u0435 \u0441\u0444\u043e\u0440\u043c\u0438\u0440\u043e\u0432\u0430\u0442\u044c \u0434\u0440\u0443\u0433\u0443\u044e \u0442\u0430\u0431\u043b\u0438\u0447\u043a\u0443 \u0432 excel \u0438 \u043d\u0435\u043c\u043e\u0433\u043e \u0441\u043a\u043e\u0440\u0440\u0435\u043a\u0442\u0438\u0440\u043e\u0432\u0430\u0432 \u0441\u043a\u0440\u0438\u043f\u0442 \u0441\u043c\u043e\u0436\u0435\u0442\u0435 \u0441\u043e\u0431\u0440\u0430\u0442\u044c \u0441\u0432\u043e\u0439 \u0444\u0430\u0439\u043b .vcf.<\/p>\n
\u041d\u0438\u0447\u0435\u0433\u043e \u0441\u043b\u043e\u0436\u043d\u043e\u0433\u043e, \u043d\u043e \u043c\u043e\u0436\u0435\u0442 \u043a\u043e\u043c\u0443-\u0442\u043e \u043f\u043e\u043d\u0430\u0434\u043e\u0431\u0438\u0442\u0441\u044f.<\/p>\n
P.S. \u0434\u043b\u044f \u0438\u043d\u0444\u043e\u0440\u043c\u0430\u0446\u0438\u0438 \u043d\u0430\u043f\u043e\u043c\u0438\u043d\u0430\u044e \u0441\u0442\u0440\u0443\u043a\u0442\u0443\u0440\u0443 \u0444\u0430\u0439\u043b\u0430 .vcf.<\/p>\n
\u041d\u0430\u0447\u0438\u043d\u0430\u0442\u044c\u0441\u044f \u043a\u043e\u043d\u0442\u0430\u043a\u0442 \u0434\u043e\u043b\u0436\u0435\u043d \u0441\u0442\u0440\u043e\u043a\u0430\u043c\u0438:
 «BEGIN:VCARD»
 «VERSION:2.1»<\/p>\n
\u0414\u0430\u043b\u0435\u0435 \u0438\u0434\u0443\u0442 \u043a\u043b\u044e\u0447\u0438 (\u043e\u043d\u0438 \u043c\u043e\u0433\u0443\u0442 \u043e\u0442\u0441\u0443\u0442\u0441\u0442\u0432\u043e\u0432\u0430\u0442\u044c, \u0442\u043e\u0433\u0434\u0430 \u043f\u0440\u043e\u0441\u0442\u043e \u0438\u043d\u0444\u043e\u0440\u043c\u0430\u0446\u0438\u0438 \u0432 \u0441\u043e\u043e\u0442\u0432\u0435\u0442\u0441\u0442\u0432\u0443\u044e\u0449\u0438\u0445 \u044f\u0447\u0435\u0439\u043a\u0430\u0445 \u043d\u0435 \u0431\u0443\u0434\u0435\u0442)<\/p>\n
«FN:» — \u043d\u0430\u0437\u0432\u0430\u043d\u0438\u0435 \u043a\u043e\u043d\u0442\u0430\u043a\u0442\u0430
«EMAIL:» — \u044d\u043b\u0435\u043a\u0442\u0440\u043e\u043d\u043d\u0430\u044f \u043f\u043e\u0447\u0442\u0430
«ADR:» — \u0430\u0434\u0440\u0435\u0441\u0441
«TEL;HOME:» — \u0434\u043e\u043c\u0430\u0448\u043d\u0438\u0439 \u0442\u0435\u043b\u0435\u0444\u043e\u043d
«TEL;CELL;PREF:» — \u0441\u043e\u0442\u043e\u0432\u044b\u0439 \u0442\u0435\u043b\u0435\u0444\u043e\u043d
«TEL;WORK:» — \u0440\u0430\u0431\u043e\u0447\u0438\u0439 \u0442\u0435\u043b\u0435\u0444\u043e\u043d
«ORG:» — \u043d\u0430\u0437\u0432\u0430\u043d\u0438\u0435 \u043e\u0440\u0433\u0430\u043d\u0438\u0437\u0430\u0446\u0438\u0438
«TITLE:» — \u0434\u043e\u043b\u0436\u043d\u043e\u0441\u0442\u044c
«NOTE:» — \u0437\u0430\u043c\u0435\u0442\u043a\u0430<\/p>\n
\u041a\u043e\u043d\u0442\u0430\u043a\u0442 \u0434\u043e\u043b\u0436\u0435\u043d \u0437\u0430\u0432\u0435\u0440\u0448\u0430\u0442\u044c\u0441\u044f \u0441\u0442\u0440\u043e\u0447\u043a\u043e\u0439:
 «END:VCARD»<\/p>\n
\u0412 \u043e\u0434\u043d\u043e\u043c \u0444\u0430\u0439\u043b\u0435 .vcf \u043c\u043e\u0436\u0435\u0442 \u0431\u044b\u0442\u044c \u0441\u043a\u043e\u043b\u044c \u0443\u0433\u043e\u0434\u043d\u043e \u043c\u043d\u043e\u0433\u043e \u043a\u043e\u043d\u0442\u0430\u043a\u0442\u043e\u0432, \u0438\u0434\u0443\u0449\u0438\u0445 \u0434\u0440\u0443\u0433 \u0437\u0430 \u0434\u0440\u0443\u0433\u043e\u043c.<\/p>\n<\/p>\n<\/div>\n<\/div>\n<\/div>\n
<\/div>\n

 \u0441\u0441\u044b\u043b\u043a\u0430 \u043d\u0430 \u043e\u0440\u0438\u0433\u0438\u043d\u0430\u043b \u0441\u0442\u0430\u0442\u044c\u0438  https:\/\/habr.com\/ru\/articles\/773314\/<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"
<\/div>\n
\n
\n
\n
\n
\u041d\u0435\u0434\u0430\u0432\u043d\u043e \u044f \u043f\u044b\u0442\u0430\u043b\u0441\u044f \u043f\u0435\u0440\u0435\u043a\u0438\u043d\u0443\u0442\u044c \u0441\u0432\u043e\u0438 \u043a\u043e\u043d\u0442\u0430\u043a\u0442\u044b \u0438\u0437 \u0441\u0442\u0430\u0440\u043e\u0433\u043e \u0411\u043b\u0435\u043a\u0431\u0435\u0440\u0440\u0438 \u0432 \u0442\u0435\u043b\u0435\u0444\u043e\u043d \u0441 \u0410\u043d\u0434\u0440\u043e\u0438\u0434\u043e\u043c \u0438 \u043c\u0435\u043d\u044f \u043f\u043e\u0441\u0442\u0438\u0433\u043b\u0430 \u043d\u0435\u0443\u0434\u0430\u0447\u0430 — \u043e\u043a\u0430\u0437\u0430\u043b\u043e\u0441\u044c \u043d\u0435 \u0441\u0443\u0449\u0435\u0441\u0442\u0432\u0443\u0435\u0442 \u0438\u043d\u0441\u0442\u0440\u0443\u043c\u0435\u043d\u0442\u043e\u0432 \u0434\u043b\u044f \u043a\u043e\u0440\u0440\u0435\u043a\u0442\u043d\u043e\u0433\u043e \u043f\u0440\u0435\u043e\u0431\u0440\u0430\u0437\u043e\u0432\u0430\u043d\u0438\u044f \u043e\u0434\u043d\u043e\u0433\u043e \u0444\u043e\u0440\u043c\u0430\u0442\u0430 \u0432 \u0434\u0440\u0443\u0433\u043e\u0439.<\/p>\n
\u0422\u043e\u0433\u0434\u0430 \u044f \u0440\u0435\u0448\u0438\u043b \u043f\u0440\u0435\u043e\u0431\u0440\u0430\u0437\u043e\u0432\u0430\u0442\u044c \u043c\u043e\u0438 \u043a\u043e\u043d\u0442\u0430\u043a\u0442\u044b, \u043f\u043e\u043b\u0443\u0447\u0435\u043d\u043d\u044b\u0435 \u0438\u0437 \u0441\u0442\u0430\u0440\u043e\u0433\u043e \u0442\u0435\u043b\u0435\u0444\u043e\u043d\u0430, \u0432 \u0442\u0430\u0431\u043b\u0438\u0446\u0443 excel, \u0438 \u0441 \u043f\u043e\u043c\u043e\u0449\u044c\u044e \u043d\u0435\u0441\u043b\u043e\u0436\u043d\u043e\u0433\u043e \u0441\u043a\u0440\u0438\u043f\u0442\u0430 \u0432 VBA \u043f\u0440\u0435\u043e\u0431\u0440\u0430\u0437\u043e\u0432\u0430\u0442\u044c \u0435\u0451 \u0444\u0430\u0439\u043b \u0432\u0438\u0434\u0430 .vcf, \u043a\u043e\u0442\u043e\u0440\u044b\u0439 \u043c\u043e\u0436\u043d\u043e \u0441\u043a\u043e\u0440\u043c\u0438\u0442\u044c \u043b\u044e\u0431\u043e\u043c\u0443 \u0441\u043e\u0432\u0440\u0435\u043c\u0435\u043d\u043d\u043e\u043c\u0443 \u0442\u0435\u043b\u0435\u0444\u043e\u043d\u0443.<\/p>\n
\u0422\u0430\u0431\u043b\u0438\u0446\u0430 \u0443 \u043c\u0435\u043d\u044f \u043f\u043e\u043b\u0443\u0447\u0438\u043b\u0430\u0441\u044c \u0442\u0430\u043a\u043e\u0433\u043e \u0432\u0438\u0434\u0430: <\/p>\n
\n
\u041f\u0440\u0438\u043c\u0435\u0440 \u0442\u0430\u0431\u043b\u0438\u0446\u044b excel \u0441 \u043a\u043e\u043d\u0442\u0430\u043a\u0442\u0430\u043c\u0438<\/figcaption><\/div>\n<\/figure>\n
Public Sub vcard()   Dim a(), i&, ii&, t  Dim b As String, OutDir As String  Dim fso As Object 'FileSystemObject  Dim txt As Object 'TextStream       a = [a1].CurrentRegion.Value     b = \"\" ' \u041f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u0430\u044f, \u0432 \u043a\u043e\u0442\u043e\u0440\u0443\u044e \u043c\u044b \u0431\u0443\u0434\u0435\u043c \u0441\u043e\u0431\u0438\u0440\u0430\u0442\u044c \u0438\u043d\u0444\u043e\u0440\u043c\u0430\u0446\u0438\u044e \u0432 \u0444\u043e\u0440\u043c\u0430\u0442\u0435 .vcf              For i = 2 To UBound(a)              b = b & \"BEGIN:VCARD\" & vbNewLine & \"VERSION:2.1\" & vbNewLine         b = b & \"FN:\" & Cells(i, 1).Text & vbNewLine                  If Cells(i, 2).Text <> \"\" Then b = b & \"EMAIL:\" & Cells(i, 2).Text & vbNewLine         If Cells(i, 3).Text <> \"\" Then b = b & \"ADR:\" & Cells(i, 3).Text & \", \" & Cells(i, 4).Text & vbNewLine         If Cells(i, 5).Text <> \"\" Then b = b & \"TEL;HOME:\" & Cells(i, 5).Text & vbNewLine         If Cells(i, 6).Text <> \"\" Then b = b & \"TEL;CELL;PREF:\" & Cells(i, 6).Text & vbNewLine         If Cells(i, 7).Text <> \"\" Then b = b & \"TEL;WORK:\" & Cells(i, 7).Text & vbNewLine         If Cells(i, 8).Text <> \"\" Then b = b & \"ORG:\" & Cells(i, 8).Text & vbNewLine         If Cells(i, 9).Text <> \"\" Then b = b & \"TITLE:\" & Cells(i, 9).Text & vbNewLine         If Cells(i, 10).Text <> \"\" Then b = b & \"NOTE:\" & Cells(i, 10).Text & vbNewLine          b = b & \"END:VCARD\" & vbNewLine              Next   OutDir = \"C:\\out\\\" '\u041f\u0430\u043f\u043a\u0430, \u0432 \u043a\u043e\u0442\u043e\u0440\u0443\u044e \u0441\u043e\u0445\u0440\u0430\u043d\u0438\u043c \u043f\u043e\u043b\u0443\u0447\u0435\u043d\u043d\u044b\u0439 \u0444\u0430\u0439\u043b      Set fso = CreateObject(\"Scripting.FileSystemObject\")     Set txt = fso.CreateTextFile(OutDir & \"out.vcf\", 1, 1) '\u041f\u043e\u0441\u043b\u0435\u0434\u043d\u0438\u0439 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440 - Unicode           txt.WriteLine b       txt.Close   End Sub <\/code><\/pre>\n
\u041a\u043e\u0434 \u043f\u0435\u0440\u0435\u0431\u0438\u0440\u0430\u0435\u0442 \u0441\u0442\u0440\u043e\u043a\u0438 \u0438 \u044f\u0447\u0435\u0439\u043a\u0438 \u0438 \u0435\u0441\u043b\u0438 \u043d\u0430\u0445\u043e\u0434\u0438\u0442 \u0438\u043d\u0444\u043e\u0440\u043c\u0430\u0446\u0438\u044e \u0432 \u0441\u043e\u043e\u0442\u0432\u0435\u0442\u0441\u0442\u0432\u0443\u044e\u0449\u0438\u0445 \u044f\u0447\u0435\u0439\u043a\u0430\u0445 \u0441\u043e\u0437\u0434\u0430\u0451\u0442 \u0441\u043e\u043e\u0442\u0432\u0435\u0442\u0441\u0442\u0432\u0443\u044e\u0449\u0443\u044e \u0441\u0442\u0440\u043e\u0447\u043a\u0443 \u0432 \u0444\u0430\u0439\u043b\u0435 .vcf.<\/p>\n
\u0412\u044b \u043c\u043e\u0436\u0435\u0442\u0435 \u0441\u0444\u043e\u0440\u043c\u0438\u0440\u043e\u0432\u0430\u0442\u044c \u0434\u0440\u0443\u0433\u0443\u044e \u0442\u0430\u0431\u043b\u0438\u0447\u043a\u0443 \u0432 excel \u0438 \u043d\u0435\u043c\u043e\u0433\u043e \u0441\u043a\u043e\u0440\u0440\u0435\u043a\u0442\u0438\u0440\u043e\u0432\u0430\u0432 \u0441\u043a\u0440\u0438\u043f\u0442 \u0441\u043c\u043e\u0436\u0435\u0442\u0435 \u0441\u043e\u0431\u0440\u0430\u0442\u044c \u0441\u0432\u043e\u0439 \u0444\u0430\u0439\u043b .vcf.<\/p>\n
\u041d\u0438\u0447\u0435\u0433\u043e \u0441\u043b\u043e\u0436\u043d\u043e\u0433\u043e, \u043d\u043e \u043c\u043e\u0436\u0435\u0442 \u043a\u043e\u043c\u0443-\u0442\u043e \u043f\u043e\u043d\u0430\u0434\u043e\u0431\u0438\u0442\u0441\u044f.<\/p>\n
P.S. \u0434\u043b\u044f \u0438\u043d\u0444\u043e\u0440\u043c\u0430\u0446\u0438\u0438 \u043d\u0430\u043f\u043e\u043c\u0438\u043d\u0430\u044e \u0441\u0442\u0440\u0443\u043a\u0442\u0443\u0440\u0443 \u0444\u0430\u0439\u043b\u0430 .vcf.<\/p>\n
\u041d\u0430\u0447\u0438\u043d\u0430\u0442\u044c\u0441\u044f \u043a\u043e\u043d\u0442\u0430\u043a\u0442 \u0434\u043e\u043b\u0436\u0435\u043d \u0441\u0442\u0440\u043e\u043a\u0430\u043c\u0438:
 «BEGIN:VCARD»
 «VERSION:2.1»<\/p>\n
\u0414\u0430\u043b\u0435\u0435 \u0438\u0434\u0443\u0442 \u043a\u043b\u044e\u0447\u0438 (\u043e\u043d\u0438 \u043c\u043e\u0433\u0443\u0442 \u043e\u0442\u0441\u0443\u0442\u0441\u0442\u0432\u043e\u0432\u0430\u0442\u044c, \u0442\u043e\u0433\u0434\u0430 \u043f\u0440\u043e\u0441\u0442\u043e \u0438\u043d\u0444\u043e\u0440\u043c\u0430\u0446\u0438\u0438 \u0432 \u0441\u043e\u043e\u0442\u0432\u0435\u0442\u0441\u0442\u0432\u0443\u044e\u0449\u0438\u0445 \u044f\u0447\u0435\u0439\u043a\u0430\u0445 \u043d\u0435 \u0431\u0443\u0434\u0435\u0442)<\/p>\n
«FN:» — \u043d\u0430\u0437\u0432\u0430\u043d\u0438\u0435 \u043a\u043e\u043d\u0442\u0430\u043a\u0442\u0430
«EMAIL:» — \u044d\u043b\u0435\u043a\u0442\u0440\u043e\u043d\u043d\u0430\u044f \u043f\u043e\u0447\u0442\u0430
«ADR:» — \u0430\u0434\u0440\u0435\u0441\u0441
«TEL;HOME:» — \u0434\u043e\u043c\u0430\u0448\u043d\u0438\u0439 \u0442\u0435\u043b\u0435\u0444\u043e\u043d
«TEL;CELL;PREF:» — \u0441\u043e\u0442\u043e\u0432\u044b\u0439 \u0442\u0435\u043b\u0435\u0444\u043e\u043d
«TEL;WORK:» — \u0440\u0430\u0431\u043e\u0447\u0438\u0439 \u0442\u0435\u043b\u0435\u0444\u043e\u043d
«ORG:» — \u043d\u0430\u0437\u0432\u0430\u043d\u0438\u0435 \u043e\u0440\u0433\u0430\u043d\u0438\u0437\u0430\u0446\u0438\u0438
«TITLE:» — \u0434\u043e\u043b\u0436\u043d\u043e\u0441\u0442\u044c
«NOTE:» — \u0437\u0430\u043c\u0435\u0442\u043a\u0430<\/p>\n
\u041a\u043e\u043d\u0442\u0430\u043a\u0442 \u0434\u043e\u043b\u0436\u0435\u043d \u0437\u0430\u0432\u0435\u0440\u0448\u0430\u0442\u044c\u0441\u044f \u0441\u0442\u0440\u043e\u0447\u043a\u043e\u0439:
 «END:VCARD»<\/p>\n
\u0412 \u043e\u0434\u043d\u043e\u043c \u0444\u0430\u0439\u043b\u0435 .vcf \u043c\u043e\u0436\u0435\u0442 \u0431\u044b\u0442\u044c \u0441\u043a\u043e\u043b\u044c \u0443\u0433\u043e\u0434\u043d\u043e \u043c\u043d\u043e\u0433\u043e \u043a\u043e\u043d\u0442\u0430\u043a\u0442\u043e\u0432, \u0438\u0434\u0443\u0449\u0438\u0445 \u0434\u0440\u0443\u0433 \u0437\u0430 \u0434\u0440\u0443\u0433\u043e\u043c.<\/p>\n<\/p>\n<\/div>\n<\/div>\n<\/div>\n
<\/div>\n

 \u0441\u0441\u044b\u043b\u043a\u0430 \u043d\u0430 \u043e\u0440\u0438\u0433\u0438\u043d\u0430\u043b \u0441\u0442\u0430\u0442\u044c\u0438  https:\/\/habr.com\/ru\/articles\/773314\/<\/a>
<\/br><\/br><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[],"tags":[],"class_list":["post-359911","post","type-post","status-publish","format-standard","hentry"],"_links":{"self":[{"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/posts\/359911","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=359911"}],"version-history":[{"count":0,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/posts\/359911\/revisions"}],"wp:attachment":[{"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=359911"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=359911"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=359911"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}