ساخت فایل VCF

[batman123 18]

سلام.

چه طوری میشه توی برنامه که یک لیست ویو وجود داره، از این لیست که محتویاتش یه سری شماره تلفنه، فایل VCF تهیه کرد؟

[محمدرضا شاهپیری 5,183]

سلام ئ درود. با استفاده از javaobject  این کارو هم میتونید انجام بدید.

Person p = getPerson();

File vcfFile = new File(this.getExternalFilesDir(null), "generated.vcf");
FileWriter fw = new FileWriter(vcfFile);
fw.write("BEGIN:VCARD\r\n");
fw.write("VERSION:3.0\r\n");
fw.write("N:" + p.getSurname() + ";" + p.getFirstName() + "\r\n");
fw.write("FN:" + p.getFirstName() + " " + p.getSurname() + "\r\n");
fw.write("ORG:" + p.getCompanyName() + "\r\n");
fw.write("TITLE:" + p.getTitle() + "\r\n");
fw.write("TEL;TYPE=WORK,VOICE:" + p.getWorkPhone() + "\r\n");
fw.write("TEL;TYPE=HOME,VOICE:" + p.getHomePhone() + "\r\n");
fw.write("ADR;TYPE=WORK:;;" + p.getStreet() + ";" + p.getCity() + ";" + p.getState() + ";" + p.getPostcode() + ";" + p.getCountry() + "\r\n");
fw.write("EMAIL;TYPE=PREF,INTERNET:" + p.getEmailAddress() + "\r\n");
fw.write("END:VCARD\r\n");
fw.close();

 

[batman123 18]

در ۱۴۰۱/۳/۲۱ در 11:43، محمدرضا شاهپیری گفته است:

سلام ئ درود. با استفاده از javaobject  این کارو هم میتونید انجام بدید.

Person p = getPerson();

File vcfFile = new File(this.getExternalFilesDir(null), "generated.vcf");
FileWriter fw = new FileWriter(vcfFile);
fw.write("BEGIN:VCARD\r\n");
fw.write("VERSION:3.0\r\n");
fw.write("N:" + p.getSurname() + ";" + p.getFirstName() + "\r\n");
fw.write("FN:" + p.getFirstName() + " " + p.getSurname() + "\r\n");
fw.write("ORG:" + p.getCompanyName() + "\r\n");
fw.write("TITLE:" + p.getTitle() + "\r\n");
fw.write("TEL;TYPE=WORK,VOICE:" + p.getWorkPhone() + "\r\n");
fw.write("TEL;TYPE=HOME,VOICE:" + p.getHomePhone() + "\r\n");
fw.write("ADR;TYPE=WORK:;;" + p.getStreet() + ";" + p.getCity() + ";" + p.getState() + ";" + p.getPostcode() + ";" + p.getCountry() + "\r\n");
fw.write("EMAIL;TYPE=PREF,INTERNET:" + p.getEmailAddress() + "\r\n");
fw.write("END:VCARD\r\n");
fw.close();

 

سلام استاد

خب این فایل vcf سورس آیتماش کجاست؟

یعنی نقش اون لیست ویویی که توش شماره ها هستن توی این کد کجاست؟

[batman123 18]

بعد استاد اصلا fw چی هست؟!

از کجا اومده؟!!!!

 

[batman123 18]

up

[batman123 18]

ببخشید من این دستورات را از سایت مرجع پیدا کردم اما خیلی متوجه نشدم!!

کسی هست کمکم کنه؟

Public Sub GenerateVCF() As String
    Dim SB As StringBuilder
    SB.Initialize
    SB.Append("BEGIN:VCARD").Append(Chr(0x0D)).Append(Chr(0x0A))
    SB.Append("VERSION:2.1").Append(Chr(0x0D)).Append(Chr(0x0A))
    SB.Append("N;LANGUAGE=en-us:;").Append(Chr(0x0D)).Append(Chr(0x0A))
    SB.Append("FN:").Append(ContactName).Append(Chr(0x0D)).Append(Chr(0x0A))
    SB.Append("ORG:").Append(CompanyName).Append(Chr(0x0D)).Append(Chr(0x0A))
    SB.Append("TITLE:").Append(JobTitle).Append(Chr(0x0D)).Append(Chr(0x0A))
    SB.Append("TEL;WORK;VOICE:").Append(WorkPhone).Append(Chr(0x0D)).Append(Chr(0x0A))
    SB.Append("TEL;HOME;VOICE:").Append(HomePhone).Append(Chr(0x0D)).Append(Chr(0x0A))
    SB.Append("TEL;CELL;VOICE:").Append(MobilePhone).Append(Chr(0x0D)).Append(Chr(0x0A))
    SB.Append("EMAIL;PREF;INTERNET:").Append(WorkEmail).Append(Chr(0x0D)).Append(Chr(0x0A))
    SB.Append("EMAIL;INTERNET:").Append(HomeEmail).Append(Chr(0x0D)).Append(Chr(0x0A))
    SB.Append("End:VCARD").Append(Chr(0x0D)).Append(Chr(0x0A))
    
    Return SB.ToString
    
End Sub