Convert Nokia NBU file (2.1) to CSV

This script converts a nokia NBU type file exported for a Nokia phone, to a CSV file. Which you can import into Outlook or other program. This is the V2.1 of the file. Just copy and past the file into a text file and call it convert.vbs. Name your nbu file as file.nbu and run. ( Don’t worry too much if there is an error, just check the output.csv for all your contacts!).

—->  There is an updated version of this Script here. <—–

'*****************************************************************
''*****               Convert NBU file to CSV             ********
''*****                 12 June 2011                      ********
''*****               The Gamblor                  ********
''*****                                                   ********
'*****************************************************************

Dim Fso, debugmode, ContactName, lineSplit, MobileNo, HomeNo,WorkNo
dim MobileNoX, HomeNoX,WorkNoX, org, Title
debugmode=0
Set Fso = WScript.CreateObject("Scripting.FileSystemObject")
'Create user
set Userlist = fso.openTextFile("file.nbu",1)
Set Report = fso.OpenTextFile("Output.csv",8,1)
report.writeline("Name,Mobile,Home,Work,Org,Title")
    MobileNoX= ""
    WorkNoX= ""
    HomeNoX= ""
    refNoX = ""
    Org = ""
    Title = ""

do while not Userlist.AtEndOfStream

 Details = Userlist.readline
 if debugmode =1 then msgbox(details)

 if left(Details,2) = "N:" then

    lineSplit = split(Details,":")
    contactname = linesplit(1)
'    lineSplit = split(contactname,";")
'    contactname = chr(34) & trim(LineSplit(1)) &" "& trim(LineSplit(0)) & chr(34)
    if debugmode = 1 then msgbox(contactname)
end if

    If FindString((details),"CELL") Then
        MobileNo = split(Details,":")
        MobileNoX = MobileNo(1)
        if debugmode =  1 then msgbox(MobileNo(1))

    End If
    If FindString((details),"HOME") Then
        HomeNo = split(Details,":")
        HomeNoX = HomeNo(1)
        if debugmode =  1 then msgbox(HomeNo(1))
    End If
    If FindString((details),"WORK") Then
        WorkNo = split(Details,":")
        WorkNoX = WorkNo(1)
        if debugmode =  1 then msgbox(WorkNo(1))
    End If

    If FindString((details),"PREF") Then
        if  (FindString((details),"HOME")) = False and _
            (FindString((details),"CELL")) = False and _
            (FindString((details),"WORK")) = False Then  
        WorkNo = split(Details,":")
        WorkNoX = WorkNo(1)
        if debugmode =  1 then msgbox(contactname & " on the number " & WorkNo(1))
    End If
    end if

 if left(Details,3) = "ORG" then
     SplitLine=(split(details,":"))
     org = Replace(SplitLine(1), ";","")

 end if

  if left(Details,3) = "TIT" then
     SplitLine=(split(details,":"))
     Title = Replace(SplitLine(1), ";","")

 end if

 if left(Details,3) = "END" then
 if debugmode =  1 then msgbox("Do End Write")
    report.writeline(contactname & "," & MobileNoX & "," & HomeNoX & "," & WorkNoX &  "," & Org & "," & title)
 if debugmode =  2 then msgbox(contactname & "," & MobileNoX & "," & HomeNoX & "," & WorkNoX &  "," & Org & "," & title)
    MobileNoX= ""
    WorkNoX= ""
    HomeNoX= ""
    refNoX = ""
    Org = ""
    Title = ""
End if

loop

Msgbox("Done")

Function FindString(strCheck,strFind)

    intPos = 0
    intPos = InStr(strCheck, strFind)
    FindString = intPos > 0

End Function