ฟอรั่ม PSsix

Would you like to react to this message? Create an account in a few clicks or log in to continue.

ฟอรั่มของบล็อก http://pssix.blogspot.com


2 posters

    Workshop AutoIt :1 ดึงข้อมูลจากเว็บในส่วนที่เราต้องการ รันสคริปแล้ว error

    avatar
    diyburi
    มือใหม่เพิ่งสมัคร
    มือใหม่เพิ่งสมัคร


    Workshop AutoIt :1 ดึงข้อมูลจากเว็บในส่วนที่เราต้องการ รันสคริปแล้ว error Empty Workshop AutoIt :1 ดึงข้อมูลจากเว็บในส่วนที่เราต้องการ รันสคริปแล้ว error Empty
    จำนวนข้อความ : 2
    ความนิยม : 0
    เข้าร่วมเมื่อ : 14/10/2014

    Workshop AutoIt :1 ดึงข้อมูลจากเว็บในส่วนที่เราต้องการ รันสคริปแล้ว error Empty Workshop AutoIt :1 ดึงข้อมูลจากเว็บในส่วนที่เราต้องการ รันสคริปแล้ว error

    ตั้งหัวข้อ by diyburi 14/10/14, 06:32 pm

    #include
    #include

    $oIE = _IECreate("http://th.wikipedia.org/wiki/" & _
            "%E0%B8%A3%E0%B8%B2%E0%B8%A2%E0%B8%" & _
            "8A%E0%B8%B7%E0%B9%88%E0%B8%AD" & _
            "%E0%B8%84%E0%B8%B3%E0%B9%83%E0%B8%" & _
            "99%E0%B8%A0%E0%B8%B2%E0%B8%A9%E0" & _
            "%B8%B2%E0%B9%84%E0%B8%97%E0%B8%A2%" & _
            "E0%B8%97%E0%B8%B5%E0%B9%88%E0%B8%A1%E0%B8" & _
            "%B1%E0%B8%81%E0%B9%80%E0%B8%82%E0%B8%B5%" & _
            "E0%B8%A2%E0%B8%99%E0%B8%9C%E0%B8%B4%E0%B8%94")
    Dim $tb[1][2]
    For $i = 1 To 39
        $oTable = _IETableGetCollection($oIE, $i)
        $aTable = _IETableWriteToArray($oTable, True)
        _ArrayDelete($aTable, 0)
        tbsum($tb, $aTable)
    Next
    _ArrayDelete($tb, 0)
    $file = FileOpen("test.txt", 2)
    For $i = 0 To UBound($tb) - 1
    FileWriteLine($file, "ลำดับที่:"&$i+1&$tb[$i][1]&" คำที่เขียนถูกคือ  "&$tb[$i][0] & @CRLF)
    Next
    FileClose($file)
    Run("notepad.exe test.txt")
    Func tbsum(ByRef $tb, $aTable)
        For $i = 0 To UBound($aTable) - 1
            ReDim $tb[UBound($tb) + 1][2]
            $tb[UBound($tb, 1) - 1][0] = $aTable[$i][0]
            $tb[UBound($tb, 1) - 1][1] = $aTable[$i][1]
        Next
    EndFunc


    [You must be registered and logged in to see this image.]
    Attachments
    Workshop AutoIt :1 ดึงข้อมูลจากเว็บในส่วนที่เราต้องการ รันสคริปแล้ว error Attachment2014-10-14_165107.png
    You don't have permission to download attachments.
    (42 Kb) Downloaded 3 times
    flapjack
    flapjack
    PSsix Member Super Class III
    PSsix Member Super Class III


    PSsix Moderator PSsix Master PSsix Game Coder
    จำนวนข้อความ : 314
    ความนิยม : 75
    เข้าร่วมเมื่อ : 05/10/2010

    Workshop AutoIt :1 ดึงข้อมูลจากเว็บในส่วนที่เราต้องการ รันสคริปแล้ว error Empty Re: Workshop AutoIt :1 ดึงข้อมูลจากเว็บในส่วนที่เราต้องการ รันสคริปแล้ว error

    ตั้งหัวข้อ by flapjack 15/10/14, 10:33 pm

    ผม RUN ได้ปกติน่ะครับ
    ผมใช้ Version 3.3.8.0
    [You must be registered and logged in to see this image.]
    avatar
    diyburi
    มือใหม่เพิ่งสมัคร
    มือใหม่เพิ่งสมัคร


    Workshop AutoIt :1 ดึงข้อมูลจากเว็บในส่วนที่เราต้องการ รันสคริปแล้ว error Empty Workshop AutoIt :1 ดึงข้อมูลจากเว็บในส่วนที่เราต้องการ รันสคริปแล้ว error Empty
    จำนวนข้อความ : 2
    ความนิยม : 0
    เข้าร่วมเมื่อ : 14/10/2014

    Workshop AutoIt :1 ดึงข้อมูลจากเว็บในส่วนที่เราต้องการ รันสคริปแล้ว error Empty Re: Workshop AutoIt :1 ดึงข้อมูลจากเว็บในส่วนที่เราต้องการ รันสคริปแล้ว error

    ตั้งหัวข้อ by diyburi 16/10/14, 01:08 am

    flapjack พิมพ์ว่า:ผม RUN ได้ปกติน่ะครับ
    ผมใช้ Version 3.3.8.0
    [You must be registered and logged in to see this image.]

    ของผม 3.4.1
    รบกวนขอโค้ดเต็มๆของคุณ flapjack ได้มั๊ยครับ
    flapjack
    flapjack
    PSsix Member Super Class III
    PSsix Member Super Class III


    PSsix Moderator PSsix Master PSsix Game Coder
    จำนวนข้อความ : 314
    ความนิยม : 75
    เข้าร่วมเมื่อ : 05/10/2010

    Workshop AutoIt :1 ดึงข้อมูลจากเว็บในส่วนที่เราต้องการ รันสคริปแล้ว error Empty Re: Workshop AutoIt :1 ดึงข้อมูลจากเว็บในส่วนที่เราต้องการ รันสคริปแล้ว error

    ตั้งหัวข้อ by flapjack 17/10/14, 12:25 am

    Code:

    #include <IE.au3>
    #include <Array.au3>

    $oIE = _IECreate("http://th.wikipedia.org/wiki/" & _
            "%E0%B8%A3%E0%B8%B2%E0%B8%A2%E0%B8%" & _
            "8A%E0%B8%B7%E0%B9%88%E0%B8%AD" & _
            "%E0%B8%84%E0%B8%B3%E0%B9%83%E0%B8%" & _
            "99%E0%B8%A0%E0%B8%B2%E0%B8%A9%E0" & _
            "%B8%B2%E0%B9%84%E0%B8%97%E0%B8%A2%" & _
            "E0%B8%97%E0%B8%B5%E0%B9%88%E0%B8%A1%E0%B8" & _
            "%B1%E0%B8%81%E0%B9%80%E0%B8%82%E0%B8%B5%" & _
            "E0%B8%A2%E0%B8%99%E0%B8%9C%E0%B8%B4%E0%B8%94")
    Dim $tb[1][2]
    For $i = 1 To 39
        $oTable = _IETableGetCollection($oIE, $i)
        $aTable = _IETableWriteToArray($oTable, True)
        _ArrayDelete($aTable, 0)
        tbsum($tb, $aTable)
    Next
    _ArrayDelete($tb, 0)
    $file = FileOpen("test.txt", 2)
    For $i = 0 To UBound($tb) - 1
    FileWriteLine($file, "ลำดับที่:"&$i+1&$tb[$i][1]&" คำที่เขียนถูกคือ  "&$tb[$i][0] & @CRLF)
    Next
    FileClose($file)
    Run("notepad.exe test.txt")
    ConsoleWrite("AutoItVersion : "&@AutoItVersion&@CRLF)
    Func tbsum(ByRef $tb, $aTable)
        For $i = 0 To UBound($aTable) - 1
            ReDim $tb[UBound($tb) + 1][2]
            $tb[UBound($tb, 1) - 1][0] = $aTable[$i][0]
            $tb[UBound($tb, 1) - 1][1] = $aTable[$i][1]
        Next
    EndFunc
    Code เหมือนเดิมเลยครับ ไม่ได้เปลี่ยนอะไรเลย

      เวลาขณะนี้ 29/03/24, 12:28 pm