Jump to content
Sign in to follow this  
Rahul Rohela

Read Line Of GUI Edit containing special word..

Recommended Posts

Rahul Rohela

Hi,

I am trying to read GUIEdit control & want to display only line that contain Secial word for example error.

If i save GUIEdit input to text file then its possible but directly from EDIT its not happening.

Please help on it. Script attached

#include <GUIConstants.au3>
#Include <GuiEdit.au3>
GUICreate("My GUI edit") ; will create a dialog box that when displayed is centered

$myedit=GUICtrlCreateEdit ("First line"& @CRLF, -1,-1,400,350,$ES_AUTOVSCROLL+$WS_VSCROLL)

GUISetState ()

; will be append dont' forget 3rd parameter
GUICtrlSetData ($myedit, "error One line"& @CRLF,1)
GUICtrlSetData ($myedit, "Second line"& @CRLF,1)
GUICtrlSetData ($myedit, "error two line"& @CRLF,1)
GUICtrlSetData ($myedit, " Second line"& @CRLF,1)
GUICtrlSetData ($myedit, " Second line"& @CRLF,1)
GUICtrlSetData ($myedit, " Second line"& @CRLF,1)
GUICtrlSetData ($myedit, "error three line"& @CRLF,1)
GUICtrlSetData ($myedit, " Second line"& @CRLF,1)


; Run the GUI until the dialog is closed
While 1
    $msg = GUIGetMsg()
    
    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
Wend

;$FileRead = GUICtrlRead($myedit)

$Count_Live = _GUICtrlEditGetLineCount($myedit)
msgbox(0,"count",$Count_Live)
    $i1 = 1
    Do
        $FileRead = GUICtrlRead($myedit)
    $tmp = StringInStr($FileRead,"Error")
        If $tmp = 0 then
            $i1 = $i1 + 1
    
        Else
        
    
    
        MSGBOX(0,"line",$FileRead)
    
         $i1 = $i1 + 1
        EndIf
    Until $i1 = $Count_Live +1

Share this post


Link to post
Share on other sites
Thatsgreat2345

u want to read it to a text file or something

#include <GUIConstants.au3>
#Include <GuiEdit.au3>
#include <File.au3>
GUICreate("My GUI edit") ; will create a dialog box that when displayed is centered

$myedit=GUICtrlCreateEdit ("First line"& @CRLF, -1,-1,400,350,$ES_AUTOVSCROLL+$WS_VSCROLL)

GUISetState ()

; will be append dont' forget 3rd parameter
GUICtrlSetData ($myedit, "error One line"& @CRLF,1)
GUICtrlSetData ($myedit, "Second line"& @CRLF,1)
GUICtrlSetData ($myedit, "error two line"& @CRLF,1)
GUICtrlSetData ($myedit, " Second line"& @CRLF,1)
GUICtrlSetData ($myedit, " Second line"& @CRLF,1)
GUICtrlSetData ($myedit, " Second line"& @CRLF,1)
GUICtrlSetData ($myedit, "error three line"& @CRLF,1)
GUICtrlSetData ($myedit, " Second line"& @CRLF,1)


; Run the GUI until the dialog is closed
While 1
    $msg = GUIGetMsg()
    
    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
Wend
_FileCreate("test.txt")
$file = "test.txt"
FileWrite($file,GUICtrlRead($myedit))
For $i = 1 to _FileCountLines($file)
    MsgBox(0,"Lines",FileReadLine($file,$i))
Next
Exit

Share this post


Link to post
Share on other sites
Rahul Rohela

u want to read it to a text file or something

#include <GUIConstants.au3>
#Include <GuiEdit.au3>
#include <File.au3>
GUICreate("My GUI edit") ; will create a dialog box that when displayed is centered

$myedit=GUICtrlCreateEdit ("First line"& @CRLF, -1,-1,400,350,$ES_AUTOVSCROLL+$WS_VSCROLL)

GUISetState ()

; will be append dont' forget 3rd parameter
GUICtrlSetData ($myedit, "error One line"& @CRLF,1)
GUICtrlSetData ($myedit, "Second line"& @CRLF,1)
GUICtrlSetData ($myedit, "error two line"& @CRLF,1)
GUICtrlSetData ($myedit, " Second line"& @CRLF,1)
GUICtrlSetData ($myedit, " Second line"& @CRLF,1)
GUICtrlSetData ($myedit, " Second line"& @CRLF,1)
GUICtrlSetData ($myedit, "error three line"& @CRLF,1)
GUICtrlSetData ($myedit, " Second line"& @CRLF,1)
; Run the GUI until the dialog is closed
While 1
    $msg = GUIGetMsg()
    
    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
Wend
_FileCreate("test.txt")
$file = "test.txt"
FileWrite($file,GUICtrlRead($myedit))
For $i = 1 to _FileCountLines($file)
    MsgBox(0,"Lines",FileReadLine($file,$i))
Next
Exit
I dont want to read all lines form edit controll to text file.. i want it should write linses those have some special word like Error in example..

if it works this will write only lines

error One line

error two line

error three line

Share this post


Link to post
Share on other sites
Rahul Rohela

NO Suggestions......

Share this post


Link to post
Share on other sites
Xenobiologist

Hi,

there are of course better ways, but is that what you wanted?

Hit a while GUI is open to check the func's output.

#include <GUIConstants.au3>
#Include <GuiEdit.au3>
#include<Array.au3>
HotKeySet("a", "a")
GUICreate("My GUI edit"); will create a dialog box that when displayed is centered

$myedit = GUICtrlCreateEdit("First line" & @CRLF, -1, -1, 400, 350, $ES_AUTOVSCROLL + $WS_VSCROLL)

GUISetState()

; will be append dont' forget 3rd parameter
GUICtrlSetData($myedit, "error One line" & @CRLF, 1)
GUICtrlSetData($myedit, "Second line" & @CRLF, 1)
GUICtrlSetData($myedit, "error two line" & @CRLF, 1)
GUICtrlSetData($myedit, " Second line" & @CRLF, 1)
GUICtrlSetData($myedit, " Second line" & @CRLF, 1)
GUICtrlSetData($myedit, " Second line" & @CRLF, 1)
GUICtrlSetData($myedit, "error three line" & @CRLF, 1)
GUICtrlSetData($myedit, " Second line" & @CRLF, 1)


; Run the GUI until the dialog is closed
While 1
    $msg = GUIGetMsg()
    
    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
WEnd

Func a()
    $a = StringSplit(GUICtrlRead($myedit), Chr(13))
    Global $b[1]
    $y = 1
    For $i = 1 To UBound($a) - 1
        If StringInStr($a[$i], "error") <> 0 Then
            _ArrayAdd($b, $a[$i])
            $b[$y] = $a[$i]
            $y += 1
            ConsoleWrite($a[$i])
        EndIf
    Next
    _ArrayDisplay($b, "Error lines")
EndFunc  ;==>a

So long,

Mega


Scripts & functions Organize Includes Let Scite organize the include files

Yahtzee The game "Yahtzee" (Kniffel, DiceLion)

LoginWrapper Secure scripts by adding a query (authentication)

_RunOnlyOnThis UDF Make sure that a script can only be executed on ... (Windows / HD / ...)

Internet-Café Server/Client Application Open CD, Start Browser, Lock remote client, etc.

MultipleFuncsWithOneHotkey Start different funcs by hitting one hotkey different times

Share this post


Link to post
Share on other sites
Rahul Rohela

Thx Function is working fine... But i am trying to add this output to at end of edit box... is it possible if yes then how???

Share this post


Link to post
Share on other sites
Xenobiologist

HI,

something like this?

#include <GUIConstants.au3>
#Include <GuiEdit.au3>
#include<Array.au3>
HotKeySet("a", "a")
GUICreate("My GUI edit"); will create a dialog box that when displayed is centered

$myedit = GUICtrlCreateEdit("First line" & @CRLF, -1, -1, 400, 350, $ES_AUTOVSCROLL + $WS_VSCROLL)

GUISetState()

; will be append dont' forget 3rd parameter
GUICtrlSetData($myedit, "error One line" & @CRLF, 1)
GUICtrlSetData($myedit, "Second line" & @CRLF, 1)
GUICtrlSetData($myedit, "error two line" & @CRLF, 1)
GUICtrlSetData($myedit, " Second line" & @CRLF, 1)
GUICtrlSetData($myedit, " Second line" & @CRLF, 1)
GUICtrlSetData($myedit, " Second line" & @CRLF, 1)
GUICtrlSetData($myedit, "error three line" & @CRLF, 1)
GUICtrlSetData($myedit, " Second line" & @CRLF, 1)


; Run the GUI until the dialog is closed
While 1
    $msg = GUIGetMsg()
    
    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
WEnd

Func a()
    $a = StringSplit(GUICtrlRead($myedit), Chr(13))
    Global $b[1]
    $y = 1
    For $i = 1 To UBound($a) - 1
        If StringInStr($a[$i], "error") <> 0 Then
            _ArrayAdd($b, $a[$i])
            $b[$y] = $a[$i]
            $y += 1
            ConsoleWrite($a[$i])
            GUICtrlSetData($myedit, GUICtrlRead($myedit) & $a[$i] & Chr(13))
        EndIf
    Next
    _ArrayDisplay($b, "Error lines")
EndFunc ;==>a

So long,

Mega


Scripts & functions Organize Includes Let Scite organize the include files

Yahtzee The game "Yahtzee" (Kniffel, DiceLion)

LoginWrapper Secure scripts by adding a query (authentication)

_RunOnlyOnThis UDF Make sure that a script can only be executed on ... (Windows / HD / ...)

Internet-Café Server/Client Application Open CD, Start Browser, Lock remote client, etc.

MultipleFuncsWithOneHotkey Start different funcs by hitting one hotkey different times

Share this post


Link to post
Share on other sites
Rahul Rohela

Thx Its working....

Share this post


Link to post
Share on other sites
Xenobiologist

Thx Its working....

HI,

glad I could help. But the func isn't very well coded. :">

So long,

Mega


Scripts & functions Organize Includes Let Scite organize the include files

Yahtzee The game "Yahtzee" (Kniffel, DiceLion)

LoginWrapper Secure scripts by adding a query (authentication)

_RunOnlyOnThis UDF Make sure that a script can only be executed on ... (Windows / HD / ...)

Internet-Café Server/Client Application Open CD, Start Browser, Lock remote client, etc.

MultipleFuncsWithOneHotkey Start different funcs by hitting one hotkey different times

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.