Hilfe mit eigener Software (Suche nach bestimmten "Parametern" in Worddokument)

mietzekatze

Hallo,

ich habe ein Projekt vor, und zwar möchte ich sowas wie einen persönlichen Stundenplan-Grabber erstellen
Unsere Schule hat eine Website, auf der die Stundenpläne als Word-Dateien hochgeladen werden.
Meine Problematik ist, dass ich keinerlei Ansatzideen hab, wie ich das realisieren kann. Ich hab bereits den Code zum runterladen des Vertretungsplanes, jetz soll er aber nach der Stunde suchen und welche Klasse in der Stunde Vertretung hat.

Hier mal ein Bild, wie der Vertretunsplan aussieht.
[Blockierte Grafik: http://img692.imageshack.us/img692/8687/vertretungsplan.png]

Ich würde da an sowas wie ein 2D-Array denken, aber wie mache ich das dann?

Ich brauche nich den ganzen Quelltext, ioch würde mich bloß über ein Paar denkanstöße freuen.

mfg

**Schnitzel**

ich denke mal die datei lokal speichern und dann mithilfe der _Word... funktionen bearbeiten ist das leichteste.

hab aber selbst noch nie mit den funktionen gearbeitet. weiß somit leider auch nicht genau was wie mögich ist...

ps: tabellen in word erstellen is auch sehr sinnvoll und dabei wäre excel so schön zum verarbeiten...

**BugFix**

Ganz simpel:

[autoit]

#include <Array.au3>
$oWord = ObjCreate("Word.Application")
$oWord.Visible = False
$oDoc = $oWord.Documents.Open ('C:\Dein_Pfad.doc')
Local $array[10][5] ; hier die Größe deines Ziel-Arrays [Zeilen][Spalten] eintragen
Local $txt

[/autoit][autoit][/autoit][autoit]

For $i = 1 To 10 ; entsprechend Zeilenzahl
For $j = 1 to 5 ; entsprechend Spaltenzahl
$txt = StringTrimRight($oDoc.Tables(1).Cell($i, $j).Range.Text, 2)
; ConsoleWrite($txt & @CRLF)
$array[$i-1][$j-1] = $txt
Next
Next

[/autoit][autoit][/autoit][autoit]

$oDoc.Close
$oWord.Quit

[/autoit]

**Schnitzel**

Zitat von BugFix

Ganz simpel:

lol ja so gehts. deine definition von ganz simpel ist wahrscheinlich aber auch bisschen anders als die von mietzekatze

**BugFix**

Ganz simpel ist der Weg dahin:
VBA-Makrorecorder einschalten, alles einmal von Hand ausführen - Code ablesen (und etwas anpassen).

mietzekatze

Zitat

; hier die Größe deines Ziel-Arrays [Zeilen][Spalten] eintragen

Wie bekomme ich die Zeilenanzahl raus? Gibts dafür auch nen Befehl?

//Edit:
Der hat mir bei Visible=False die Worddatei geöffnet, was ich ja vermeiden wollte. Habs aber durch Visible=0 geschafft

//Edit2:

Zu früh gefreut, funktioniert doch nich. Ok Frage 2: Wie bekomm ich es jetz hin, dass er Word nicht öffnet?

**BugFix**

Zeilen und Spalten kannst du automatisch abfragen, habs mal angepaßt.

Spoiler anzeigen

[autoit]

#include <Array.au3>
Local $oWord = ObjCreate("Word.Application")
$oWord.Visible = False
Local $oDoc = $oWord.Documents.Open ('C:\tabelle.doc')
Local $zeilen = $oDoc.Tables(1).Rows.Count
Local $spalten = $oDoc.Tables(1).Columns.Count
Local $array[$zeilen][$spalten]
Local $txt

[/autoit] [autoit][/autoit] [autoit]

For $i = 1 To $zeilen
For $j = 1 to $spalten
$txt = StringTrimRight($oDoc.Tables(1).Cell($i, $j).Range.Text, 2)
$array[$i-1][$j-1] = $txt
Next
Next

[/autoit] [autoit][/autoit] [autoit]

;~ _ArrayDisplay($array)

[/autoit] [autoit][/autoit] [autoit]

$oDoc.Close
$oWord.Quit

[/autoit]

Zitat

Wie bekomm ich es jetz hin, dass er Word nicht öffnet?

Gar nicht
Word muß ja geöffnet werden - nur halt nicht sichtbar. Für das Word Objekt gibt es da nur: $object.Visible = False
Kann mir nicht vorstellen, dass das fehlschlägt. Welche Office Version hast du denn?

mietzekatze

2007

Könnte es daran liegen, dass die Datei schreibgeschützt ist?

//Edit: Habs rausgefunden. Irgendwie will er die Datei kein zweites Mal öffnen. Wenn ich die Heruntergeladenen Dateien lösche gehts wieder...
Wie bekomm ich jetz noch die maximale Zeilenanzahl raus?

**BugFix**

Zitat von mietzekatze

Wie bekomm ich jetz noch die maximale Zeilenanzahl raus?

Einfach meinen letzten Beitrag lesen..

mietzekatze

So, Soweit klappts echt super. Kann mir noch einer erklären wie ich jetz aus den Zeilen alles raussuche was ich nich will?
Ich wollte jetz das Array in Spalte 2 nach allen 12en durchsuchen und wollte das so machen:

Spoiler anzeigen

[autoit]

For $i= 1 to $zeilen
If _ArrayFindAll($array,12,$i&2,$i&2) Then
For $j = 2 To $spalten
_ArrayDelete($array,$i&$j)
Next
EndIf
Next

[/autoit] [autoit][/autoit] [autoit]

_ArrayDisplay($array)

[/autoit]

Aber das funktioniert nicht. Zuerst hatte ich noch Klammern um $i und $j, da hat er bei den Klammern gemeckert. Ohne Klammer meckert er zwar nicht mehr, aber er zeigt danach das Array nicht an.
Jemand ne Idee?

**Schnitzel**

ich versteh nicht ganz was du da machst aber auf die richtigen indexe kommste so:

Spoiler anzeigen

[autoit]

#include <Array.au3>

[/autoit] [autoit][/autoit] [autoit]

Dim $array[10][2] = [["8", "9"], ["10", "11"], ["12","13"], ["C","c"], ["14", "12"], ["1","5"], ["7", "9"], ["12","12"], ["5", "b"],["B", "b"]]

[/autoit] [autoit][/autoit] [autoit]

$indexe = _ArrayFindAll($array,"12"); in $array[x][0] suchen
_ArrayDisplay($indexe)

[/autoit] [autoit][/autoit] [autoit]

$indexe = _ArrayFindAll($array,"12", 0, 0, 0, 0, 1); in $array[x][1] suchen
_ArrayDisplay($indexe)

[/autoit]

mietzekatze

Zitat von Schnitzel

ich versteh nicht ganz was du da machst

Ich will meinen Jahrgang raussuchen
Also theoretisch sollte es dann am Schluss so sein, dass der mir nur noch ein Array mit meinem Jahrgang und meinen belegten Kursen zeigen soll.