[]
SSIS Script Task ile Web Parse
selamlar,
Bir job içinde, kur bilgileri vb. gibi bilgileri web sayfalarından alıp işlemem gerekiyor. VB.Net beceremedim. Bir el atıverseniz de XMLHTTP olaylarına girsek, variable'ları doldursak. hağ?
Bir job içinde, kur bilgileri vb. gibi bilgileri web sayfalarından alıp işlemem gerekiyor. VB.Net beceremedim. Bir el atıverseniz de XMLHTTP olaylarına girsek, variable'ları doldursak. hağ?
Çözdüm;
önce bi HTTP Connection Manager oluşturuyosun. orayı ilgili web sitesine bağlıyosuun. sonra da,
Imports System
Imports System.IO
Imports System.Text
Imports System.Windows.Forms
Imports Microsoft.SqlServer.Dts.Runtime
Public Class ScriptMain
Public Sub Main()
Dim nativeObject As Object = Dts.Connections("HTTP Connection Manager").AcquireConnection(Nothing)
Dim connection As New HttpClientConnection(nativeObject)
Dim buffer As Byte() = connection.DownloadData()
Dim StrData As String = Encoding.ASCII.GetString(buffer)
Dim StrBas As String = "DOLARI</td><td>"
Dim StrSon As String = "</td><td"
Dim IntBas As Integer = InStr(1, StrData, StrBas, vbTextCompare)
IntBas = IntBas + Len(StrBas)
Dim IntSon As Integer = InStr(IntBas + 1, StrData, StrSon, vbTextCompare)
Dim data As String = CStr(Mid(StrData, IntBas, IntSon - IntBas))
'MessageBox.Show(data)
File.AppendAllText("C:\ssis\Sample.txt", data)
Dts.TaskResult = Dts.Results.Success
End Sub
End Class
önce bi HTTP Connection Manager oluşturuyosun. orayı ilgili web sitesine bağlıyosuun. sonra da,
Imports System
Imports System.IO
Imports System.Text
Imports System.Windows.Forms
Imports Microsoft.SqlServer.Dts.Runtime
Public Class ScriptMain
Public Sub Main()
Dim nativeObject As Object = Dts.Connections("HTTP Connection Manager").AcquireConnection(Nothing)
Dim connection As New HttpClientConnection(nativeObject)
Dim buffer As Byte() = connection.DownloadData()
Dim StrData As String = Encoding.ASCII.GetString(buffer)
Dim StrBas As String = "DOLARI</td><td>"
Dim StrSon As String = "</td><td"
Dim IntBas As Integer = InStr(1, StrData, StrBas, vbTextCompare)
IntBas = IntBas + Len(StrBas)
Dim IntSon As Integer = InStr(IntBas + 1, StrData, StrSon, vbTextCompare)
Dim data As String = CStr(Mid(StrData, IntBas, IntSon - IntBas))
'MessageBox.Show(data)
File.AppendAllText("C:\ssis\Sample.txt", data)
Dts.TaskResult = Dts.Results.Success
End Sub
End Class
- eskimo
(08.01.12 01:42:10 ~ 01:49:41)
1
