WEB_DAY
- このフォーラムに新規トピックを投稿できます
- このフォーラムではゲスト投稿が許可されています
WEB_DAY
msg# 1
前の投稿
-
次の投稿
|
親投稿
-
子投稿なし
|
投稿日時 2010-3-6 18:54
ゲスト
投稿数: 0
Sub TEST()
'☆変数宣言開始--------------------------------------------------------------------------------------
Dim TEST As Long
Dim HpUrl, XmlText As String
Dim SOURCE_FOLDER As String
Dim SOURCE_FILE As String
Dim SOURCE_FILENAME As String
'オブジェクト変数宣言
Dim FSO As Object
Dim HP As Object
'☆変数宣言終了--------------------------------------------------------------------------------------
'☆変数設定開始--------------------------------------------------------------------------------------
'日付変数設定
YYYY = CStr(Format(Date, "yyyy"))
MM = CStr(Format(Date, "m"))
dd = CStr(Format(Date, "dd"))
TODAY_DATE = YYYY & "/" & MM & "/" & dd
'フォルダ変数設定
SOURCE_FOLDER = "D:\WEB\LOG"
'ファイル変数設定
SOURCE_FILE = "WEB_SOURCE_CODE.TXT"
SOURCE_FILENAME = SOURCE_FOLDER & "\" & SOURCE_FILE
'関数設定
FREE_NUMBER = FreeFile
'オブジェクト変数設定
Set FSO = CreateObject("Scripting.FileSystemObject")
Set HP = CreateObject("MSXML2.XMLHTTP")
'☆変数設定終了--------------------------------------------------------------------------------------
'☆処理開始--------------------------------------------------------------------------------------
'初期化処理
If FSO.FILEEXISTS(SOURCE_FILENAME) Then
Kill SOURCE_FILENAME
Else
End If
HpUrl = Cells(1, 1).Text
If HpUrl = "" Then Exit Sub
'ソースコード取込処理
HP.Open "GET", HpUrl, False
HP.Send
XmlText = HP.ResponseText
Open SOURCE_FILENAME For Append As #FREE_NUMBER
Print #FREE_NUMBER, XmlText
Close #FREE_NUMBER
'ソースコード部分抽出処理
TEST = InStr(XmlText, "AAA")
Cells(20, 1) = Mid(XmlText, TEST + 16, 6)
Set HP = Nothing
End Sub
'☆変数宣言開始--------------------------------------------------------------------------------------
Dim TEST As Long
Dim HpUrl, XmlText As String
Dim SOURCE_FOLDER As String
Dim SOURCE_FILE As String
Dim SOURCE_FILENAME As String
'オブジェクト変数宣言
Dim FSO As Object
Dim HP As Object
'☆変数宣言終了--------------------------------------------------------------------------------------
'☆変数設定開始--------------------------------------------------------------------------------------
'日付変数設定
YYYY = CStr(Format(Date, "yyyy"))
MM = CStr(Format(Date, "m"))
dd = CStr(Format(Date, "dd"))
TODAY_DATE = YYYY & "/" & MM & "/" & dd
'フォルダ変数設定
SOURCE_FOLDER = "D:\WEB\LOG"
'ファイル変数設定
SOURCE_FILE = "WEB_SOURCE_CODE.TXT"
SOURCE_FILENAME = SOURCE_FOLDER & "\" & SOURCE_FILE
'関数設定
FREE_NUMBER = FreeFile
'オブジェクト変数設定
Set FSO = CreateObject("Scripting.FileSystemObject")
Set HP = CreateObject("MSXML2.XMLHTTP")
'☆変数設定終了--------------------------------------------------------------------------------------
'☆処理開始--------------------------------------------------------------------------------------
'初期化処理
If FSO.FILEEXISTS(SOURCE_FILENAME) Then
Kill SOURCE_FILENAME
Else
End If
HpUrl = Cells(1, 1).Text
If HpUrl = "" Then Exit Sub
'ソースコード取込処理
HP.Open "GET", HpUrl, False
HP.Send
XmlText = HP.ResponseText
Open SOURCE_FILENAME For Append As #FREE_NUMBER
Print #FREE_NUMBER, XmlText
Close #FREE_NUMBER
'ソースコード部分抽出処理
TEST = InStr(XmlText, "AAA")
Cells(20, 1) = Mid(XmlText, TEST + 16, 6)
Set HP = Nothing
End Sub
投票数:54
平均点:5.37
返信する