|
| Como converter vcf para algo que o excel pode ler? |
| Iniciado por modij, 04,ene. 2020 06:22 - 1 respuesta |
| |
| | | |
|
| |
| Publicado el 04,enero 2020 - 06:22 |
| Olá pessoal - Eu tenho um grupo (muitos para digitar facilmente) de contatos em um arquivo vcf. Quero exportá-lo como um csv (valor separado por vírgula) para poder importá-lo para o novo banco de dados de doadores. Aqui está o meu problema: Não consigo exportar o arquivo de Contatos no formato csv. Alguém sabe uma maneira inteligente de reformatar o arquivo vcf em um arquivo csv? |
| |
| |
| | | |
|
| | |
| |
Miembro registrado
948 mensajes |
|
| Publicado el 06,enero 2020 - 09:23 |
Bonjour
le format vcf est du même genre qu'un fichier xml ou json. C'est du texte formaté…
see https://fr.wikipedia.org/wiki/VCard and https://tools.ietf.org/html/rfc6350…
Exemple :
begin:vcard
fn:Cyberghost Support
n:Support;Cyberghost
email;internet:support@cyberghost.ro
version:2.1
end:vcard
vous pouvez utiliser ce bout de code pour vous aider :
MyFileName, DataLine, Keyword, userData est une chaîne
MyBuffer est un Buffer
MyFileName = "D:\Temp\Adresses collectées.vcf"
IF NOT fFichierExiste(MyFileName) THEN
Error("file not found !")
RETOUR
END
MyBuffer = fChargeBuffer(MyFileName)
IF MyBuffer = "" THEN
Error("File is empty !")
RETOUR
END
FOR ALL STRING DataLine OF MyBuffer SEPARATED by CRLF
DataLine = SansEspace(DataLine)
IF DataLine <> "" THEN
SWITCH DataLine
CASE "begin:vcard"
Trace("Begining of user")
CASE "end:vcard"
Trace("End of user")
OTHER CASE
Keyword = ExtraitChaîne(DataLine, 1, ":")
userData = ExtraitChaîne(DataLine, 2, ":")
Trace(Keyword+TAB+userData)
END
END
END
--
L'urgent est fait, l'impossible est en cours. Pour les miracles, prévoir un délai.
Quand un utilisateur vous a aidé, n'oubliez pas de le remercier... |
| |
| |
| | | |
|
| | | | |
| | |
|