XPNrGetPlace                              (XAPI2000)

Deklaration
 Function XPNrGetPlace(ByVal PostNr As String, Place As String) As Integer

Beskrivning
 Erhåller postort som tillhör ett svenskt postnummer. Parametern PostNr är en sträng som specificerar ett postnummer. Strängen måste innehålla 5 siffror. Inga mellanslag får förekomma. Tillhörande postort returneras via sträng-parametern Place. Hittar funktionen inte ett postnummer sätts strängen Place till "" och funktionen returnerar 1. Hittas postnumret returnerar funktionen 0. Se längre ned på sidan för övriga returvärden.

Tabellen med postnummer och postorter måste först laddas in i minnet med funktionen XPNrLoadTable. För att plocka bort eventuella mellanslag i en sträng med ett postnummer kan antingen funktionen XPnrFormatPnr eller funktionen StrDelSpc anropas först.

Returvärden
Funktionen returnerar en av följande värden:
.
Värde Beskrivning
0
1
2
6		 En postort som tillhör postnumret har hittats.
Hittar ej postnumret i tabellen.
Tabellen med postnummerdata är ej inladdad.
Strängen PostNr är ej korrekt.
.
Se även
XPnrLoadTable, XPNrFormatPnr, StrDelSpc


Exempel (VB 5/6)

Nedanstående exempel laddar in postnummertabellen XPOSTNR.DTA och hämtar postorten för postnumret "13523".

Dim C As Integer
Dim PostOrt As String
If XPNrLoadTable("C:\VBSL2007\PostNrDatabas\XPOSTNR.DTA") = 0 Then
  C = XPNrGetPlace("13523", PostOrt)
  If C = 0 Then MsgBox "Ort: " + PostOrt + "."
  If C = 1 Then MsgBox "Hittar ej postnumret!"
End If

Exempel (VB.NET)

Nedanstående exempel laddar in postnummertabellen XPOSTNR.DTA och hämtar postorten för postnumret "13523".

Dim C As Integer
Dim PostOrt As String
If XPNrLoadTable("C:\VBSL2007\PostNrDatabas\XPOSTNR.DTA") = 0 Then
  C = XPNrGetPlace("13523", PostOrt)
  If C = 0 Then MsgBox("Ort: " + PostOrt + ".")
  If C = 1 Then MsgBox("Hittar ej postnumret!")
End If