WOW新区第一帖[原创]

Simen.newbie

前几天下了个VBScropt帮助手册,写出来的东东

处女作

功能...看完就知道

'Coded by newbie

Private Function td(ByVal Color, ByVal Font, ByVal MapName, ByVal URL, ByVal withURL)
If withURL = 0 Then
        td = "[td][color=" & Color & "]" & MapName & "[/td]"
    Else
        td = "[td][color=" & Color & "]" & MapName & "[/td]"
End If
End Function

Dim fso, Table, DiscuzCode
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FileExists("table.txt")) Then
        Dim Columns
        Dim strCode, strTemp1, strTemp2, strTrCode
        Dim Counter
        Counter = 0
        strCode = ""
        strTrCode = ""
        Columns = InputBox("请输入列数")
        Const ForReading = 1, ForWriting = 2, ForAppending = 8
        Set Table = fso.OpenTextFile("table.txt", ForReading)
        Do While Table.AtEndOfLine <> True
            Counter = Counter + 1
            strTemp1 = Table.ReadLine
            strTemp2 = Table.ReadLine
            If Len(Trim(strTemp2)) = 0 Then
                    strTrCode = strTrCode & td("#0033bb", "Arial", strTemp1, "", 0)
                Else
                    strTrCode = strTrCode & td("#0033bb", "Arial", strTemp1, strTemp2, 1)
            End If
            If Counter = CInt(Columns) Then
                    Counter = 0
                    strCode = strCode & "" & strTrCode & ""
                    strTrCode = ""
            End If
        Loop
        Table.Close
        If Counter <> 0 Then strCode = strCode & "" & strTrCode & ""

        Set DiscuzCode = fso.OpenTextFile("DiscuzCode.txt", ForWriting, True)
        strCode = strCode & ""
        DiscuzCode.Write strCode
        DiscuzCode.Close
    Else
        MsgBox "table.txt 不存在"
End If

333

强烈要求删除此帖

SiMen.Sunshine

这版快开了啊  olay 加油啊

不行 我帮你 哈哈

20245

-_- 貌似这个帖子什么也没啊

Simen.newbie

http://bbs.simen.cn/showtopic-5862-1.html

SiMen.w-inds:(

  删啦