Torna al Thread

Imports System.Text.RegularExpressions Public Class Form1 Private wb As Net.WebClient Private Regex As New Regex("(?<Id>(?<="":{""id"":"")\w+)|(?<Status>(?<=""status"":"")\w+(?="",))|(?<FileName>(?<=""filename"":"")[\w\-\.]+)|(?<Url>(?<=""url"":"")[\w\-\.\:\\\/\?\=\%\&]+)") Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load wb = New Net.WebClient Dim Text As String = wb.DownloadString("http://api.filesonic.com/link?method=getDownloadLink&u=146878&p=146878&ids=syRR3wM") Dim Result As MatchCollection = Regex.Matches(Text) For Each Match As Match In Result If Match.Groups("Id").Success Then lblId.Text = String.Format("Id: <{0}>", Match.Groups("Id").Value) If Match.Groups("Status").Success Then lblStatus.Text = String.Format("Status: <{0}>", Match.Groups("Status").Value) If Match.Groups("FileName").Success Then lblFileName.Text = String.Format("Filename: <{0}>", Match.Groups("FileName").Value) If Match.Groups("Url").Success Then lblUrl.Text = String.Format("Url: <{0}>", Match.Groups("Url").Value) Next End Sub End Class
Copyright © dotNetHell.it 2002-2024
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5