รบกวนสคริปอ่านไฟล์หน่อยครับ

yoyokungzz พิมพ์ว่า:[You must be registered and logged in to see this link.]

FileWriteLine เก็บข้อมูลลง .txt

อ่านไฟล์ text
GUICtrlSetData($var, FileRead("Text.txt"))

ลองดูครับ  (via ท่านArm)

tomakung พิมพ์ว่า:#include
#include
#include
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 615, 437, 192, 124)
$Button1 = GUICtrlCreateButton("Button1", 448, 24, 97, 33)
$Button2 = GUICtrlCreateButton("Delete", 448, 80, 97, 33)
$Button3 = GUICtrlCreateButton("Save", 448, 140, 97, 33)
$Edit1 = GUICtrlCreateEdit("", 40, 24, 177, 289)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
case $Button1
$file = FileOpen("test.txt", 0)
           $show= FileRead($file)
GUICtrlSetData(-1, $show)
           FileClose($file)
Case $GUI_EVENT_CLOSE
Exit
case $Button2
$Edit1=GUICtrlSetData(-1, "")
Case $Button3
           $hsave=FileSaveDialog("Choose...",@ScriptDir,"Text Files (*.txt)")
           If $hsave="" Then
           cancel()
           else
           FileWrite($hsave&".txt",GUICtrlRead($Edit1))
           MsgBox(64,"Saved","Document was saved",5)

EndIf
   EndSwitch

WEnd

Func cancel()
   MsgBox(64,"Cancelled","Cancelled")

   EndFunc

MaxiMus พิมพ์ว่า:

tomakung พิมพ์ว่า:#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 615, 437, 192, 124)
$Button1 = GUICtrlCreateButton("Button1", 448, 24, 97, 33)
$Button2 = GUICtrlCreateButton("Delete", 448, 80, 97, 33)
$Button3 = GUICtrlCreateButton("Save", 448, 140, 97, 33)
$Edit1 = GUICtrlCreateEdit("", 40, 24, 177, 289)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
case $Button1
$file = FileOpen("test.txt", 0)
           $show= FileRead($file)
GUICtrlSetData(-1, $show)
           FileClose($file)
Case $GUI_EVENT_CLOSE
Exit
case $Button2
$Edit1=GUICtrlSetData(-1, "")
Case $Button3
           $hsave=FileSaveDialog("Choose...",@ScriptDir,"Text Files (*.txt)")
           If $hsave="" Then
           cancel()
           else
           FileWrite($hsave&".txt",GUICtrlRead($Edit1))
           MsgBox(64,"Saved","Document was saved",5)

EndIf
   EndSwitch

WEnd

Func cancel()
   MsgBox(64,"Cancelled","Cancelled")

   EndFunc

ขอบคุณท่าน tomakung เกือบได้แล้วครับแต่ติดนิดหน่อย

FileWrite($hsave&".txt",GUICtrlRead($Edit1))
MsgBox(64,"Saved","Document was saved",5)

ผมแก้เป็น

FileWrite($hsave,GUICtrlRead($Edit1))
MsgBox(64,"Saved","Document was saved",5)

เอา .txt ออก เพราะมัน save เป็น .txt.txt ซ้ำๆ กันไปเรื่อย

แต่ก็ยังไม่ตรงตามที่ต้องการ เพราะ
1. ทุกครั้งที่แก้ไข มันจะบันทึกต่อท้าย ต้องการให้มันแทนที่ครับ
2. เวลาคลิก save ต้องการให้บันทึกซ้ำไฟล์เดิมเลยครับไม่ต้องการให้เลือกไฟล์ save แต่ แจ้งเตือนก่อนทำการ save ด้วยก็ดี

ขอบคุณครับ

Code:


#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 615, 437, 192, 124)
$Button1 = GUICtrlCreateButton("Read", 448, 24, 97, 33)
$Button2 = GUICtrlCreateButton("Delete", 448, 80, 97, 33)
$Button3 = GUICtrlCreateButton("Save", 448, 140, 97, 33)
$Edit1 = GUICtrlCreateEdit("", 40, 24, 177, 289)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

$file = FileOpen("test.txt", 9)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
case $Button1
   FileClose($file)
GUICtrlSetData($Edit1, readContents() )
Case $GUI_EVENT_CLOSE
   FileClose($file)
Exit
case $Button2
 GUICtrlSetData($Edit1," ")
Case $Button3
            FileClose($file)
           MsgBox(64,"Status","Document was "& saveContents(GUICtrlRead($Edit1)),5)
   EndSwitch

WEnd

Func saveContents($text)
$file = FileOpen("test.txt", 2)
If $file = -1 Then
 Return "File Not Save"
Else
 FileWrite ("test.txt",$text)
FileClose($file)
 Return "File Save"
 EndIf
EndFunc

Func readContents()
$file = FileOpen("test.txt", 0)
    $text = FileRead($file)
    If @error = -1 Then
 Return "Error : Error : Cannot read file"
     EndIf
FileClose($file)

Return $text
 EndFunc


flapjack พิมพ์ว่า:

MaxiMus พิมพ์ว่า:

tomakung พิมพ์ว่า:#include
#include
#include
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 615, 437, 192, 124)
$Button1 = GUICtrlCreateButton("Button1", 448, 24, 97, 33)
$Button2 = GUICtrlCreateButton("Delete", 448, 80, 97, 33)
$Button3 = GUICtrlCreateButton("Save", 448, 140, 97, 33)
$Edit1 = GUICtrlCreateEdit("", 40, 24, 177, 289)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
case $Button1
$file = FileOpen("test.txt", 0)
           $show= FileRead($file)
GUICtrlSetData(-1, $show)
           FileClose($file)
Case $GUI_EVENT_CLOSE
Exit
case $Button2
$Edit1=GUICtrlSetData(-1, "")
Case $Button3
           $hsave=FileSaveDialog("Choose...",@ScriptDir,"Text Files (*.txt)")
           If $hsave="" Then
           cancel()
           else
           FileWrite($hsave&".txt",GUICtrlRead($Edit1))
           MsgBox(64,"Saved","Document was saved",5)

EndIf
   EndSwitch

WEnd

Func cancel()
   MsgBox(64,"Cancelled","Cancelled")

   EndFunc

ขอบคุณท่าน tomakung เกือบได้แล้วครับแต่ติดนิดหน่อย

FileWrite($hsave&".txt",GUICtrlRead($Edit1))
MsgBox(64,"Saved","Document was saved",5)

ผมแก้เป็น

FileWrite($hsave,GUICtrlRead($Edit1))
MsgBox(64,"Saved","Document was saved",5)

เอา .txt ออก เพราะมัน save เป็น .txt.txt ซ้ำๆ กันไปเรื่อย

แต่ก็ยังไม่ตรงตามที่ต้องการ เพราะ
1. ทุกครั้งที่แก้ไข มันจะบันทึกต่อท้าย ต้องการให้มันแทนที่ครับ
2. เวลาคลิก save ต้องการให้บันทึกซ้ำไฟล์เดิมเลยครับไม่ต้องการให้เลือกไฟล์ save แต่ แจ้งเตือนก่อนทำการ save ด้วยก็ดี

ขอบคุณครับ

ประมาณนี้เปล่าครับ (โค๊ดจาก คุณ tomakung)

Code:


#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 615, 437, 192, 124)
$Button1 = GUICtrlCreateButton("Read", 448, 24, 97, 33)
$Button2 = GUICtrlCreateButton("Delete", 448, 80, 97, 33)
$Button3 = GUICtrlCreateButton("Save", 448, 140, 97, 33)
$Edit1 = GUICtrlCreateEdit("", 40, 24, 177, 289)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

$file = FileOpen("test.txt", 9)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
case $Button1
   FileClose($file)
GUICtrlSetData($Edit1, readContents() )
Case $GUI_EVENT_CLOSE
   FileClose($file)
Exit
case $Button2
 GUICtrlSetData($Edit1," ")
Case $Button3
            FileClose($file)
           MsgBox(64,"Status","Document was "& saveContents(GUICtrlRead($Edit1)),5)
   EndSwitch

WEnd

Func saveContents($text)
$file = FileOpen("test.txt", 2)
If $file = -1 Then
 Return "File Not Save"
Else
 FileWrite ("test.txt",$text)
FileClose($file)
 Return "File Save"
 EndIf
EndFunc

Func readContents()
$file = FileOpen("test.txt", 0)
    $text = FileRead($file)
    If @error = -1 Then
 Return "Error : Error : Cannot read file"
     EndIf
FileClose($file)

Return $text
 EndFunc


MaxiMus พิมพ์ว่า:แต่สอบเพิ่มเติมหน่อยครับ

$file = FileOpen("test.txt", 9)

 0 = Read mode (default)
 1 = Write mode (append to end of file)
 2 = Write mode (erase previous contents)
 8 = Create directory structure if it doesn't exist (See Remarks).
 16 = Force binary mode (See Remarks).
 ......

เลข 9 มัน ให้ทำอะไรครับ ท่าน

flapjack พิมพ์ว่า:

MaxiMus พิมพ์ว่า:แต่สอบเพิ่มเติมหน่อยครับ

$file = FileOpen("test.txt", 9)

 0 = Read mode (default)
 1 = Write mode (append to end of file)
 2 = Write mode (erase previous contents)
 8 = Create directory structure if it doesn't exist (See Remarks).
 16 = Force binary mode (See Remarks).
 ......

เลข 9 มัน ให้ทำอะไรครับ ท่าน

เกิดจาก mode ของเลข 8 กับ เลข 1 มา + กันครับ
มีความว่า ถ้าไฟล์ไม่มีให้สร้างไฟล์และเริ่มการเขียนแบบเนื้อหาสุดท้ายของไฟล์นั้น(เนื้อหาของไฟล์ จะเพิ่มต่อจากเนื้อหาที่มีอยู่)