|
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 6.0)
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:\VBSL2015\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:\VBSL2015\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
|
