*push*
gibt es wirklich keine Möglichkeit, zeilen in einer Listview zu überlagern?
Na du bist ja ein Scherzkeks! Erst stellst du eine html-basierte Frage in einem AutoIt-Forum und pushst dann weil keiner mit deiner Frage was anfangen kann. :wacko:
Was verstehst du denn unter zeilen in einer Listview zu überlagern ? Wäre hilfreich, wenn du dein Problem nachvollziehbar erklärst. Wir haben inzwischen schon Tuts zur richtigen Fragestellung. Vielleicht liest du das mal zuerst.
Was müsste geändert werden, wenn ich am Zeilenanfang kein Leerzeichen haben möchte?
Bei mir erscheinen keine Leerzeichen am Zeilenanfang. :wacko:
Das ist meine Konsolenausgabe:
N5 M6 T1 (BOHRER D10)
N10 G0 G54 X10 Y30 S500 M3
N15 G0 Z30
N20 G81 R2 Z-15 F500
N20 G0 G80 Z300Hier noch die Variante für RegExp, damit es nicht zu haarsträubend wird, habe ich den Klammerausdruck zwischengesichert und nach Leerzeicheneinfügen wieder eingesetzt.
Ich gehe mal davon aus, dass immer nur ein Klammerausdruck enthalten ist, anderenfalls müßte man das noch abändern.
Local $s = _
"N5M6T1(BOHRER D10)" & @CRLF & _
"N10G0G54X10Y30S500M3" & @CRLF & _
"N15G0Z30" & @CRLF & _
"N20G81R2Z-15F500" & @CRLF & _
"N20G0G80Z300"
$sBraces = StringRegExp($s, '\(.+\)', 1)
$sOut = StringRegExpReplace(StringRegExpReplace(StringRegExpReplace($s, '\(.+\)', '(1)'), '([A-MO-Z(])', ' $1'), '\(1\)', $sBraces[0])
ConsoleWrite($sOut & @CRLF)
Wenn du möchtest kannst du es auch ohne RegExp lösen (auch wenn es länger ist)
Local $s = _
"N5M6T1(BOHRER D10)" & @CRLF & _
"N10G0G54X10Y30S500M3" & @CRLF & _
"N15G0Z30" & @CRLF & _
"N20G81R2Z-15F500" & @CRLF & _
"N20G0G80Z300"
Local $a1 = StringSplit($s, @CRLF, 1)
Local $aOut[$a1[0]], $tmp = '', $fBraces = False
For $i = 1 To $a1[0]
$a2 = StringSplit($a1[$i], '')
For $j = 1 To $a2[0]
Select
Case $a2[$j] = '('
$fBraces = True
$tmp &= ' ('
Case $a2[$j] = ')'
$fBraces = False
$tmp &= ')'
Case $fBraces Or $a2[$j] = 'N' Or IsNumber($a2[$j])
$tmp &= $a2[$j]
Case Not $fBraces And (Asc($a2[$j]) > 64 And Asc($a2[$j]) < 91)
$tmp &= ' ' & $a2[$j]
Case Else
$tmp &= $a2[$j]
EndSelect
Next
$aOut[$i-1] = $tmp
$tmp = ''
Next
_ArrayDisplay($aOut)
[/autoit]Der Weg über _FileListToArray() und anschließendes Einlesen der Arrayitem in ein Listview ist zwar problemlos machbar, ich würde aber trotzdem hier auf das ListBox-Control zurückgreifen, da es speziell auf das Bearbeiten von Dateiauflistungen orientiert ist. Schau dir mal die Funktionen dazu in der Hilfe an, speziell "_GUICtrlListBox_Dir". Als 2.ten Parameter kannst du dort z.B. "\Pfad\*.ini" übergeben.
StringBetween nutzt RegExp. Just my two cents.
Genau, es benutzt RegExp. Warum dann nicht RegExp direkt verwenden? 
Na das kann doch nicht gehen - das RegEx verlangt den puren unbearbeiteten Quelltext! Was meinst du, warum ich in meinem Bsp. die Variable $Quellcode verwendet habe? 
Oh man - Ihr seid Leichenschänder! 
Habt ihr mal auf den letzten Post geschaut?
Dienstag, 17. Juli 2007, 23:18
Komisch, der Vorschlag von euch beiden klappt bei mir nicht...
Getestet habe ich mit dem von dir geposteten Quellcode, alle Schauspieler werden dort herausgefiltert.
Wie gehts:
$arrayActor = StringRegExp($Quellcode, '(?:>)([\w\s]+)(?:</span></a>)', 3)
[/autoit]
(?:>) gesucht wird: >, das ?: gibt an, dass dieser Ausdruck nicht Bestandteil des Ergebnisses sein soll
([\w\s]+) es sollen Zeichen aus einer Zeichenklasse [ ] besetehend aus Ziffern/Buchstaben a-zA-Z/Unterstrich \w und Leerzeichen \s folgen (min. 1-mal, beliebig oft) ==> das gesuchte Ergebnis
(?:</span></a>) dem muß folgen (ohne Bestandteil des Ergebnisses zu sein): </span></a>
Es kann sein, dass du Namen in deinem (anderen) Quellcode hast, die noch andere, hier nicht berücksichtigte Zeichen enthalten, wie z.b. é o.ä. - da müßte dann die Zeichenklasse erweitert werden um diese auch zu berücksichtigen.
Fehler betrifft Zeile 26, dort wird 'Hostname:' abgefragt. Es kann nun sein, dass deine Hostnamen aus anderen als die in der Gruppe "\w" enthaltenen Zeichen bestehen.
Ich bin von deiner Vorlage ausgegangen.
Ändere mal die Zeile 25 zu
$ret = StringRegExp($a[$i], '(?:: )(.+)', 1)
[/autoit]Damit sollten auch die abenteuerlichsten Hostnamen erkannt werden.
Das schreit aber eher nach RegExp.
$arrayActor = StringRegExp($Quellcode, '(?:>)([\w\s]+)(?:</span></a>)', 3)
[/autoit]Wenn du nochmal die Fragestellung wegeditierst, gibts 'ne Verwarnung. 
Wie soll denn jemand jetzt noch nachvollziehen, worum es ging!
Aktuelle Version: "v 1.1" - Einzelheiten s. Post #1
Selbst die Fixes sind, wie sich zeigte, oft nicht zutreffend und erscheinen umgehend wieder bei den Tickets. :wacko:
Im Moment kann ich den Sinn dieser Betaflut nicht nachvollziehen. Der Inhalt ist da nicht adäquat.
Die Funktion _ExcelReadSheetToArray() macht wohl unter 64bit Probleme. Mir hatte sie in der Form noch nie gefallen und deshalb hatte ich eine eigene Variante erstellt. Diese habe ich jetzt mal noch komplettiert, sodass sie auch unter 64bit läuft und zusätzlich noch etwas komfortabler ist durch gezielte Auswahl eines Sheets (sonst aktuelles Sheet) und mit weniger Parametern derselbe Funktionsumfang gewährleistet wird.
Ich bevorzuge die Zelladressierung mit Offset, da dies ideal für Schleifen ist. Ist auch einfacher zu händeln, als für jede Zelle die absolute Adresse zusammenzustellen.
;===================================================================================================
; Function Name: _ExcelSheetToArray
; Description:: Liest ein Tabellenblatt in ein Array
; Parameter(s): $oExcel Referenz auf eine geöffnete Exceldatei
; $vSheet Nummer oder Name des Tabellenblattes (Standard: 1)
; $sRange Auszulesender Bereich: ":" A1 bis letzte belegte Zelle (Standard)
; "SZ:" SpalteZeile bis letzte belegte Zelle
; ":SZ" A1 bis SpalteZeile
; Requirement(s): __LetterToColNr()
; Return Value(s): Erfolg: 2D-Array mit Inhalt des Tabellenblattes
; Fehler: @error 1 - $oExcel ist kein Objekt
; 2 - übergebener Bereich größer als belegte Zeilen/Spalten
; Author(s): BugFix ([email='bugfix@autoit.de'][/email])
;===================================================================================================
Func _ExcelSheetToArray(ByRef $oExcel, $vSheet=1, $sRange=':')
; by BugFix
If Not IsObj($oExcel) Then Return SetError(1,0,0)
$oExcel.ActiveWorkbook.Sheets($vSheet).Select()
Local $iRowStart = 1, $vColStart = 1
Local $iRowEnd = $oExcel.Worksheets($vSheet).UsedRange.Rows.Count
Local $vColEnd = $oExcel.Worksheets($vSheet).UsedRange.Columns.Count
Local $ret, $sTmp = StringSplit($sRange, ':')
Select
Case $sTmp[1] <> '' And $sTmp[2] = ''
$ret = StringRegExp($sTmp[1], '([a-zA-Z]+)(\d+)', 3)
$vColStart = __LetterToColNr($ret[0])
$iRowStart = $ret[1]
Case $sTmp[1] <> '' And $sTmp[2] <> ''
$ret = StringRegExp($sTmp[1], '([a-zA-Z]+)(\d+)', 3)
$vColStart = __LetterToColNr($ret[0])
$iRowStart = $ret[1]
$ret = StringRegExp($sTmp[2], '([a-zA-Z]+)(\d+)', 3)
$vColEnd = __LetterToColNr($ret[0])
$iRowEnd = $ret[1]
Case $sTmp[1] = '' And $sTmp[2] <> ''
$ret = StringRegExp($sTmp[2], '([a-zA-Z]+)(\d+)', 3)
$vColEnd = __LetterToColNr($ret[0])
$iRowEnd = $ret[1]
EndSelect
If $iRowStart > $iRowEnd Or $vColStart > $vColEnd Then Return SetError(2,0,0)
Local $aOut[$iRowEnd-$iRowStart +1][$vColEnd-$vColStart +1]
For $i = 0 To UBound($aOut) -1
For $j = 0 To UBound($aOut,2) -1
$aOut[$i][$j] = $oExcel.Range("A1").Offset($i +$iRowStart -1, $j +$vColStart -1).Value
Next
Next
Return $aOut
EndFunc ;==>_ExcelSheetToArray
Func __LetterToColNr($sLetter) ; === Spaltenadresse zu Nummer
; by BugFix
If Not StringRegExp($sLetter, '[a-zA-Z]{1,2}') Then Return SetError(1,0,-1)
If StringLen($sLetter) = 1 Then Return Asc(StringUpper($sLetter)) -64
Return (Asc(StringUpper(StringLeft($sLetter, 1)))-64)*26 + (Asc(StringUpper(StringRight($sLetter, 1)))-64)
EndFunc
Da wäre die Definition eines Bereichs sehr sinnvoll.
OK, dadran soll es nicht scheitern. Ich werde die Funktion dahingehend erweitern.
Edit:
So, Funktion nun so erweitert, dass nur bestimmte Bereiche ausgelesen werden können:
; z.B.
; Auslesen "B3:D10": $array = _ExcelSheetToArray($oExcel, 1, 'B3:D10')
; Auslesen "A1 bis letzte belegte Zelle": $array = _ExcelSheetToArray($oExcel)
; Auslesen "C2 bis letzte belegte Zelle": $array = _ExcelSheetToArray($oExcel, 1, 'C2:')
Func _ExcelSheetToArray(ByRef $oExcel, $vSheet=1, $sRange='A1:') ; $sRange 'A1:' ==> A1 bis Ubound
; by BugFix
If Not IsObj($oExcel) Then Return SetError(1,0,0)
$oExcel.ActiveWorkbook.Sheets($vSheet).Select()
Local $iRowStart = 1, $vColStart = 1
Local $iRowEnd = $oExcel.Worksheets($vSheet).UsedRange.Rows.Count
Local $vColEnd = $oExcel.Worksheets($vSheet).UsedRange.Columns.Count
If $sRange <> 'A1:' Then
Local $ret, $sTmp = StringSplit($sRange, ':')
If $sTmp[2] <> '' Then
$ret = StringRegExp($sTmp[2], '([a-zA-Z]+)(\d+)', 3)
$vColEnd = __LetterToColNr($ret[0])
$iRowEnd = $ret[1]
EndIf
$ret = StringRegExp($sTmp[1], '([a-zA-Z]+)(\d+)', 3)
$vColStart = __LetterToColNr($ret[0])
$iRowStart = $ret[1]
EndIf
If $iRowStart > $iRowEnd Or $vColStart > $vColEnd Then Return SetError(2,0,0)
Local $aOut[$iRowEnd-$iRowStart +1][$vColEnd-$vColStart +1]
For $i = 0 To UBound($aOut) -1
For $j = 0 To UBound($aOut,2) -1
$aOut[$i][$j] = $oExcel.Range("A1").Offset($i +$iRowStart -1, $j +$vColStart -1).Value
Next
Next
Return $aOut
EndFunc
Func __LetterToColNr($sLetter) ; === Spaltenadresse zu Nummer
; by BugFix
If StringLen($sLetter) = 1 Then Return Asc(StringUpper($sLetter)) -64
Return (Asc(StringUpper(StringLeft($sLetter, 1)))-64)*26 + (Asc(StringUpper(StringRight($sLetter, 1)))-64)
EndFunc
Mir gefällt diese Funktion sowieso nicht und deshalb hatte ich mir eine geschrieben, die nicht absolut adressiert, sondern relativ zur ersten Zelle (A1) ausliest.
Teste mal, ob das läuft.
Func _ExcelSheetToArray(ByRef $oExcel, $vSheet=1, $iRowStart=1, $iColStart=1)
; by BugFix
If Not IsObj($oExcel) Then Return SetError(1,0,0)
$oExcel.ActiveWorkbook.Sheets($vSheet).Select()
Local $RowCount = $oExcel.Worksheets($vSheet).UsedRange.Rows.Count
Local $ColCount = $oExcel.Worksheets($vSheet).UsedRange.Columns.Count
If $iRowStart > $RowCount Or $iColStart > $ColCount Then Return SetError(2,0,0)
Local $aOut[$RowCount-($iRowStart-1)][$ColCount-($iColStart-1)]
For $i = 0 To UBound($aOut) -1
For $j = 0 To UBound($aOut,2) -1
$aOut[$i][$j] = $oExcel.Range("A1").Offset($i +($iRowStart-1), $j +($iColStart-1)).Value
Next
Next
Return $aOut
EndFunc
Ich habe Win7 Pro 32bit, da funktioniert ExcelBookClose.
Kannst du mir da bitte helfen, dass die Infos nicht überschrieben werden und in neue Zeilen geschrieben werden?
Na klar.
Zum Arbeiten in Schleifen gibt es die geniale Möglichkeit mit Offset zu arbeiten. Somit erspart man sich das mühselige Addressieren anhand Spalte/Zeile mit evtl. Umrechnen etc.
Mit Offset erreicht man eine relative Addressieung vom Startrange aus. Die Startrange selber wäre Offset(0,0). Es wird adressiert: Offset(+/- Zeilen, +/- Spalten).
So läufts:
#include <File.au3>
#include <Array.au3>
#include <Excel.au3>
Local $FileList = _FileListToArray("S:\Test\")
If @error Then Exit MsgBox(0, 'Fehler', 'Dateiliste konnte nicht gelesen werden!')
Local $a, $pathTXT, $oExcel = _ExcelBookOpen("S:\test.xls")
Local $lastLine = $oExcel.Worksheets(1).UsedRange.Rows.Count
If $lastLine = 1 And $oExcel.Range("A1").Value = '' Then $lastLine = 0 ; Tabelle noch leer
For $i = 1 To $FileList[0]
$pathTXT = "S:\Test\" & $FileList[$i]
_FileReadToArray($pathTXT, $a)
If @error Then ContinueLoop
EXCEL($a, $lastLine +$i)
Next
_ExcelBookSave($oExcel)
_ExcelBookClose($oExcel)
Exit
Func EXCEL(ByRef $a, $iLine)
For $i = 1 To $a[0]
Select
Case StringInStr($a[$i], 'Hostname:', 1)
$ret = StringRegExp($a[$i], '(?:: )(\w+)', 1)
$oExcel.Range("A1").Offset($iLine -1, 0).Value = $ret[0]
Case StringInStr($a[$i], 'Betriebssystemname:', 1)
$ret = StringRegExp($a[$i], '(?:: )([\w ]+)', 1)
$oExcel.Range("B1").Offset($iLine -1, 0).Value = $ret[0]
Case StringInStr($a[$i], 'Ursprüngliches Installationsdatum:', 1)
$ret = StringRegExp($a[$i], '(?:: )(\d{2}\.\d{2}\.\d{4}, \d{2}:\d{2}:\d{2})', 1)
$oExcel.Range("C1").Offset($iLine -1, 0).Value = $ret[0]
Case StringInStr($a[$i], 'Systemhersteller:', 1)
$ret = StringRegExp($a[$i], '(?:: )([\w .-]+)', 1)
$oExcel.Range("D1").Offset($iLine -1, 0).Value = $ret[0]
Case StringInStr($a[$i], 'Systemmodell:', 1)
$ret = StringRegExp($a[$i], '(?:: )([\w .-]+)', 1)
$oExcel.Range("E1").Offset($iLine -1, 0).Value = $ret[0]
ExitLoop
Case Else
ContinueLoop
EndSelect
Next
EndFunc
Danke Großvater, das kann sicher ein jeder früher oder später brauchen - deshalb: Gepinnt. 
StringIsDigit
Viel zu unflexibel, würde nur auf einen String, genau wie angegeben passen. Ich vermute mal, dass dann als nächstes die Frage nach '123.45' oder auch mit Vorzeichen gekommen wär.
