Hi ich will in eine EDit oder List Box in einem Programm (meins) XD) etwas in eine bestimmte zeile reinschreiben lassen so wie be de befehl
Für FilesQuote:
_FileWriteToLine
An bestimmte stellen in Edit box senden
09/15/2010 13:50
[SIZE="7"]FusselMa[/SIZE]#1
09/15/2010 14:16
lolkop#2
denn arbeite doch einfach genau wie der befehl...
lies den aktuellen inhalt des edits aus, trenne das ganze nach @LF mit stringsplit, und ersetze bzw füge an die gewünschte stelle deinen text an...
lies den aktuellen inhalt des edits aus, trenne das ganze nach @LF mit stringsplit, und ersetze bzw füge an die gewünschte stelle deinen text an...
09/15/2010 15:26
♠As♠#3
Nein er will ja nichts ersetzen er will an eine Bestimmte stelle NOCH etwas einsetzen
09/15/2010 16:19
kknb#4
einfach per ControlSend an das entsprechende feld senden.
09/15/2010 16:35
lolkop#5
deswegen sagte ich ja auch entweder die stelle ersetzen, oder etwas anhängen...Quote:
Nein er will ja nichts ersetzen er will an eine Bestimmte stelle NOCH etwas einsetzen
Edit:
hier mal kleines beispiel:
Code:
;Gui mit edit mit ein par zeilen text
$gui = GUICreate("blah")
$edit = GUICtrlCreateEdit("blah"&@CRLF&"bleh"&@CRLF&"blah"&@CRLF&"bleh"&@CRLF&"blah"&@CRLF&"bleh", 0, 0, 200, 200)
GUISetState()
;Edit inhalt einlesen
$inhalt = GUICtrlRead($edit)
;Aufsplitten in einzelne zeilen
$split = StringSplit($inhalt, @LF)
;zusatz an 3te zeile anhängen
$zusatz = "ich bin ein zusatz"
$split[3] &= $zusatz ; hier könnte man natürlich auch durch weglassen vom und die zeile komplett ersetzen
;alles wieder zusammensetzn
Dim $neu=""
For $i=1 To $split[0]
$neu &= $split[$i]&@LF
Next
;letztes überflüssiges enter entfernen
$neu = StringTrimRight($neu, 1)
;neuen text ins edit schreiben
GUICtrlSetData($edit, $neu)
Do
Until GUIGetMsg()=-3