Function w2str (orig as string) as string
wrk = split(orig,",")
w2str = ""
for indx = 1 to Ubound(wrk) step 2
w2str = w2str + chr$(hVal(right(wrk(indx),2) + right(wrk(indx-1),2)))
next
End Function
Function hVal (hStr as string) as integer
dim c as integer
hVal = 0
for ndx = 1 to len(hStr)
c = Asc(mid(hStr,ndx,1))
if c >= 48 and c <= 57 then
hVal = hVal * 16 + c - 48
elseif c >= 65 and c <= 70 then
hVal = hVal * 16 + c - 55
elseif c >= 97 and c <= 102 then
hVal = hVal * 16 + c - 87
elseif c <> 32 then
hVal = 0
exit for
endif
next
End Function
WOW! thanks Tanzemyu! I never knew it could be So simple!, So fast!Bluetooth worked for me. From wm device contacts (select all) to sd card of android, via bt. Later done ``import contacts from sd card``.
It's pretty easy, because your Android phone will sync to Google Contacts.
1. Sync your Windows Mobile phone to your computer (outlook, outlook express, whatever you normally sync to)
2. Export your contacts from there to a CSV. ( Go To file menu on the top left in the out look, click on Import and Export, click on Export file to, Click Next, click on Comma Separated Values (Windows), click on Next, click on Contacts, click on Browse Select drive and Folder Where you want to save file, click on Next.) You are DONE
3. Use Google Contacts to import the CSV (import is in the upper right from