Allgemeine Hilfe Verbesserungen und Fragen zum Array

mmk1988

Hallo Leute,
ich bin relativ neu in Autoit und versuche mich gerade daran aus verschiedenen Quellen (txt, xls) daten zu ziehen und sie zu einem excelprotokoll zusammenzufügen und auszuwerten.
ansich klappt das ganze recht gut ich habe nur 2 probleme.

1. problem: ich lese ein array ein und benutze die werte dann später in meinem code, nur leider ist ein wert in diesem array plötzlich "leer".
Wie man sieht mache ich das mit einer einfachen for-schleife. die Msgbox hatte ich einfach mal zum testen. in der werden mir alle daten die ich haben möchte korrekt angezeigt.
außerhalb der schleife fehlt mir aber plötzlich $WertArray[7], mit "1-6" kann ich ohne probleme arbeiten.

AutoIt

$PAR[1] = "BM-Nummer"
;Stüli
$PAR[2] = "Stückliste"
;Steller
$PAR[3] = "E-Steller"
;Chipsatz
$PAR[4] = "Chip"
;Minflow Soll Kg/h
$PAR[5] = "Minflow in Kg/h"
;Minflow Soll Volt
$PAR[6] = "Minflow in Volt"
;Maxflow Soll Volt
$PAR[7] = "Maxflow Soll Volt"
;Minflow Kg/h Toleranz
$PAR[8] = "Minflow Toleranz"
Global $WertArray[9]
$openfile = FileOpen($file,0)
for $s = 1 to 8
   for $i = 1 to _FileCountLines($file)
	  $readlineroh = FileReadLine($openfile,$i)
	  $readline = StringTrimLeft($readlineroh, StringInStr($readlineroh,"=", -1))
	  if StringInStr($readlineroh,$PAR[$s]) Then
		 $WertArray[$s] = $readline
		 ;MsgBox(64,"",$WertArray[$s])
	  endif
   next
next

Alles anzeigen

Problem Nr.2
Das erstellen des Protokolls dauert zu lange.
Natürlich programmiere ich nach bestem wissen und gewissen, allerdings geht das sicher noch um einiges besser und kompakter.
Ich poste einfach mal meinen ganzen Code, vielleicht findet ja jemand die Zeit um mir effektive tipps zu geben.
Vielen dank schon mal im Voraus.

AutoIt

#include <File.au3>
#include <Excel.au3>
#include <Array.au3>
#include <Date.au3>
#include <MsgBoxConstants.au3>
;WinActivate("PG588")
;WinWaitActive("PG588")
Local $oExcel = _Excel_Open(@SW_HIDE);@SW_HIDE optionales verstecken
Local $oWorkbook = _Excel_BookOpen($oExcel,"C:\Küstermann-Messung_Ohne_Event19\Küstermann-Messung_Ohne_Event19\Temporäre Minflow-Werte.csv")


$UsedRows = $oExcel.ActiveSheet.UsedRange.Rows.Count
Global $ExcelArray[$UsedRows+1]
Global $ExcelArray2[$UsedRows+1]
Global $ExcelArray3[$UsedRows+1]
Global $ExcelArray4[$UsedRows+1]
Global $ExcelArray5[$UsedRows+1]
Global $ExcelArray6[$UsedRows+1]
Global $ExcelArray7[$UsedRows+1]
for $rowcount = 1 to $UsedRows
;Volt
$ExcelArray[$rowcount] = _Excel_RangeRead($oWorkbook, Default, "B"&$rowcount)
;Umgebungsdruck
$ExcelArray2[$rowcount] = _Excel_RangeRead($oWorkbook, Default, "H"&$rowcount)
;Temp vor ATL
$ExcelArray3[$rowcount] = _Excel_RangeRead($oWorkbook, Default, "I"&$rowcount)
;Temp nach ATL
$ExcelArray4[$rowcount] = _Excel_RangeRead($oWorkbook, Default, "J"&$rowcount)
;Messdruck
$ExcelArray5[$rowcount] = _Excel_RangeRead($oWorkbook, Default, "K"&$rowcount)
;Durchfluss
$ExcelArray6[$rowcount] = _Excel_RangeRead($oWorkbook, Default, "L"&$rowcount)
;Streuung
$ExcelArray7[$rowcount] = _Excel_RangeRead($oWorkbook, Default, "M"&$rowcount)
next
_Excel_BookClose($oWorkbook)
_Excel_Close($oExcel, False, True)


$hWnd = WinGetHandle("PG588", "")
;Anzahl der Messungen
;$Anzahl = controlgettext($hWnd,"","[NAME:MeasCountTextBox]")
$Anzahl = 5
;######## Stüli/BM-Nummer etc aus TXT laden
$file= "C:\Küstermann-Messung_Ohne_Event19\Küstermann-Messung_Ohne_Event19\config.ini"
local $PAR[9] ;Parameter Array
;BM-Nummer
$PAR[1] = "BM-Nummer"
;Stüli
$PAR[2] = "Stückliste"
;Steller
$PAR[3] = "E-Steller"
;Chipsatz
$PAR[4] = "Chip"
;Minflow Soll Kg/h
$PAR[5] = "Minflow in Kg/h"
;Minflow Soll Volt
$PAR[6] = "Minflow in Volt"
;Maxflow Soll Volt
$PAR[7] = "Maxflow Soll Volt"
;Minflow Kg/h Toleranz
$PAR[8] = "Minflow Toleranz"
Global $WertArray[9]
$openfile = FileOpen($file,0)
for $s = 1 to 8
   for $i = 1 to _FileCountLines($file)
	  $readlineroh = FileReadLine($openfile,$i)
	  $readline = StringTrimLeft($readlineroh, StringInStr($readlineroh,"=", -1))
	  if StringInStr($readlineroh,$PAR[$s]) Then
		 $WertArray[$s] = $readline
		 ;MsgBox(64,"",$WertArray[$s])
	  endif
   next
next
;Excel+Workbook öffnen
Local $oExcel = _Excel_Open(@SW_HIDE);@SW_HIDE optionales verstecken
Local $oWorkbook = _Excel_BookNew($oExcel, 2)


;Sheet Namen ändern
$_NewSheetName = "BM-Nummer Minflow Auswertung"
$oExcel.ActiveSheet.Name = $_NewSheetName
;Excel Spalten Anpassen (Breite)
$oExcel.Columns("A:A").ColumnWidth = "21"
;Konstanten in Excel schreiben
$date = @MDAY & "." & @MON & "." & @YEAR & " / " & @HOUR & ":" &  @MIN
;Kopf
$oExcel.Range("A4:C7").Borders.LineStyle = 1
$oExcel.Range("A4:C7").Interior.ColorIndex = 24 ; setze Farbe
$oExcel.Range("B4:C4").Merge
$oExcel.Range("B5:C5").Merge
$oExcel.Range("B6:C6").Merge
$oExcel.Range("B7:C7").Merge
;Kopf Werte
_Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet,"Stückliste" ,"A4")
_Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet,$WertArray[2] ,"B4")
_Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet,"BM-Nummer" ,"A5")
_Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet,$WertArray[1] ,"B5")
_Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet,"E-Steller" ,"A6")
_Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet,$WertArray[3] ,"B6")
_Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet,"Chipsatz" ,"A7")
_Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet,$WertArray[4] ,"B7")
;Body
_Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet,"Messdaten" ,"A9")
$oExcel.Range("A9") .Font.Bold = TRUE
$oExcel.Range("A9").Borders.LineStyle = 1
_Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet,$date ,"E4")
$oExcel.Range("E4:F4").Merge
$oExcel.Range("E4:F4").Borders.LineStyle = 1
$oExcel.Range("E4:F4").Interior.ColorIndex = 24
_Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet,"Messung Nr." ,"A10")
_Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet,"Umgebungsdruck in mBar" ,"A11")
_Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet,"Temp. vor ATL in °C" ,"A12")
_Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet,"Temp. nach ATL in °C" ,"A13")
_Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet,"Minflow in Volt / LSB" ,"A15")
_Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet,"Durchfluss in Kg/h" ,"A16")
;Überschrift und Design
$oExcel.ActiveSheet.Rows(2).Rowheight = 25
$oExcel.Range("A2:F2").Select
 With $oExcel.Selection
	.MergeCells = true
	.Font.size= 17
	.Font.Bold = TRUE
	.Borders.LineStyle = 1
	.Interior.ColorIndex = 24
	.HorizontalAlignment = 7
EndWith
_Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet,"Minflow Datenerfassung und Auswertung" ,"A2")
;Fuß Design
;Arrays übertragen
for $i = 2 to $Anzahl + 1
Local $iCol = $i
Local $sLetter = _Excel_ColumnToLetter($iCol)
_Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet,$i -1 ,$sLetter & 10)
_Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet,StringFormat("%.3f\n", $ExcelArray[$i-1]), $sLetter &15)
_Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet,StringFormat("%.1f\n", $ExcelArray2[$i-1]), $sLetter &11)
_Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet,StringFormat("%.1f\n", $ExcelArray3[$i-1]), $sLetter &12)
_Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet,StringFormat("%.1f\n", $ExcelArray4[$i-1]), $sLetter &13)
_Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet,StringFormat("%.2f\n", $ExcelArray6[$i-1]), $sLetter &16)


next
;Durchschnitt Volt Array
Local $averageVolt
For $n = 1 To $rowcount -1
    $averageVolt += $ExcelArray[$n]
 Next
$averageVolt = $averageVolt / ($rowcount -1)


;Durchschnitt Massenstrom Array
Local $averageMass
For $n = 1 To $rowcount -1
    $averageMass += $ExcelArray6[$n]
Next
$averageMass = $averageMass / ($rowcount -1)


$oExcel.Range("A1:Z20").CurrentRegion
 With $oExcel.Selection
.HorizontalAlignment = 7
EndWith
$oExcel.Range("A10:" & $sLetter &13).Select
 With $oExcel.Selection
	.Borders.LineStyle = 1
	.Interior.ColorIndex = 43
 EndWith
 $oExcel.Range("A15:" & $sLetter &16).Select
 With $oExcel.Selection
	.Borders.LineStyle = 1
	.Interior.ColorIndex = 27
 EndWith
 Local $iCol2 = $Anzahl + 3
Local $sLetter2 = _Excel_ColumnToLetter($iCol2)
;Konstanten aus TXT/PG übernehmen
Local $iCol1 = $Anzahl + 2
Local $sLetter1 = _Excel_ColumnToLetter($iCol1)
_Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet,"Soll" ,$sLetter1 & 14)
_Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet, $WertArray[6] ,$sLetter1 & 15)
_Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet, $WertArray[5] ,$sLetter1 & 16)
$oExcel.Range($sLetter1&14&":"&$sLetter2&16).Select
With $oExcel.Selection
   .Borders.LineStyle = 1
   .Font.Bold = TRUE
endwith
_Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet,"Ist" ,$sLetter2 & 14)
_Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet,StringFormat("%.3f\n", $averageVolt) ,$sLetter2 & 15)
_Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet,StringFormat("%.2f\n", $averageMass) ,$sLetter2 & 16)
;Bewertung
$IstVolt = _Excel_Rangeread($oWorkbook, $oWorkbook.Activesheet,StringFormat("%.3f\n", $averageVolt) ,$sLetter2 & 15)
$SollVolt = _Excel_Rangeread($oWorkbook, $oWorkbook.Activesheet, $WertArray[6] ,$sLetter1 & 15)
$IstMass = _Excel_Rangeread($oWorkbook, $oWorkbook.Activesheet,StringFormat("%.2f\n", $averageMass) ,$sLetter2 & 16)
$SollMass = _Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet, $WertArray[5] ,$sLetter1 & 16)
$VoltMax = $SollVolt + 0.005
$VoltMin = $SollVolt - 0.005
$MassMax = $SollMass + $WertArray[7]
$MassMin = $SollMass - $WertArray[7]
MsgBox(64,"",$WertArray[7])
if  $IstVolt > $VoltMin and $IstVolt <$VoltMax then
   $oExcel.Range("E19:F21").Select
 With $oExcel.Selection
	.Merge = true
	.Interior.ColorIndex = 4
 EndWith
 Else
	$oExcel.Range("E19:F21").Select
 With $oExcel.Selection
	.Merge = true
	.Interior.ColorIndex = 3
 EndWith
 endif
if  $IstMass > $MassMin and $IstMass <$MassMax then
   $oExcel.Range("E19:F21").Select
 With $oExcel.Selection
	.Merge = true
	.Interior.ColorIndex = 4
 EndWith
 Else
	$oExcel.Range("E19:F21").Select
 With $oExcel.Selection
	.Merge = true
	.Interior.ColorIndex = 3
 EndWith
 endif
$oExcel.Range("E18:F18").Merge
$oExcel.Range("E18:F21").Borders.linestyle = 1
$oExcel.Range("E18:F18").Select
 With $oExcel.Selection
	.Merge = true
	.HorizontalAlignment = 7
	.Font.Bold = TRUE
EndWith
_Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet,"Bewertung" ,"E18")
Local $oExcel = _Excel_Open()
exit

Alles anzeigen

s.koni

Hallo mmk1988,

hast da ja schon ein ganz ordentliches Script fabriziert!

Grundsätzlich: Es ist recht schwierig dein Script zu analysieren, da eben nicht alle Daten einsehbar sind, also was wie und wo in der Excel Liste steht, also sei nicht enttäuscht, wenn nicht so viel Hilfe gegeben wird.

Zu deinem 1.Problem: Für mich sieht es korrekt aus. Wie gesagt, kann man es aber nicht nachvollziehen was genau geschieht, das nicht alle Daten verfügbar sind.
Frage 1: Sehe ich es richtig, du hast eine INI Datei, aus der du Werte liest? Kennst du den Befehl INIRead? Damit kann man geziehlt Werte aus eine INI Datei lesen, das ganze mit der Schleife kannst du dir dadurch erleichter.

AutoIt

local $PAR[9]
$PAR[0] = 8	;	Gewöhn dir am besten gleich an, die Dimensionen des Arrays im Array selbst zu speichern, so geht es viel leichter mit schleifen usw.
$PAR[1] = "BM-Nummer" ;			Stüli
$PAR[2] = "Stückliste"; 		Steller
$PAR[3] = "E-Steller";			Chipsatz
$PAR[4] = "Chip" ;			Minflow Soll Kg/h
$PAR[5] = "Minflow in Kg/h";	Minflow Soll Volt
$PAR[6] = "Minflow in Volt";	Maxflow Soll Volt
$PAR[7] = "Maxflow Soll Volt";	Minflow Kg/h Toleranz
$PAR[8] = "Minflow Toleranz"
Global $WertArray[9]
local $file= "C:\Küstermann-Messung_Ohne_Event19\Küstermann-Messung_Ohne_Event19\config.ini"
for $s = 1 to $PAR[0]
	  $WertArray[$s] = IniRead($file,"[Hier musst den Section Name eintragen, den kenn ich so nicht]",$PAR[$s],"")
next

Alles anzeigen

Zu deinem Problem 2: Lös erst mal Problem 1, dann kannst du Problem 2 angehen

Spaß beiseite,
Auch hier würde ich eher mit Arrays arbeiten, also den gesamten Bereich den du ab zwischen Zeile 12 und 34 machst in ein Array lesen und dann mit ArraySearch oder Schleifen das Array durcharbeiten.
Du kannst dann deine gesuchten Werte auch in ein Array schreiben und auf einmal in die Excel Tabelle schreiben - geht viel schneller als mit einer schleife jeden Wert einzeln zu schreiben.

Was hältst du davon dich zunächst mal mit den Arrays zu beschäftigen, denn ich glaube, da liegt die Lösung für deine beiden Probleme.

Was mir sehr gefällt ist, dass du schon einiges kommentierst - das ist wirklich wichtig!

lg
s.koni

mmk1988

hi, danke schon mal für dein Feedback

Genau, ich lese einmal aus einer ini und einmal aus einer excel.
INIRead war mir bisher leider nicht bekannt wieder etwas gelernt.
ich hänge die 2 Dateien einfach mal an, es sind sowieso nur Testwerte. Was bisschen erschwerend dazu kommt, in der Excel stehen Messwerte, je nach dem wie viele Messungen gemacht werden verändert sich die Anzahl der Einträge.
Deswegen auch die Auskommentierte Variable:

Code

;Anzahl der Messungen
;$Anzahl = controlgettext($hWnd,"","[NAME:MeasCountTextBox]")
$Anzahl = 5

Zum Testen nehme ich einfach 5.

Entschuldige die blöde Frage aber, was für ein Vorteil hat "$PAR[0] = 8"? ist eine reine Verständnis frage.

**BugFix**

Zitat von s.koni

$PAR[0] = 8 ; Gewöhn dir am besten gleich an, die Dimensionen des Arrays im Array selbst zu speichern, so geht es viel leichter mit schleifen usw.

Hier könnten wir gleich wieder Grundsatzdiskussionen führen.
Ob das Führen der Elementezahl des Arrays an dessen 0-Index vorteilhaft ist, sei mal dahingestellt. Wir sind es halt von vielen AutoIt-internen Funktionen so gewöhnt.
Ich halte es nur dann für sinnvoll, wenn ich ein Array dynamisch gestalten möchte, weil ich dann keine extra Variable anlegen muss um UBound auszulesen, und mit dem Wert der Variablen+x ein ReDim durchzuführen.

@mmk1988
In meiner Signatur findest du ein Tutorial zu Arrays. Sollte dir für den Anfang weiter helfen.

s.koni

Hallo mmk1988,

bekommst du die Daten als csv-Datei? Musst du die Daten in Excel haben? Ich habe die csv Datei mal eingelsen mittels _FileReadToArray eingelsen. So würdest du dir das Einlesen der Daten evtl. erleichtern.
Aus dem Array nimmst du die Daten die du brauchst und schreibst sie in eine neues Array, in der reihenfolge wie du sie in Excel dann haben willst. Dann kannst du eine neue leere Excel Datei erstellen lassen und die benötigten Daten per _Excel_RangeWrite eintragen.

Einen schnelleren Weg wüsste ich jetzt nicht.

AutoIt

#include <File.au3>
local $a
_FileReadToArray(@ScriptDir & "\Temporäre Minflow-Werte.csv",$a,$FRTA_COUNT,";")
_ArrayDisplay($a)

Eine Möglichkeit für die optische Anpassungen wäre ein VBA-Script, in der Excel Tabelle, die beim Starten der Excel Datei ausgeführt wird - auch aus dem Gesichtspunkt der geschwindigkeit - das du nachdem du die Daten übertragen hast aus AutoIt heraus anstößt.

BugFix : Stimmt, das mit den Dimensionen im Array muss nicht sein, ist aber oft sehr hilfreich! Aber eine Grundsatzdiskussionen würde ich dazu nicht anfangen. Es ist halt so, wie der Anwender oder Benutzer leichter klar kommt.
Für jemand der mit Arrays anfängt zu arbeiten ist es eine gute Hilfe. Wenn man sicherer ist mir Arrays kann man die Dimensionen mit UBound gezielt abfragen. Beides geht, beides ist erlaubt und beides hat seine Vor- und Nachteile.

lg
Steffen