【宮崎公務員児ﾎﾟ】ﾔﾌｵｸ詐欺21ﾊｹﾞ目 【マルチ流出300件】
4-1
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
Set File = FSO.GetFile("data.txt")
Set wFile = FSO.CreateTextFile("data.html")
Set wFile = FSO.GetFile("data.html")
Set TextStream = File.OpenAsTextStream()
Set wStream = wFile.OpenAsTextStream(2, -2)
wStream.Write "<html><body>"
Do While Not TextStream.AtEndOfStream
S = TextStream.ReadLine
a = Split(S, ",")
'on error resume next
wStream.Write "<font size=3 color=#ff0080>""" & a(11) & """</font><p>"
wStream.Write "<a href=""http://www.google.co.jp/search?sourceid=navclient&hl=ja&ie=Shift_JIS&oe=Shift_JIS&q=" & a(5) & """ target=""_blank"">" & a(5) & "</a>"
ArrayCt = UBound(a)
For i = 12 to ArrayCt
if i Mod 4 = 0 Then
wStream.Write " " & a(i)
End if
Next
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
Set File = FSO.GetFile("data.txt")
Set wFile = FSO.CreateTextFile("data.html")
Set wFile = FSO.GetFile("data.html")
Set TextStream = File.OpenAsTextStream()
Set wStream = wFile.OpenAsTextStream(2, -2)
wStream.Write "<html><body>"
Do While Not TextStream.AtEndOfStream
S = TextStream.ReadLine
a = Split(S, ",")
'on error resume next
wStream.Write "<font size=3 color=#ff0080>""" & a(11) & """</font><p>"
wStream.Write "<a href=""http://www.google.co.jp/search?sourceid=navclient&hl=ja&ie=Shift_JIS&oe=Shift_JIS&q=" & a(5) & """ target=""_blank"">" & a(5) & "</a>"
ArrayCt = UBound(a)
For i = 12 to ArrayCt
if i Mod 4 = 0 Then
wStream.Write " " & a(i)
End if
Next
|
|
|