Avatar billede clausnilsson Mester
21. januar 2018 - 23:43 Der er 4 kommentarer

Cvr api vb.net

Hej,

http://cvrapi.dk/examples viser hvor nemt det er at integrere til cvr.dk. Mit problem er at vb.net ikke er på listen.

Nogen der har tilsvarende eksempler til vb.net eller et forslag til hvordan jeg nemt overfører et af eksemplerne til vb.net?

Tak
Avatar billede arne_v Ekspert
22. januar 2018 - 01:16 #1
VB.NET og C# er jo det samme bare med lidt forskellig syntax.

Hurtig konvertering:


Imports System
Imports System.Net

'
'Hoejre klik paa 'References' i 'Solution Explorer'
'Tryk paa 'Add reference'
'Oeverst i hoejre hjoerne soeger du blot efter 'web.extensions'
'System.Web.Extensions skal tilfoejes som reference.
'

Namespace cvropslag
    Public Class Program
        Public Shared Sub Main(args As String())
            Dim company As ApiResult = GetCompanyInfo("10150817")
            Console.WriteLine("Test: " & company.Name & " - " & company.Version)
            Console.ReadLine()
        End Sub

        Public Class ApiOwners
            Public Property Name() As String
        End Class

        Public Class ApipPoductionunits
            Public Property Pno() As String
            Public Property Name() As String
            Public Property Address() As String
            Public Property Zipcode() As String
            Public Property City() As String
            Public Property [protected]() As Boolean
            Public Property Phone() As String
            Public Property Email() As String
            Public Property Fax() As String
            Public Property Startdate() As String
            Public Property Enddate() As String
            Public Property Employees() As String
            Public Property Addressco() As String
            Public Property Industrycode() As Integer
            Public Property Industrydesc() As String
            Public Property Companycode() As Integer
            Public Property Companydesc() As String
            Public Property Creditstartdate() As String
            Public Property Creditstatus() As System.Nullable(Of Integer)
            Public Property Creditbankrupt() As Boolean
        End Class

        Public Class ApiResult
            Public Property VAT() As String
            Public Property Name() As String
            Public Property Address() As String
            Public Property Zipcode() As String
            Public Property City() As String
            Public Property [protected]() As Boolean
            Public Property Phone() As String
            Public Property Email() As String
            Public Property Fax() As String
            Public Property Startdate() As String
            Public Property Enddate() As String
            Public Property Employees() As String
            Public Property Addressco() As String
            Public Property Industrycode() As Integer
            Public Property Industrydesc() As String
            Public Property Companycode() As Integer
            Public Property Companydesc() As String
            Public Property Creditstartdate() As String
            Public Property Creditstatus() As System.Nullable(Of Integer)
            Public Property Creditbankrupt() As Boolean
            Public Property Owners() As ApiOwners()
            Public Property Productionunits() As ApipPoductionunits()
            Public Property T() As Integer
            Public Property Version() As Integer
        End Class

        Public Shared Function GetCompanyInfo(name As String) As ApiResult
            Dim res As ApiResult
            Using webClient = New WebClient()
                webClient.Headers("User-Agent") = "mit projekt"
                Dim resultContent As String = webClient.DownloadString(String.Format("http://cvrapi.dk/api?search={0}&country=dk", name))
                res = New System.Web.Script.Serialization.JavaScriptSerializer().Deserialize(Of ApiResult)(resultContent)
            End Using
            Return res
        End Function
    End Class
End Namespace
Avatar billede clausnilsson Mester
22. januar 2018 - 01:50 #2
Ja, og det der ligner absolut mere vb end c# :) Skal jeg ikke kunne lægge den kodeblok ind i en private sub? Eller hvordan skal den helt nøjagtigt håndteres?
Avatar billede arne_v Ekspert
22. januar 2018 - 02:03 #3
Du skal vel kopiere de 3 klasser og metoden ind i din klasse og saa snuppe den her:

Dim company As ApiResult = GetCompanyInfo("10150817")

fra Main og bruge den hvor du nu skal bruge den i din kode.
Avatar billede clausnilsson Mester
22. januar 2018 - 04:01 #4
Jeg har oprettet en klasse hvori jeg har lagt de tre klasser og metoden og så har jeg lagt dim company ..... linjen i en knap på en form. Så får jeg følgende fejl:

BC30002    Type 'ApiResult' is not defined.

BC30451    'GetCompanyInfo' is not declared. It may be inaccessible due to its protection level.

Det hænger måske sammen med at jeg ikke helt forstår klasser, moduler etc., selvom jeg har forsøgt at læse en del om dem......
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester





CIO
10 gratis artikler: Få gode råd fra Danmarks bedste it-ledere