Pomoc tekst wyświetlany w Edit1

[PcDeviL]

Witajcie, piszę swój 2 program w autoit i napotkałem problem a mianowicie. Program działa tak klikam w menu Plik > Wczytaj i wyszukuję pliku np. imiona.txt Później wpisuję w input1 słowo np. nazwisko i klikam generuj wtedy słowa powinny się pojawić w edit1 takie jak Nazwisko maciek, nazwisko jarek itp [oczywiście w imiona.txt są te imiona]. Gdy robiłem to w wersji Global $x[3] $x[0]="maciek" itp to działało ładnie lecz jak dodałem już wczytywanie pliku to po kliknięciu button1 nie wyświetla mi tych słów w edit1.

 

Case $MenuItem4
$plik = FileOpenDialog("Wybierz plik...", @WindowsDir & "", "Tekst (*.txt)|", 1)

 

a button1 wygląda tak:

 

Case $Button1
  GUICtrlSetData($Edit1,"")
$read=GUICtrlRead($input1)
For $y=0 to UBound($plik)-1
GUICtrlSetData($Edit1,$read&" "&$plik[$y]&" ","|")

 

Co mam zrobić bo próbowałem

_FileReadToArray

Lecz albo źle to osadzam albo nie wiem bo i tak nie działa.

[Gość]

Case $Button1
GUICtrlSetData($Edit1,"")
$read=GUICtrlRead($input1)
For $y=0 to UBound($plik)-1
GUICtrlSetData($Edit1,$read&" "&$plik[$y]&" ","|")

Dobra. Spróbuj zmienić edit na input($Wynik).

Case $Button1
$read=GUICtrlRead($input1)
GUICtrlSetState($Wynik,$GUI_DISABLE)
GUICtrlSetData($Wynik,"")
For $y=0 to UBound($plik)-1
GUICtrlSetData($Wynik,$read&" "&$plik[$y]&" ","|")

 

Jak nie będzie działać to podaj po prostu cały kod programu a nie fragmenty.

[jackraymund]

$proxyfile = "Proxy.txt"
$count = _FileCountLines($proxyfile)
$tablica[$count][3]
For $i = 1 To $count
$proxy = FileReadLine($proxyfile, $i)
$ahas = _stringbetween($proxy," "," ")
if not ubound($ahas) < 3 then $tablica[$i-1] = $ahas

Next

nic nie podales wiec wiecej ci nie zrobie, bo nie wiem jak wyglada plik, ale użyj do tego stringbetween

a jak nie możesz to użyj listview z sw_hide i po sprawie ;D

[PcDeviL]

TrollMasterPRO Zrobiłem tak jak napisałeś to po kliknięciu button1 $wynik robi się distabled lecz nic w niej nie pisze

#Region Zmienne
Local $odczytanie
Local $plik
#endregion
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <file.au3>
#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("Skrypt", 405, 296, 194, 130)
$MenuItem1 = GUICtrlCreateMenu("Plik")
$MenuItem4 = GUICtrlCreateMenuItem("Wczytaj", $MenuItem1)
$MenuItem5 = GUICtrlCreateMenuItem("Zakończ", $MenuItem1)
$MenuItem2 = GUICtrlCreateMenu("Pomoc")
$MenuItem6 = GUICtrlCreateMenuItem("O programie", $MenuItem2)
$MenuItem7 = GUICtrlCreateMenuItem("Help", $MenuItem2)
$MenuItem3 = GUICtrlCreateMenu("Update")
GUISetBkColor(0xFFFBF0)
$Wynik = GUICtrlCreateEdit("", 224, 24, 161, 201, $WS_VSCROLL)
GUICtrlSetData(-1, "")
$Group1 = GUICtrlCreateGroup("Menu", 16, 16, 177, 121)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Input1 = GUICtrlCreateInput("Słowo kluczowe", 32, 40, 145, 21)
$Button1 = GUICtrlCreateButton("Generuj", 56, 80, 97, 33, $WS_GROUP)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label1 = GUICtrlCreateLabel("2012", 16, 192, 196, 26)
GUICtrlSetFont(-1, 11, 800, 0, "Nightclub BTN")
GUICtrlSetColor(-1, 0x0000FF)
GUISetState(@SW_SHOW,$Form2)
$o_programie = GUICreate("O programie", 272, 140, 302, 218)
GUISetBkColor(0xFFFBF0)
$Label2 = GUICtrlCreateLabel("Program stworzony przez PcDevil", 48, 48, 167, 17)
$Label3 = GUICtrlCreateLabel("musze cos wykminic", 72, 72, 118, 17)
$Label4 = GUICtrlCreateLabel("Cos tam wymysle", 24, 16, 233, 17)
$Button2 = GUICtrlCreateButton("Wróć", 96, 104, 81, 25, $WS_GROUP)
GUISetState(@SW_HIDE,$o_programie)
$help = GUICreate("Help", 211, 230, 302, 218)
GUISetBkColor(0xFFFBF0)
$Label5 = GUICtrlCreateLabel("1. Plik > Wczytaj", 64, 16, 83, 17)
$Label6 = GUICtrlCreateLabel("2. Znajdź plik [.txt]", 48, 48, 132, 17)
$Label7 = GUICtrlCreateLabel("3. Wczytaj plik", 72, 80, 73, 17)
$Label8 = GUICtrlCreateLabel("4. Wpisz słowo kluczowe", 48, 112, 125, 17)
$Label9 = GUICtrlCreateLabel("5. Kliknij Generuj", 72, 144, 83, 17)
$Button3 = GUICtrlCreateButton("Ok", 72, 184, 81, 33, $WS_GROUP)
GUISetState(@SW_HIDE, $help)

#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
 Case $GUI_EVENT_CLOSE
  Exit
 Case $Button1
$read=GUICtrlRead($input1)
GUICtrlSetState($Wynik,$GUI_DISABLE)
GUICtrlSetData($Wynik,"")
For $y=0 to UBound($plik)-1
GUICtrlSetData($Wynik,$read&" "&$plik[$y]&" ","|")
Next
Case $MenuItem5
Exit()
Case $MenuItem6
GUISetState(@SW_SHOW, $o_programie)
Case $Button2
GUISetState(@SW_HIDE, $o_programie)
Case $MenuItem7
GUISetState(@SW_SHOW, $help)
Case $Button3
GUISetState(@SW_HIDE, $help)
Case $MenuItem4
$plik = FileOpenDialog("Wybierz plik...", @WindowsDir & "", "Tekst (*.txt)|", 1)
EndSwitch
WEnd

 

Macie kod.

[jackraymund]

For $y=0 to UBound($plik)-1
GUICtrlSetData($Wynik,$read&" "&$plik[$y]&" ","|")
Next
$plik = FileOpenDialog("Wybierz plik...", @WindowsDir & "", "Tekst (*.txt)|", 1)

ta pentla nie jest nawet wykonywana bo w for step jest automatycznie ustawiony na +1, a $plik nawet nie jest tablicą, więc dodając +1 do 0 nigdy nam się nie uda uzyskać -1

wrzuć chociaż jedną linijke z tego pliku

nie dokońca zrozumiałem, chcesz aby do tekstu wpisanego w input zostaly dodane stringi z pliku?

jeżeli tak to

 

$proxyfile = "Proxy.txt"
$count = _FileCountLines($proxyfile)
$qpa = guictrlread($input1)
For $i = 1 To $count
$proxy = FileReadLine($proxyfile, $i)
$data = $qpa&" "&$proxy&" " & @crlf
Next
GUICtrlSetData($Wynik,$data)

a jak chcesz dodać do edita linijke to powinieneś użyć tej funkcji _GUICtrlEdit_AppendText dodając na końcu @crlf, bo guictrlsetdata ustawia wartosc a nie dodaje

[PcDeviL]

Ok więc mam tak

Case $Button1
$proxyfile = $plik
$count = _FileCountLines($proxyfile)
$qpa = guictrlread($input1)
For $i = 1 To $count
$proxy = FileReadLine($proxyfile, $i)
_GUICtrlEdit_AppendText($Wynik,$qpa & " "&$proxy & @crlf)
Next

 

I działa lecz dopisuje mi tylko do pierwszego słowa frazę z input1 np. jak w pliku miałem jeden, dwa, trzy i wpisałem w input test to dopisało mi test jeden, dwa, trzy a jak zrobić aby dopisywało do każdego słowa?