บันทึกลิ้งค์ลงไฟล์txt

คือจะบันทึกลิ้งค์ลงในไฟล์abc.txtอ่าครับ
พอเข้าไปดูมันมีแต่ ID: เฉยๆครับไม่ทราบว่าจะต้องทำยังไงต่อ

Code:

$oLinks = _IELinkGetCollection($IE)
   For $oLink In $oLinks
      If StringInStr($oLink.href, "?newdid=") Then
         $text = $oLink
      FileOpen(@ScriptDir & "\abc.txt", 2)
      FileWrite("abc.txt", "ID:"&$text)
      FileClose("abc.txt")
      EndIf
   Next

แก้เป็น $text = $oLink.href

#include <IE.au3>

$IE =_IECreate("http://www.google.com")
$oLinks = _IELinkGetCollection($IE)
For $oLink In $oLinks
If StringInStr($oLink.href, "th") Then
$text = $oLink.href
FileOpen(@ScriptDir & "\abc.txt", 1)
FileWrite("abc.txt", "ID:"&$text&@CRLF)
FileClose("abc.txt")
EndIf
Next

ได้แล้วครับขอบคุณมากคับ

ขอถามไรนิดหน่อยนะครับ ว่า $oLink.href กับ $oLink มันแตกต่างกันยังไงคับ

ทำยังไงไม่ให้มันเขียนลิ้งค์ซ้ำกันอ่าครับ ผมลองเขียนดูแล้วมันก็ยังซ้ำกันอยู่ครับ
ตรง FileOpen ผมลองเปลี่ยนเป็นเลข2แล้ว มันบันทึกแค่ลิ้งค์เดียวครับ

Code:

$oLinks = _IELinkGetCollection($travian)
   For $oLink In $oLinks
      If StringInStr($oLink.href, "?newdid=") Then
         $text = $oLink.href
         $text2 = FileRead(@ScriptDir & "\abc.txt")
               If  $text<>$text2 Then
                  FileOpen(@ScriptDir & "\abc.txt", 1)
                  FileWrite("abc.txt", $text&@CRLF)
               EndIf
         EndIf
   Next

มีคำสั่งแก้ลิ้งซ้ำนะแต่จำไม่ได้ว่าใช้อาราย :affraid:

รบกวนผู้รู้ช่วยตอบหน่อยครับ

จับลิงก์ที่้ต้องการใส่ในอาเรย์ก่อน แล้วค่อยคัดที่ซ้ำออก แก้ไขตามตัวอย่างสคริปต์ด้านล่างนี้ครับ

Code:

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

Global $Array[1]

$IE = _IECreate("http://pssix.blogspot.com/")
$oLinks = _IELinkGetCollection($IE)


For $oLink In $oLinks
   If StringInStr($oLink.href, "2010") Then
      _ArrayAdd($Array, $oLink.href)
   EndIf
Next

_ArrayDelete($Array, 0)
$newarray = _ArrayUnique($Array)
FileOpen(@ScriptDir & "\abc.txt", 2)

For $i = 1 To $newarray[0]
   FileWrite("abc.txt", "ID:" & $newarray[$i] & @CRLF)
Next
FileClose("abc.txt")

เด่วจะลองไปดัดแปลงนะครับ
ช่วยอธิบายช่วงนี้หน่อยได้ป่าวครับจะได้เข้าใจยิ่งขึ้น

_ArrayDelete($Array, 0)
$newarray = _ArrayUnique($Array)
FileOpen(@ScriptDir & "\abc.txt", 2)

For $i = 1 To $newarray[0]
FileWrite("abc.txt", "ID:" & $newarray[$i] & @CRLF)
Next

ตรงที่ผมเน้นสีแดงอ่าครับ ขอบคุณครับ

ลองกด F1 ดูแต่ละคำสั่งมันจะมีคำอธิบาย ผลของคำสั่งออกมา ถ้าไม่พยายามก็จะไม่รู้ ความรู้จะตันแค่สิ่งที่คนอื่นบอกเอาไว้เท่านั้น


_ArrayDelete($Array, 0)
ลบอาเรย์แรกออกไป (มันเป็น 0 ไม่มีข้อมูลต้องลบทิ้ง)
$newarray = _ArrayUnique($Array)
ลบอาเรย์ที่มีข้อมูลซ้ำกัน แล้วเอาไปใส่ในตัวแปรอีกตัว

FileOpen(@ScriptDir & "\abc.txt", 2)

For $i = 1 To $newarray[0]
วนลูป i แทนค่า 1 ถึง จำนวนข้อมูลสูงสุดในอาเรย์ (ผลจากคำสั่ง _ArrayUnique จะทำให้อาเรย์แรกเก็บตัวบ่งบอกข้อมูลทั้งหมดในอาเรย์ว่ามีเท่าไหร่)

FileWrite("abc.txt", "ID:" & $newarray[$i] & @CRLF)
ดึงเอาข้อมูลในอาเรย์ไล่ตั้งแต่ 1 ไปจนถึงสุดท้าย นำไปใส่ไฟล์ abc.txt เรียงทีละบรรทัด

Next