Comments by OdeJong (Top 41 by date)

I'm not getting any further. Do you know how I can make one string, out of 3? So for example: dim strAdresGegevens = strAdres, strPostcode, strWoonplaats

do you know how?
thanks!

Oke thanks! I will see if I can work it out now. p.s. sorry for late response, greetz me!

thanks for you answer.
I have made a V-Card app and i want to import all the information into my database. My application is working till now. there is on thing that's still not working:

ADR;WORK;PREF:;;Sjoerd Veltmanstraat 15;Drachten;;9203 NJ
ENCODING=QUOTED-PRINTABLE:Sjoerd Veltmanstraat 15

It's going about the first line. I want to show the info after ":" I know ho I can do this but I am trying to get the ";".. out of these line and I still don't know how to do this. That's why I'm trying to use the methods split mid, ubound. greetz me (Y)

That's what I am trying to do

it's still not working

I have tried your solution but I have restore my own code because it was not working like i want it to.

The peace of the adres, postcode, plaats is still not insert into the database. Thanks for your help so far, i will try something else.

o.k. thanks! I will take a look for it and I will try to use your solution. Thanks!

thanks u2 for both the answers! i give u2 5stars! but one question:

I have no as result:

strTelThuis + strWerk in one field of my table. Can I write a code that I can use one of these two? so if I have both numbers then let show strWerk. If have one of these two than show the one I have..

Do you know how to do that?

Thanks!

yes, a little... and i'm still trying to figure it out.
maby you can send me in the good direction?
but enough for now, im going work on it thursday again.

Thanks!!
It's working now :) and I am gonna try to learn harder
Thanks a lot! and 5 stars for you

greets

Oke thanks!

sorry, i'm a beginner.. just learning it

stil dont understand, I make it with VB.net

sorry.. I don't understand it..
can you give me an example?

Thanks for your answer! this is the best solution so far.. I'm now @ the next step so I think that I can work a little more with my project now. Thanks! 5!

oke thanks

Sorry I don't know what u mean. Can u give me an example?

thanks for your solution.
I am now one stop farther , but I still have some questions.
The question that I want to ask right now is..
how can I use this same code with a INSTR and a MID method if you know what that is? "N" must be a string, if N is in the text file then N must become Name

Can I do this in another way? ehm something like this:

I want to read the Textfile.. if this file is starting with "BEGIN:VCARD" then go to a new Line, if second line is starting with Version.. Then going tot the 3d line..

Then ehm..N = Name ( The name of the user) so The name must replace "N"
Firstname replace FN

TEL;WORK;VOICE:0505420369 (replace..)
TEL;WORK;VOICE:0505420369
TEL;HOME;VOICE:06-12345678
TEL;CELL;VOICE:06-12345678
TEL;VOICE:0512 342040
TEL;WORK;FAX:0512 342040
TEL;FAX:0512 342040
ADR;WORK;PREF:;;Straat 34;HoutJE;;8765 AF
ENCODING=QUOTED-PRINTABLE:Straat 34
URL;HOME:www.biss.nu
URL;WORK:www.biss.nu
EMAIL;PREF;INTERNET:Jan@home.nl
(replace till this line)
Write the information above tot TextBox and go to new line..

END:VCARD (if last line is something like startswith "this"..then reading and writing is done, the vcard will show in textBox..

do you know how to do this?

I have tried this solution..
I think I need some more code to complete this.. so it's not working @ the moment, I wil try to use it and look @ the internet once again, thanks

hmm.. thanks for your answer, but I don't understand that "parse".. method.. ma by you can give me an example of it?

Thanks! That can be very useful to me:)
thank u very much, i gonna try this immediately

oke, thanks for your solution.
I'm still a beginner and the reading part is clear to me.. but i don't want to writ text to a file but i want to write the text to textboxes in my app.

so what i mean is.. i have saved the vcard file(*.vcf) and i want to let user choos to open this file in a new form.

Version 2.1 if that's what you meaning..?

strResultaat = "BEGIN:VCard"
strResultaat = strResultaat & vbCrLf & "VERSION:2.1"
strResultaat = strResultaat & vbCrLf & "N:" & lvwRelaties.SelectedItems(0).SubItems(2).Text
strResultaat = strResultaat & vbCrLf & "FN:" & lvwRelaties.SelectedItems(0).SubItems(3).Text

I have made a V-Card with the information from a database and now i want to return it. so I have an application with a button, if i wil click on it, it's going to make a vcf file. This file i have made, i can import in my outlook but what i want to do is to import this file in my own app.

greetz

ok thanks, i will try that!

Thanks for your solution! I will try to use that article and I think it's going to be o.k. now (Y)

oke I know that, but that is not what I want.
I want to let the user sorts the columns just the way he/she wants.
So if the user clicks on one of the columns, the same column must sort by alphabet

Thanks for your Solution! It works 100%, I'm very happy :)
Now I can make a V-Card with 1 click on the rightmousebutton and olso close my application with this same menu. Thanks!

i have searched once again about this methode.. is this methode only for use with a split container?

yes, thanks for your answers. This is very useful but, if the user is saving the file.. I want to have a filename that is ehm, how can i say it right "the same as".. firstname in the file..

can one of you tell me how to do this?

why you are going to see what's my question if you are not giving an answer? lol

mwa, it's not to hard.. it's complicated because i'm from holland and i'm not so good @ English but thanks! I am one step closer now and it works fine! my code for now is:


'De volgende code zorgt ervoor dat het bestand wordt opgeslagen als V-Card (*.vcf).
Private Sub VCard()
Dim pad As String = _
Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)
Dim resultaat As String
If MsgBox("Maak bestand", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then

resultaat = "BEGIN:VCard"
resultaat = resultaat & vbCrLf & "VERSION:2.1"
resultaat = resultaat & vbCrLf & "N:" & lstRelaties.SelectedItems(0).SubItems(2).Text
resultaat = resultaat & vbCrLf & "FN:" & lstRelaties.SelectedItems(0).SubItems(3).Text
resultaat = resultaat & vbCrLf & "TEL;WORK;VOICE:" & lstRelaties.SelectedItems(0).SubItems(7).Text
resultaat = resultaat & vbCrLf & "TEL;WORK;VOICE:" & lstRelaties.SelectedItems(0).SubItems(7).Text
resultaat = resultaat & vbCrLf & "TEL;HOME;VOICE:" & lstRelaties.SelectedItems(0).SubItems(8).Text
resultaat = resultaat & vbCrLf & "TEL;CELL;VOICE:" & lstRelaties.SelectedItems(0).SubItems(8).Text
resultaat = resultaat & vbCrLf & "TEL;VOICE:" & lstRelaties.SelectedItems(0).SubItems(9).Text
resultaat = resultaat & vbCrLf & "TEL;WORK;FAX:" & lstRelaties.SelectedItems(0).SubItems(10).Text
resultaat = resultaat & vbCrLf & "TEL;FAX:" & lstRelaties.SelectedItems(0).SubItems(10).Text
resultaat = resultaat & vbCrLf & "ADR;WORK;ENCODING=QUOTED-PRINTABLE:" & _
lstRelaties.SelectedItems(0).SubItems(4).Text & "=0D=0A=" & lstRelaties.SelectedItems(0).SubItems(5).Text
resultaat = resultaat & vbCrLf & "URL;HOME:" & lstRelaties.SelectedItems(0).SubItems(11).Text
resultaat = resultaat & vbCrLf & "URL;WORK:" & lstRelaties.SelectedItems(0).SubItems(11).Text
resultaat = resultaat & vbCrLf & "EMAIL;PREF;INTERNET:" & lstRelaties.SelectedItems(0).SubItems(10).Text
resultaat = resultaat & vbCrLf & "END:VCARD"

MsgBox(resultaat)






Using writer As StreamWriter = New StreamWriter(pad & "\Vcard.vcf")
writer.Write(resultaat.ToString())
End Using
End If



End Sub

The messagebox is to test what my app is doing by runtime

i dont know how to do it and msdn is to difficult for me..
the are not easy in explaining thing that's why i ask my question here..

i know that i can make 1 string with all the contents and then write them into a textfile so i can save as .vcf but i dont know how.

i want to make it possible to make the text in my textbox save as a v-card that i can open with any email client en send it by mail

hmm,.. sorry it doesn't work.. still got only one cell and not the entire row. But thnx foor your help