Aber warum zum Teufel willst du die Datei UNBEDINGT zum Lesen UND Schreiben öffnen?!
Weil ich davon ausgegangen bin, dass man das so macht 
Und ich dachte das man bei dem Eintrag eben genau dieses machen kann:
$FO_ANSI (512) = Use ANSI reading and writing mode.
Aber man lernt nie aus
Hallo zusammen,
ich drehe mich im Kreis, wenn ich das mit dem Dateipfad umsetzte, bekomme ich mit FileSetPos den Zeiger nicht an den Anfang und er hängt mir beim schreiben den Inhalt nochmal komplett unten drunter, somit verdoppeln sich die Einträge jedes mal. Laut Doku ist FileSetPos auch nur mit einem filehandle einsetzbar ?
Wenn ich das mit einem filehandle umsetze, speichert er mir die Date nicht...
$hFile = FileOpen($sHTML, $FO_ANSI)
$Dateiinhalt = FileRead($hFile)
;$file = filewrite($hFile,$Inhaltneu)
$file = filewrite($hFile,"Test")
if $file = 0 then msgbox(1,"","Datei nicht gespeichert")
FileClose($hFile)Hi,
wie kann ich denn den geänderten HTML Code wieder abspeichern, das kriege ich irgendwie nicht hin ?
Example()
Func Example()
; Open the file for read/write access.
$hFileOpen = FileOpen($sHTML)
$sFileRead = FileRead($hFileOpen)
;MsgBox($MB_SYSTEMMODAL, "", "Contents of the file:" & @CRLF & $sFileRead)
consolewrite($sFileRead)
$Gert = StringReplace($sFileRead,"<head>","<head Test>")
consolewrite($Gert)
FileWrite($hFileOpen,$Gert)
FileClose($hFileOpen)
EndFunc ;==>ExampleKönntest Du eine solche HTML-Seite mal posten (muss gezippt werden, falls Du sie als Dateianhang liefern möchtest). Vertrauliche Daten, sofern vorhanden, durch Dummyfelder ersetzen.
Die Datei in ein Array zu laden ist ggf. gar nicht erforderlich. Wahrscheinlich reichen die üblichen String-Funktionen von AutoIt aus - ansonsten gäbe es noch die Option über reguläre Ausdrücke (RegEx).
Hallo,
anbei die HTML Seite, gesucht soll dort nach der KOM (Kommission) und diese soll dann Farblich hervorgehoben werden, für den Produktionsstart eine Farbe und für das Produktionsende eine andere Farbe.
Hallo zusammen,
was für einen Sinn hat der _ bei Funktionen, zum Beispiel bei: _FileReadToArray & FileReadToArray
Zum Hintergrund meines Vorhabens: Ich habe eine HTML Seite, die lokal abgelegt ist, diese wird von einem Excel Sheet erzeugt.
Diese HTML Seite möchte ich durchsuchen und bei dem gefunden HTML Tag <td> die Hintergrundfarbe ändern.
Hallo zusammen,
ich habe mittlerweile erste "Ansätze" gefunden, bin mir aber nicht sicher ob das der richtige Ansatz ist und ich habe noch keine Idee wie ich das Array wieder gespeichert bekomme ?
$Datei = FileOpen($sHTML)
;$cLine = _FileCountLines($Datei)
$aFile = FileReadToArray($Datei)
$iIndex = _ArraySearch($aFile,$sID,0,0,0,1,1)
consolewrite("Gefunden: " & $iIndex & " " & $aFile[$iIndex] & @CRLF)
FileClose($Datei)Hi, die liegen lokal.
Hallo zusammen,
wie kann man am besten mit AutoIt HTML Quellcodeseiten modifizieren, also die HTML Datei öffnen, etwas suchen, eine Zeile hinzufügen oder ändern und das ganze wieder abspeichern ?
Hallo zusammen,
ich konnte das Problem mit dem Speicherfenster etwas eingrenzen, vielleicht hilft das weiter:
Wenn ich auf ein Netzlaufwerk speichere kommt die Speichermeldung, speichere ich auf zum Beispiel TempDir, kommt die Speichermeldung nicht.
ZitatAlles anzeigen#include <Excel.au3>
#include <MsgBoxConstants.au3>
Local $oExcel = _Excel_Open(False,False)
Local $oWorkbook = _Excel_BookNew($oExcel)
_Excel_RangeWrite($oWorkbook, Default, "Test", "A1")
;_Excel_BookSaveAs($oWorkbook, "n:\_Excel.xls", Default, True)
_Excel_BookSaveAs($oWorkbook, @TempDir & "\_Excel.xls", Default, True)
_Excel_BookSave($oWorkbook)
_Excel_Close($oExcel)
Hi,
ok, ich glaube jetzt habe ich es verstanden, also das Script läuft ohne Fehler wenn ich entweder die beiden Excel Constanten raus nehme oder die inkludierten au3 Files entferne. Jetzt habe ich erstmal den Zusammenhang verstanden, danke für den Hinweis
Aber, leider bringt mich das komplette Script nicht weiter, da auch dieses die beiden Speichermeldungen anzeigt, aber die Abfrage der Fehler kann ich gut gebrauchen.
Danke euch für die ganzen Tipps und Hinweise, ist echt nicht so einfach in so ein Thema einzusteigen....
Hi Kanashius
das Script ist direkt darüber in #27
Const habe ich bereits raus genommen, klappt leider aber dennoch nicht.
Hi,
ich bekomme folgende Fehlermeldung ?
und selbst wenn ich es auf ein Minimum reduziere und auch das Speichern der HTML Seite weg lasse, bekomme ich für das Speichern des Sheets eine Speichermeldung.
Markieren("10792")
Func Markieren($ID)
$oExcel = _Excel_Open(False,False,False,False)
$sWorkbook = $Freigabe & "\" & $Gewerk & ".xlsm"
$oWorkbook = _Excel_BookOpen($oExcel, $sWorkbook, False, True)
$oExcel.Application.DisplayAlerts = False
$oExcel.Application.ScreenUpdating = False
;Excel speichern
;$oWorkbook.Save
;$oWorkbook.Close
$oExcel.ActiveWorkBook.Save
$oExcel.Quit
$oExcel.Application.DisplayAlerts = True
$oExcel.Application.ScreenUpdating = True
EndFuncHi,
ich möchte ja "nur" ein Excel Sheet öffnen, einen Wert dort suchen, farblich hinterlegen und das Sheet als HTML Datei Speichen und das Excel speichern und schliessen. Ohne das man etwas davon sieht, alles klappt, bis auf die beiden Meldungen beim Speichern.
Hi Velted,
Ja, #19 ist aktuell das komplette Script, _Excel_Close() hatte ich schon getestet, aber ohne Erfolg. Wenn ich deinen Code in mein Script einsetzte, hängt sich Excel komplett auf.
Wodran erkenne ich denn, ob eine Excel-Instanz offen bleibt oder nicht ? Im Excel ist kein Script enthalten, das möchte ich ja alles gerne über das AUtoIT Script erledigen.
_Excel_BookSave($oWorkbook) bewirkt auch, das die Speichermeldung kommt.Hallo zusammen,
ich musste die beiden Variablen noch definieren, dann lief es. Jedoch bekomme ich immer noch die Speichermeldungen, eine vor der eingebauten msgbox und eine nach dieser, hmmm....
Die Update Funktion funktioniert aber schonmal aus Autoit heraus
#include <Excel.au3>
#include <MsgBoxConstants.au3>
#include <Array.au3>
Global $Freigabe = "\\abc\123\"
Global $Gewerk = "xyz"
Global $xlSourceRange = 4
Global $xlHtmlStatic = 0
$oExcel = _Excel_Open(False,False,False,False)
$sWorkbook = $Freigabe & "\" & $Gewerk & ".xlsm"
$oWorkbook = _Excel_BookOpen($oExcel, $sWorkbook, False, True)
$aResult = _Excel_RangeFind($oWorkbook, "10830")
;consolewrite("Ergebnis: " & $aResult[0][2] & @CRLF)
$oExcel.Range($aResult[0][2]) .Interior.ColorIndex = 44 ; setze Farbe
;$oExcel.Application.Run("Update")
$oExcel.DisplayAlerts = False
$oWorkbook.PublishObjects.Add($xlSourceRange, $Freigabe & "web\" & $Gewerk & ".htm", $Gewerk, "$A$1:$U$40", $xlHtmlStatic, "", "").Publish(True)
$oWorkbook.PublishObjects.Add($xlSourceRange, $Freigabe & "web\" & $Gewerk & ".htm", $Gewerk, "$A$1:$U$40", $xlHtmlStatic, "", "").AutoRepublish = False
$oExcel.DisplayAlerts = True
msgbox(1,"","Test")
$oExcel.DisplayAlerts = False
$oWorkbook.Save
$oWorkbook.Close
$oExcel.DisplayAlerts = TrueHi water ,
danke für deine Tipps, probiere ich gleich morgen aus, das hier verstehe ich jedoch nicht ?