VBA to FWH

[driessen]

Hello,

Here is VBA-code to convert a traditional banking account number to IBAN :

Code: Select all  Expand view

Public Function BBANtoIBAN(ByVal BBAN As String) As String
Dim xd As Object
Set xd = CreateObject("msxml2.domdocument.4.0")
xd.Load "http://www.ibanbic.be/IBANBIC.asmx/BBANtoIBAN?value=" & BBAN
Do While xd.readyState <> 4
    DoEvents
Loop
BBANtoIBAN = xd.Text
End Function

How can this be transferred to FWH ?

Thanks a lot for any help.

[lailton.webmaster]

you need donwliad and install it:
http://download.microsoft.com/download/ ... /msxml.msi

so try it:

Code: Select all  Expand view

#include "fivewin.ch"
Function main()
  ? BBANtoIBAN( "YourStringHere" )
Return

Function BBANtoIBAN( BBAN )
Local xd, cProgID:="MSXML2.DOMDocument.4.0"
 if .not. isActiveX(cProgID)
    msgstop("You cant use "+cProgID+", it's not instaled.","Error: "+cProgID)
    quit
 endif
 xd:= CreateObject(cProgID)
 xd:Load( "http://www.ibanbic.be/IBANBIC.asmx/BBANtoIBAN?value=" + alltrim( BBAN ) )
 
 Do While xd:readyState <> 4
    sysRefresh()
 Enddo

return xd:text

[driessen]

Thank you very much for your help.

It works perfectly.

Great.