注目コメント算出アルゴリズムの一部にLINEヤフー株式会社の「建設的コメント順位付けモデルAPI」を使用しています
Option Explicit Dim objFileSystem Dim objStream Dim strLine Dim arrFields Dim strMessage Set objF... Option Explicit Dim objFileSystem Dim objStream Dim strLine Dim arrFields Dim strMessage Set objFileSystem = CreateObject("Scripting.FileSystemObject") Set objStream = objFileSystem.OpenTextFile(Left(WSH.ScriptFullName,Len(WSH.ScriptFullName) - Len(WSH.ScriptName)) & "\CSV_TEST.csv", 1) Do Until objStream.AtEndOfStream strLine = objStream.ReadLine arrFields = Split(strLine,",") strMessage = strMes
2009/04/23 リンク