Danke autoiter jetzt klappt es
Beiträge von Snow12
-
-
Hi autoiter
O.K mit "du" wird geschrieben kenn es halt anders.
Das mit den Txt Problem konnte ich dank deiner Hilfe so lösen
Local $aRecords
$sSourcePath = "C:\Users\dd\Desktop\Array\"
$aFilesInFolder = _FileListToArray($sSourcePath, "*.txt" )
For $i = 1 To $aFilesInFolder[0]
If Not _FileReadToArray($sSourcePath & $aFilesInFolder[$i],$aRecords) Then
MsgBox(4096,"Fehler", "Fehler beim einlesen der Daten.")
Exit
EndIfaber 5. Wert in Spalte B hab ich so versucht
Local $iRow = 1 ; Deine Startzeile
For $i = $aRecords[0] To $aRecords[0] - 3 Step -1; vom letzten bis zum viertletzten Eintrag rückwärts gehen.
For $ii = $aRecords[0] To $aRecords[0] - 1 Step -1; vom letzten bis zum viertletzten Eintrag rückwärts gehen.
_Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet, $aRecords[$i], "A" & $iRow) ; Im ersten Durchlauf wird $aRecords[viertletzter Wert] in Spalte A Zeile 1 geschrieben.
_Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet, $aRecords[$ii], "B" & $iRow) ; Im ersten Durchlauf wird $aRecords[viertletzter Wert] in Spalte A Zeile 1 geschrieben.$iRow += 1 ; Für den nächsten Durchlauf, wird die Variable $iRow um 1 erhöht, damit immer in die nächste Spalte geschrieben wird.
Next
NextNur hab ich jetzt überall doppelte Einträge
-
Hallo Herr autoiter
Sie haben mir sehr weitergeholfen, 2 Sachen sind mir noch ein wenig unklar.
If Not _FileReadToArray("C:\Users\dd\Desktop\Array\1.txt",$aRecords) Then
hatte Versucht "*.txt" in Array einzulesen da meine txt Dateien immer anders heissen bekomme aber immer eine Fehlermeldung.und die 2 Sache ist es möglich die letzten 4 Werte zu "Spiegeln" d.h also der letzte Wert in A1, vorletzter A2, usw....
und wenn ich den 5 Wert in die Spalte B bringen möchte muss ich diese Zeile
_Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet, $aRecords[$i], "B" & $iRow)
so nochmal eingeben?
Oder einfacher gesagt kann man jeden Wert speziell zuweisen.mfg
Snow12 -
Hallo Leute erstmal
Beschäftige mic seit kurzem mit Autoit und hätte eine Frage
Spoiler anzeigen
#include <Array.au3>
#include <MsgBoxConstants.au3>
#include <Excel.au3>
#Include <File.au3>Local $aRecords
If Not _FileReadToArray("C:\Users\dd\Desktop\Array\1.txt",$aRecords) Then
MsgBox(4096,"Fehler", "Fehler beim einlesen der Daten.")
Exit
EndIf
For $x = 1 To $aRecords[0]
; MsgBox(0, "", "Array eingelesen")
NextLocal $oExcel = _Excel_Open()
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "_Excel_Open Error", "Error creating the Excel application object." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
Local $oWorkbook = _Excel_BookOpen($oExcel, "C:\Users\dd\Desktop\" & "\test.xls"); Exceldatei öffnen
If @error Then
MsgBox($MB_SYSTEMMODAL, "Reading of Excel File Failed", "Error opening workbook" & @CRLF & "@error = " & @error & ", @extended = " & @extended)
_Excel_Close($oExcel)
Exit
EndIfLocal $aArray[4] = ["", "", ""]
_Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet, $aRecords, "A1")Versuche vergebens ein Array ins Excel zu Bringen klappt auch aber nur bedingt.
Die txt.Datei hat ca 100 Einträge nur Zahlen.Ich habe aber 101 Einträge in der Excel Tabelle und das auch nicht in der richtigen Reihenfolge
ich würde gerne nur die letzten 4 Zeilen ins Excel bringe aber keine Ahnung wie.
Vielleicht kann ja jemand kurz drüberschauen und eine wenig helfen.