Hi,
die spektakulärere Lösung wäre:
[autoit]#include <file.au3>
[/autoit][autoit][/autoit][autoit]$in = "input.txt"
$out = "output.txt"
$cnt = _FileCountLines($in)
[/autoit][autoit][/autoit][autoit]for $i = 1 to $cnt
if $i < $cnt then
FileWriteLine($out,FileReadLine($in,$i))
Elseif $i = $cnt Then
FileWriteLine($out,StringMid(FileReadLine($in,$cnt),1,StringLen(FileReadLine($in,$cnt))-1))
EndIf
Next
Gruß
x0r
2-dimensionales Array -> $Array[x][y]
[autoit]For $x = 0 To UBound($Array,1) - 1
For $y = 0 to UBound($Array,2) -1
GUICtrlSetData($input6,GUICtrlRead($input6) & $Array[$x][$y])
Next
Next
wo isn das problem?
-
es ist nur schade das einfach ein ein tutorial verwiesen wird und fertig in dem nichteinmal was zu meinem Thema steht.
warum, nur weil du zu faul bist das mal gescheit durch zu lesen??
€dit:
Beispiel auf der von chip genannten Seite:
Anwendungsbeispiele
Nehmen wir an, wir haben in einer GUI ein 4-spaltiges
ListView-Control ($listview), das wir mit Daten aus dem Array bestücken
wollen.
#Include <GuiListView.au3>
#include <Array.au3>For $i = 0 To UBound($array,1) -1 ; $i = Element 1 (Index=0) bis Zeilen (Index= Zeilen -1)
For $k = 0 To 3 ; $k Spalten-Index (im Array und im ListView-Control)
_GUICtrlListView_InsertItem ($listview, $k, $array[$i][$k])
Next
Next
Alle nötigen Variablen habe ich zurückgesetzt wie man doch sehen kann.
ach kann man das?
ich seh nur ca 30 zeilen code.. wer weiss, was du sonst so veran(/un)staltest 
Hi,
vermutlich musst du irgendwelche Variablen wieder zurücksetzen?
Gruß
x0r
habs mal getestet und natürlich ein bissl umgebaut..
;array 2d-test
[/autoit] [autoit][/autoit] [autoit]dim $aFELD[24][24]
[/autoit] [autoit][/autoit] [autoit]for $i = 1 to 23
for $z = 1 to 23
$aFELD[$i][$z] = "blubb"
Next
Next
For $x = 0 to 23 Step 1
For $y = 21 to 23 Step 1
IniWriteSection("test.ini","TEST",$aFELD[$x][$y])
If @error Then
Exit
EndIf
Next
Next
es funktioniert wirklich nur mit $aFELD[$x][$y]
und ausserdem hast du ein "Next" zu wenig im script (2x for, 1x next)
"IniWriteSection($iniMAIN,"TEST",$aFELD)" <- nimm doch statt der Variable einfach dein Array?
[autoit]$aFELD[$x][$y]
[/autoit]Hi,
probier mal, ob du mit "\AutoIt3\Au3Info.exe" die Controls auslesen kannst.
Wenn ja sollte es kein Problem darstellen 
€dit: Hah, da stehts ja auch -> http://wiki.win-lite.de/images/e/e4/AutoIt_2.png
Gruß
x0r
Hi,
wie wäre es mit:
$id = "id"
[/autoit] [autoit][/autoit] [autoit]Do
sleep(100)
Until WinExists("Bink Converter - Done!")
ControlClick("Bink Converter - Done!", "Done", $id, "left",1)
[/autoit]Die "id" kriegst du mit "Au3Info.exe".
Gruß
x0r
Hi,
hab ich auch so:
Dim $text = "Singapore , officially the Republic of Singapore, is a southeast Asian city-state off the southern tip of the Malay Peninsula, 137 kilometres (85 mi) north of the equator. An island country made up of 63 islands, it is separated from Malaysia by the Straits of Johor to its north and from Indonesia's Riau Islands by the Singapore Strait to its south. The country is highly urbanised with very little primary rainforest remaining, although more land is being created for development through land reclamation."
Dim $aArray = StringSplit($text," "), $cnt = 0
For $element In $aArray
if StringInStr($element,"s") Then $cnt += 1
Next
MsgBox(0,"S",$cnt)
[/autoit]Btw: kommt 26 raus? 
Gruß
x0r
just 4 fun:
Opt("sendkeydelay",0)
#include <date.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$DateGen = GUICreate("Datum Generator", 232, 134, 192, 114)
$ger = GUICtrlCreateRadio("Deutsches Format (DD.MM.YYYY)", 16, 48, 201, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
$us = GUICtrlCreateRadio("US Format (MM/DD/YYYY)", 16, 72, 209, 17)
$asia = GUICtrlCreateRadio("Asia Format (YYYY-MM-DD)", 16, 96, 201, 17)
$info = GUICtrlCreateLabel('Einfügen mit "Ctrl+Y":', 16, 16, 150, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
dim $date = _Now()
$date = StringSplit($date," ")
$date = StringSplit($date[1],".")
HotKeySet("^y","dates")
[/autoit] [autoit][/autoit] [autoit]While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Func dates()
$date = _Now()
$date = StringSplit($date," ")
$date = StringSplit($date[1],".")
if GUICtrlRead($ger) = $GUI_CHECKED Then $date = $date[1] & "." & $date[2] & "." & $date[3] ;DD.MM.YYYY - GER
if GUICtrlRead($us) = $GUI_CHECKED Then $date = $date[2] & "/" & $date[1] & "/" & $date[3] ;MM/DD/YYYY - US
if GUICtrlRead($asia) = $GUI_CHECKED Then $date = $date[3] & "-" & $date[2] & "-" & $date[1] ;YYYY-MM-DD - Asia
Send($date)
EndFunc
x0r
das hier:
[Blockierte Grafik: http://team.win-lite.de/testesser/HowTo-VB-Silent/VB2-Treiber-unsigniert.jpg]
ControlClick("Windows-Sicherheit", "Diese Treibersoftware trotzdem &installieren",2);warum 2 Klicks??
Der dritte Parameter gibt doch die "ID" an, der fünfte wären die Klicks?
Hi,
ich hätte da noch 3 Funktionen, die ich mir mal gebastelt hatte. Ob sinnvoll oder nicht, muss jeder selbst entscheiden 
;Spaltenbuchstabe durch -zahl ersetzen
;_ExcelColNum("A") = 1
Func _ExcelColNum($num)
if isint($num) Then
return $num
Else
$cnt = StringLen($num)
$plus = 0
$num = StringUpper($num)
if $cnt = 2 Then $plus = (asc(stringleft($num,1))-64) * 26
$str = asc(StringRight($num,1)) -64
$num = $str + $plus
EndIf
return $num
EndFunc
;Spalten verschieben
;Kombinierbar mit oberer Funktion: _ExcelColMove($ofile,_ExcelColNum("A"),_ExcelColNum("B"))
Func _ExcelColMove($oExcel, $from, $to)
$ary = _ExcelReadSheetToArray($oExcel,1,$from,0,1)
_ExcelColumnDelete($oExcel,$from)
_ExcelColumnInsert($oExcel,$to)
for $i = 1 to ubound($ary)-1
_ExcelWriteCell($oExcel,$ary[$i][1],$i,$to)
Next
$ary = ""
EndFunc
;Textdatei in Excel schreiben
func _txt2xls($src,$dest)
local $var = $src
local $ary
$ofile = _ExcelBookOpen($dest,0)
$ary = StringSplit($var,@LF)
for $i = 1 to $ary[0]
if StringInStr($ary[$i],chr(9)) Then
$str = StringSplit($ary[$i],chr(9))
for $z = 1 to $str[0]
_ExcelWriteCell($ofile,$str[$z],$i,$z)
Next
Else
_ExcelWriteCell($ofile,$ary[$i],$i)
EndIf
Next
_ExcelBookSave($ofile)
_ExcelBookClose($ofile)
EndFunc
Gruß
x0r
"gamebanana.com" (früher cssbanana.com) ist ne super seite für maps, mods, models, texturen, etc etc...
ich spiel seit ca 1.3 - neugier war der einstieg, ging dann soweit, dass es (public) keine gegner mehr gab, hab dann aufgehört und mit anderen games weitergemacht
die zeiten sind aber leider vorbei, heutzutage sind die 12-jährigen kids besser
Hi,
ich kenne CS seit 1.0 und bin mir ziemlich sicher, dass ich das neueste (CS:GO) meine
Hier mal die Map (die es halt schon gibt!):
http://gamebanana.com/csgo/maps/165676
Gruß
x0r
Hi,
zu CS Zeiten damals fand ich "de_cbble" (Cobblestone) genial, allerdings scheints die wohl schon zu geben. Ansonsten diese ganzen BK und MC-D-Maps
Du könntest mal versuchen, ob du "Call of Duty"-Maps gebaut kriegst, ist sicher sehr interessant
Gruß
x0r
Hi,
wenns MySQL ist, finde ich folgendes ziemlich gut:
http://www.codebot.de/board77-autoit…t-mysql-server/
Hoffe das hilft dir weiter
Gruß
x0r
Ist hierbei vielleicht mit der Formatierung noch was besonders zu beachten ?
Bei Excel-Spalten musst du drauf achten, dass du am Ende jeder Zelle noch einen Zeilenumbruch mit drin hast:
send("^c")
$variable = ClipGet()
$variable = StringRegExpReplace($variable,@crlf,'')
Müsste so passen und ansonsten fällt mir nix ein
Gruß
x0r
Hi,
wie wärs mit
[autoit]send("^c")
[/autoit]^ = Strg
Gruß
x0r
...und nochwas, für die Stellen, die man NICHT löschen möchte:
#include <string.au3>
[/autoit] [autoit][/autoit] [autoit]dim $del
dim $file = "test.txt"
$del = _StringBetween(FileRead($file),"†","‡")
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]for $i = 0 to UBound($del)-1
FileWrite("test2.txt",$del[$i])
Next
FileDelete("test.txt")
FileCopy("test2.txt","test.txt")
FileDelete("test2.txt")
Txt-File vorher:
†
abs1
1 jkasdfklj sdkf
2 asdkfasldfkasdlfk safasdf
3 sfjakfjdsalkf
abs1 ende
‡
asfdasfasdfsd
f as
fasd
f as
dfasfasf
wef243
ff
4f
34f
†
abs2
4 jkasdfklj sdkf
5 asdkfasldfkasdlfk safasdf
6 sfjakfjdsalkf
abs2 ende
‡
asfdasfasdfsd
f as
fasd
f as
dfasfasf
wef243
ff
4f
34f
†
abs3
7 jkasdfklj sdkf
8 asdkfasldfkasdlfk safasdf
9 sfjakfjdsalkf
abs3 ende
‡
asfdasfasdfsd
f as
fasd
f as
dfasfasf
wef243
ff
4f
34f
Txt-File nachher:
abs1
1 jkasdfklj sdkf
2 asdkfasldfkasdlfk safasdf
3 sfjakfjdsalkf
abs1 ende
abs2
4 jkasdfklj sdkf
5 asdkfasldfkasdlfk safasdf
6 sfjakfjdsalkf
abs2 ende
abs3
7 jkasdfklj sdkf
8 asdkfasldfkasdlfk safasdf
9 sfjakfjdsalkf
abs3 ende
