0

C# または VB.Net コードを使用してリンク (http://24.173.220.131/carter/currentinmates.aspx) からダウンロードします。次に、ページの属性をテキスト ドキュメントに解析します。

出力:

名前|予約日|料金|保釈|釈放|エージェンシー アンダーソン、ジェイミー・ラモーン|2012年5月4日|刑期|$0.00|2022年5月2日|アンデルソン、ジェフリー・コナード|02/06/2012|刑期|$0.00| 2022 年 2 月 5 日|カーター郡保安官局

4

2 に答える 2

2

への参照を追加しCsQuery、NuGet にインストールするか、ここで見つけますhttps://github.com/jamietre/CsQuery

using System;
using System.Collections.Generic;
using System.Collections.Concurrent;
using System.Diagnostics;
using System.Linq;
using System.Threading;
using System.Threading.Tasks;
using System.Text;
using CsQuery;

class Program
{
    static void Main(string[] args)
    {

        var stringBuilder = new StringBuilder();
        var url = "http://24.173.220.131/carter/currentinmates.aspx";
        CQ.CreateFromUrlAsync(url)
           .Then(response =>
           {
               var dom = response.Dom;
               var trs = dom.Select("#dgrdLandRecords tr").Elements;
               foreach (var row in trs)
               {
                   stringBuilder.AppendLine();
                   var tds = row.ChildElements.ToList();

                   for (int i = 1; i < tds.Count; i++)
                   {
                       stringBuilder.Append(tds[i].Cq().Text());
                       stringBuilder.Append("|");
                   }
               }
               var result = stringBuilder.ToString();
               Console.Write(result);
           });


        Console.WriteLine("Press any key to exit.");
        Console.ReadKey();
    }
}
于 2012-08-03T04:11:20.610 に答える
0

探しているものとまったく同じWebClient クラスを使用してください。

Public Class Test

Public Shared Sub Main(args() As String)
    Dim sURL as String
    If args Is Nothing OrElse args.Length = 0 Then
        'Throw New ApplicationException("Specify the URI of the resource to retrieve.")
         sURL = http://24.173.220.131/carter/currentinmates.aspx"
    Else
        sURL = args(0)
    End If
    Dim client As New WebClient()

    ' Add a user agent header in case the 
    ' requested URI contains a query.
    client.Headers.Add("user-agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.2; .NET CLR 1.0.3705;)")

    Dim data As Stream = client.OpenRead(sURL)
    Dim reader As New StreamReader(data)
    Dim s As String = reader.ReadToEnd()
    Console.WriteLine(s)

    'Here write the variable `s` to a Text file, eg My.File.Create(s)

    data.Close()
    reader.Close()
End Sub 'Main
End Class 'Test
于 2012-08-03T00:34:19.430 に答える