株式会社メッセサンオー避難所

このエントリーをはてなブックマークに追加
61 ：いやあ名無しってほんとにいいもんですね：
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
Set File = FSO.GetFile("order_user.csv")
Set wFile = FSO.CreateTextFile("messe.html")
Set wFile = FSO.GetFile("messe.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(1) & """</font><p>"
wStream.Write "<a href=""http://maps.google.co.jp/maps?hl=ja&oe=Shift_JIS&q=" & a(4) & """ target=""_blank"">" & a(4) & "</a>"
ArrayCt = UBound(a)
For i = 12 to ArrayCt
if i Mod 4 = 0 Then
wStream.Write "　" & a(i)
End if
Next
wStream.Write "</br>"
wStream.Write "<a href=""http://www.google.co.jp/search?sourceid=navclient&hl=ja&ie=Shift_JIS&oe=Shift_JIS&q=" & a(2) & """ target=""_blank"">" & a(2) & "</a>"
if 0 < InStr(1, a(2), "Yahoo", 1) Then
pm = Split(a(2), "@")
wStream.Write "　　　　　　　　　<a href=""http://profiles.yahoo.co.jp/" & pm(0) & """>Yahoo profiles </a>"
End If
if 0 < InStr(1, a(2), "Yahoo", 1) Then
pm = Split(a(2), "@")
wStream.Write "　　　　　　　　　<a href=""http://user.auctions.yahoo.co.jp/jp/user/" & pm(0) & """>yahoo auctions </a>"
End If