Question

我还是VB编程的新手，我有一个问题。我想为国家制作一个过滤器，然后法国人下载我的应用程序并启动它，我希望他们启动程序，该程序识别他们的国家并将程序翻译成他们的语言（法语）。我制作了翻译和国家，但我遇到了一些问题。

我使用此代码获取其IPv4（外部）

Using wb As New WebClient
Dim s As String = wb.DownloadString("http://www.whatsmyip.us/showipsimple.php")
TextBox1.Text = s
End Using

我该如何制作然后文本框才会收到它，过滤只接收IP（没有document.write（“”）;）

文本框收到IP后，使用此应用程序（http://ipinfodb.com/ip_location_api.php）程序将需要从api站点接收日期（我将使用上面的代码）但我仍然有同样的问题。我可以过滤OK ;; xx.xxx.xx.xxx; US;美国只接收美国或美国？

Answer 1

尝试这样的事情：

Dim s As String = "OK;;xx.xxx.xx.xxx;US;UNITED STATES"
Dim aux() As String = s.Split(";"c)
Dim countryCode As String = aux(3)
Dim countryName As String = aux(4)

或者你可以这样做：

Dim s As String = "OK;;xx.xxx.xx.xxx;US;UNITED STATES"
Dim countryName = s.SubString(s.LastIndexOf(";"c) + 1)

过滤文本框以仅复制数字

1 个答案: