#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.]
#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
- 2014-10-14_165107.png
- You don't have permission to download attachments.
- (42 Kb) Downloaded 3 times