テキストファイルに保存するには?

解決


うい  2005-10-04 06:58:28  No: 125996

環境はVB.net  2003です。
URLを抽出することができたのでそれをテキストファイルに保存しようと
思ったのですが、メモ帳ができるだけでデータが保存されません。
初心者の質問ですがよろしくお願いします。

Private Sub downButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles downButton.Click
Try
            Dim downloadurl As String = urlText.Text
            Dim filepath As String = filePathText.Text
            Dim downloaddirurl As String = downloadurl.Substring(0, downloadurl.LastIndexOf("/") + 1)

            Dim webClient As WebClient = New WebClient
            webClient.DownloadFile(downloadurl, "c:\temp.html")

            'c:\\temp.htmlの内容をcontentsに格納
            Dim reader As StreamReader = File.OpenText("c:\temp.html")
            Dim contents As String = reader.ReadToEnd()
            reader.Close()

            'contentsからリンク情報のリストを抽出
            Dim regex As Regex = New Regex("<a +href=('|"")[^('|"")]*('|"")*>")
            Dim matchcollection As MatchCollection = Regex.Matches(contents)

            '各リンク情報からURLを抽出し、ダウンロードする
            Dim i As Integer
            For i = 0 To matchcollection.Count - 1
                Dim urlregex As Regex = New Regex("('|"")[^('|"")]*('|"")")
                Dim match As Match = urlregex.Match(matchcollection(i).Value)
                Dim url As String = match.Value.Substring(1, match.Value.Length - 2)

                If url.IndexOf("http://") <> 0 Then
                    url = downloaddirurl & url

***************//追加部分
                    '抽出されたリンク情報をテキストボックスに表示
                    Dim fsk As FileStream = New FileStream("c:\urllist.txt", FileMode.Open)
                    Dim fsw As StreamWriter = New StreamWriter(fsk)
                    fsw.WriteLine(url)
***************

                    urlListText.Text = urlListText.Text & url & vbCrLf

                    'ファイル名を取得
                    Dim filenamestart As Integer = url.LastIndexOf("/") + 1
                    Dim filenamelength As Integer = url.Length - filenamestart
                    Dim filename As String = url.Substring(filenamestart, filenamelength)

                    'ダウンロード先ファイルパスを作成
                    Dim downloadpath As String = filepath & "down"

                    Try
                        webClient.DownloadFile(url, downloadpath)
                    Catch ex As Exception

                    End Try
                End If
            Next

        Catch ex As Exception

        End Try

    End Sub


うい  2005-10-04 07:05:14  No: 125997

一週間ほど前に教えていただいて完成したソースに3行を追加したのみです。
書きこのサイトを参考にしてます。

http://www.gotdotnet.com/japan/student/column/firststep/firststep19.aspx


うい  2005-10-04 07:05:16  No: 125998

一週間ほど前に教えていただいて完成したソースに3行を追加したのみです。
書きこのサイトを参考にしてます。

http://www.gotdotnet.com/japan/student/column/firststep/firststep19.aspx


030  2005-10-04 07:21:20  No: 125999

fsw.Closeがないからじゃ?


うい  2005-10-04 07:45:06  No: 126000

ありがとうございました。
無事動きました。
初心者すぎる質問ですみませんでした。


うい  2005-10-04 07:45:43  No: 126001

解決ボタン忘れてました。


※返信する前に利用規約をご確認ください。




  


  このエントリーをはてなブックマークに追加