maitian28 发表于 2010-4-16 16:26:54

关于一个读取文本指定内容到剪贴板的功能，且能实现即时修改

说明：读取.ini文件(其实，只要是文本就行)内容，以行为复制目标。每行都有独自相对应的复制按钮，点击后复制内容，等待Ctrl+V的操作。界面中有数行文本框，每个文本框对应.ini文件相对行。对文本框作出修改后，即时修改.ini内容。
例子：
1.xxxxxxxxxxx
2.sssssssssss
3.yyyyyyyyyyy
4.zzzzzzzzzzz
大大们能发个源码吗？新手需要经常看源码滴....

nmgwddj 发表于 2010-4-16 16:37:49

你是想做个GUI显示文本内容？？

maitian28 发表于 2010-4-16 16:39:16

GUI可以修改和复制指定行的文本内容

lanfengc 发表于 2010-4-16 21:26:50

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Opt("GUIOnEventMode", 1)
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("编辑框改变自动存盘", 350, 60, 192, 124)
GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close")
$input = GUICtrlCreateInput("", 16, 16, 233, 21)
GUICtrlSetOnEvent(-1, "inputChange")
$Bt = GUICtrlCreateButton("Bt", 264, 16, 57, 25)
GUICtrlSetOnEvent(-1, "BtClick")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
        Sleep(100)
WEnd

Func BtClick()   ;该按钮可读取保存过的文本文件中的数据并将其显示到编辑框
        Local $text=""
        $text=FileRead("data.txt")
        GUICtrlSetData($input,$text)

EndFunc
Func Form1Close();关闭按钮，退出。
Exit
EndFunc
Func inputChange();编辑框改变，自动存盘。
        Local $edit=""
        $edit=GUICtrlRead($input)
        If FileExists("data.txt") Then FileDelete("data.txt");如果存盘文件已存在，则删除。
        FileWrite("data.txt",$edit)
EndFunc

menfan 发表于 2010-4-17 11:08:19

呵呵，学习一下。。

lin0308 发表于 2010-4-17 12:05:58

学习了....

maitian28 发表于 2010-4-19 13:00:04

多谢。我学习下

lxz 发表于 2010-4-19 13:16:35

学习一下。。
页: [1]
查看完整版本: 关于一个读取文本指定内容到剪贴板的功能，且能实现即时修改