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

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

学习一下。。

		自动登录	找回密码
密码			加入

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

相关帖子

本帖子中包含更多资源

评分