Function Main { Write-Host "Programmstart" # Todo: Wird $ZielDateien wirklich noch im GUI benoetigt? #$ZielDateien = ZielDateienHolen #Write-Host "Zieldateien in Main: " $ZielDateien $StartPfad = StartPfadHolen GUI $StartPfad #$ZielDateien } Function GUI ($StartPfad) { [void] [System.Reflection.Assembly]::LoadWithPartialName("System.Windows.Forms") [void] [System.Reflection.Assembly]::LoadWithPartialName("System.Drawing") # Eigenschaften Fenster $Fenster = New-Object System.Windows.Forms.Form $Fenster.Size = New-Object System.Drawing.Size(940,660) #Breite, Hoehe $Fenster.StartPosition = "CenterScreen" $Fenster.KeyPreview = $true # was macht das? $Fenster.MaximumSize = $Fenster.Size # legt fest, dass Groeße des Fensters nicht veraendert werden kann $Fenster.MinimumSize = $Fenster.Size $Fenster.Text = "Dateikonvertierer txt zu xlsx" # Eigenschaften Tabs $TabBasis = New-Object System.Windows.Forms.TabControl $TabBasis.Location = New-Object System.Drawing.Size(10,10) $TabBasis.Size = New-Object System.Drawing.Size(900,600) $TabBasis.DataBindings.DefaultDataSourceUpdateMode = 0 # Was macht das? $Fenster.Controls.Add($TabBasis) # Tab: TXT-Pfad auswaehlen $TabSeiteTXTAuswaehlen = New-Object System.Windows.Forms.TabPage $TabSeiteTXTAuswaehlen.TabIndex = 0 $TabSeiteTXTAuswaehlen.UseVisualStyleBackColor = $true $TabSeiteTXTAuswaehlen.Text = "txt-Datei Auswaehlen" #Paddings $TabSeiteTXTAuswaehlen.DataBindings.DefaultDataSourceUpdateMode = 0 $TabBasis.Controls.Add($TabSeiteTXTAuswaehlen) # TXTPfadFeld $TXTPfadFeld = New-Object System.Windows.Forms.TextBox $TXTPfadFeld.Location = New-Object System.Drawing.Size(10,10) $TXTPfadFeld.Size = New-Object System.Drawing.Size(860,20) $TXTPfadFeld.Add_KeyDown({ # Reaktion bei gedrueckter Taste $Taste = $_.KeyCode TastenReaktionPfadFeld "txt" $Taste }) $TabSeiteTXTAuswaehlen.Controls.Add($TXTPfadFeld) # TXTListeOrdnernamen $TXTListeOrdnernamen = New-Object System.Windows.Forms.ListBox $TXTListeOrdnernamen.Location = New-Object System.Drawing.Size(10,40) $TXTListeOrdnernamen.Size = New-Object System.Drawing.Size(860,20) $TXTListeOrdnernamen.Height = 450 $TXTListeOrdnernamen.Font = New-Object System.Drawing.Font("Arial",12,[System.Drawing.FontStyle]::Regular) $TXTListeOrdnernamen.Add_DoubleClick({ # Variablen bestimmen zur uebergabe $Auswahl = $TXTListeOrdnernamen.SelectedItem $Pfad = $TXTPfadFeld.Text # Pfad aktualisieren VerzeichnisAuswaehlen "txt" $Pfad $Auswahl }) $TXTListeOrdnernamen.Add_KeyDown({ # Reaktion bei gedrueckter Taste $Taste = $_.KeyCode TastenReaktionListeOrdnernamen "txt" $Taste }) $TabSeiteTXTAuswaehlen.Controls.Add($TXTListeOrdnernamen) # ZurueckButton $TXTZurueckButton = New-Object System.Windows.Forms.Button $TXTZurueckButton.Location = New-Object System.Drawing.Size(10,500) $TXTZurueckButton.Size = New-Object System.Drawing.Size(100,30) $TXTZurueckButton.Text = "Zurueck" $TXTZurueckButton.Add_Click({ # Write-Host "Pfad ausgabe: " $TXTPfadFeld.Text $Pfad = $TXTPfadFeld.Text #Pfad aktualisieren VerzeichnisZurueck "txt" $Pfad }) $TXTZurueckButton.Add_KeyDown({ # Reaktion bei gedrueckter Taste $Taste = $_.KeyCode TastenReaktionButtons "txt" $Taste }) $TabSeiteTXTAuswaehlen.Controls.Add($TXTZurueckButton) # AuswaehlenButton $TXTAuswaehlenButton = New-Object System.Windows.Forms.Button $TXTAuswaehlenButton.Location = New-Object System.Drawing.Size(750,500) $TXTAuswaehlenButton.Size = New-Object System.Drawing.Size(100,30) $TXTAuswaehlenButton.Text = "Auswaehlen" $TXTAuswaehlenButton.Add_Click({ # Variablen bestimmen zur uebergabe $Auswahl = $TXTListeOrdnernamen.SelectedItem $Pfad= $TXTPfadFeld.Text # Pfad aktualisieren VerzeichnisAuswaehlen "txt" $Pfad $Auswahl }) $TXTAuswaehlenButton.Add_KeyDown({ # Reaktion bei gedrueckter Taste $Taste = $_.KeyCode TastenReaktionButtons "txt" $Taste }) $TabSeiteTXTAuswaehlen.Controls.Add($TXTAuswaehlenButton) $A = AnzeigeAktualisieren "txt" $StartPfad # Ohne dem Aufruf kann kein Startverzeichnis uebergeben werden. Wird der Aufruf keiner Variable zugewiesen verursacht dies Fehler bei der Rueckgabe. # Tab: Zielverzeichnis auswaehlen $TabSeiteZielVerzeichnisAuswaehlen = New-Object System.Windows.Forms.TabPage $TabSeiteZielVerzeichnisAuswaehlen.TabIndex = 1 $TabSeiteZielVerzeichnisAuswaehlen.UseVisualStyleBackColor = $true $TabSeiteZielVerzeichnisAuswaehlen.Text = "Zielverzeichnis Auswaehlen" #Paddings $TabSeiteZielVerzeichnisAuswaehlen.DataBindings.DefaultDataSourceUpdateMode = 0 $TabBasis.Controls.Add($TabSeiteZielVerzeichnisAuswaehlen) # PfadFeld $VERPfadFeld = New-Object System.Windows.Forms.TextBox $VERPfadFeld.Location = New-Object System.Drawing.Size(10,10) $VERPfadFeld.Size = New-Object System.Drawing.Size(860,20) $VERPfadFeld.Add_KeyDown({ # Reaktion bei gedrueckter Taste $Taste = $_.KeyCode TastenReaktionPfadFeld "ver" $Taste }) $TabSeiteZielVerzeichnisAuswaehlen.Controls.Add($VERPfadFeld) # ListeOrdnernamen $VERListeOrdnernamen = New-Object System.Windows.Forms.ListBox $VERListeOrdnernamen.Location = New-Object System.Drawing.Size(10,40) $VERListeOrdnernamen.Size = New-Object System.Drawing.Size(860,20) $VERListeOrdnernamen.Height = 450 $VERListeOrdnernamen.Font = New-Object System.Drawing.Font("Arial",12,[System.Drawing.FontStyle]::Regular) $VERListeOrdnernamen.Add_DoubleClick({ # Variablen bestimmen zur uebergabe $Auswahl = $VERListeOrdnernamen.SelectedItem $Pfad = $VERPfadFeld.Text # Pfad aktualisieren VerzeichnisAuswaehlen "ver" $Pfad $Auswahl }) $VERListeOrdnernamen.Add_KeyDown({ # Reaktion bei gedrueckter Taste $Taste = $_.KeyCode TastenReaktionListeOrdnernamen "ver" $Taste }) $TabSeiteZielVerzeichnisAuswaehlen.Controls.Add($VERListeOrdnernamen) # ZurueckButton $VERZurueckButton = New-Object System.Windows.Forms.Button $VERZurueckButton.Location = New-Object System.Drawing.Size(10,500) $VERZurueckButton.Size = New-Object System.Drawing.Size(100,30) $VERZurueckButton.Text = "Zurueck" $VERZurueckButton.Add_Click({ # Write-Host "Pfad ausgabe: " $VERPfadFeld.Text $Pfad = $VERPfadFeld.Text #Pfad aktualisieren VerzeichnisZurueck "ver" $Pfad }) $VERZurueckButton.Add_KeyDown({ # Reaktion bei gedrueckter Taste $Taste = $_.KeyCode TastenReaktionButtons "ver" $Taste }) $TabSeiteZielVerzeichnisAuswaehlen.Controls.Add($VERZurueckButton) # AuswaehlenButton $VERAuswaehlenButton = New-Object System.Windows.Forms.Button $VERAuswaehlenButton.Location = New-Object System.Drawing.Size(630,500) $VERAuswaehlenButton.Size = New-Object System.Drawing.Size(100,30) $VERAuswaehlenButton.Text = "Auswaehlen" $VERAuswaehlenButton.Add_Click({ # Variablen bestimmen zur uebergabe $Auswahl = $VERListeOrdnernamen.SelectedItem $Pfad = $VERPfadFeld.Text if ($($VERListeOrdnernamen.Items[0] -eq "")) { VERAuswahlBestaetigt $Pfad $Auswahl } else { # Pfad aktualisieren VerzeichnisAuswaehlen "ver" $Pfad $Auswahl } }) $VERAuswaehlenButton.Add_KeyDown({ # Reaktion bei gedrueckter Taste $Taste = $_.KeyCode TastenReaktionButtons "ver" $Taste }) $TabSeiteZielVerzeichnisAuswaehlen.Controls.Add($VERAuswaehlenButton) # BestaetigenButton $VERBestaetigenButton = New-Object System.Windows.Forms.Button $VERBestaetigenButton.Location = New-Object System.Drawing.Size(750,500) $VERBestaetigenButton.Size = New-Object System.Drawing.Size(100,30) $VERBestaetigenButton.Text = "Bestaetigen" $VERBestaetigenButton.Add_Click({ $Auswahl = $VERListeOrdnernamen.SelectedItem $Pfad = $VERPfadFeld.Text VERAuswahlBestaetigt $Pfad $Auswahl }) $VERBestaetigenButton.Add_KeyDown({ # Reaktion bei gedrueckter Taste $Taste = $_.KeyCode TastenReaktionButtons "ver" $Taste }) $TabSeiteZielVerzeichnisAuswaehlen.Controls.Add($VERBestaetigenButton) # Tab: Ausgabe Fortschritt $TabSeiteFortschrittsanzeige = New-Object System.Windows.Forms.TabPage $TabSeiteFortschrittsanzeige.TabIndex = 2 $TabSeiteFortschrittsanzeige.UseVisualStyleBackColor = $true $TabSeiteFortschrittsanzeige.Text = "Bearbeitungsfortschritt" #Paddings $TabSeiteFortschrittsanzeige.DataBindings.DefaultDataSourceUpdateMode = 0 $TabBasis.Controls.Add($TabSeiteFortschrittsanzeige) #Todo: Ansicht ueberarbeiten! $FATextfeld1 = New-Object System.Windows.Forms.Label $FATextfeld1.Location = New-Object System.Drawing.Size(10,10) $FATextfeld1.Size = New-Object System.Drawing.Size(200,20) $FATextfeld1.Text = "Aktuelle Aufgabe" $TabSeiteFortschrittsanzeige.Controls.Add($FATextfeld1) $FATextfeld2 = New-Object System.Windows.Forms.Label $FATextfeld2.Location = New-Object System.Drawing.Size(300,10) $FATextfeld2.Size = New-Object System.Drawing.Size(430,20) $FATextfeld2.Text = "Erledigte Aufgaben" $TabSeiteFortschrittsanzeige.Controls.Add($FATextfeld2) $FATextfeldAktuelleAufgabe = New-Object System.Windows.Forms.Label $FATextfeldAktuelleAufgabe.Location = New-Object System.Drawing.Size(10,40) $FATextfeldAktuelleAufgabe.Size = New-Object System.Drawing.Size(280,60) $FATextfeldAktuelleAufgabe.Text = "txt-Datei auswaehlen" $TabSeiteFortschrittsanzeige.Controls.Add($FATextfeldAktuelleAufgabe) $FAListeErledigteAufgaben = New-Object System.Windows.Forms.ListBox $FAListeErledigteAufgaben.Location = New-Object System.Drawing.Size(300,40) $FAListeErledigteAufgaben.Size = New-Object System.Drawing.Size(430,20) $FAListeErledigteAufgaben.Height = 150 $FAListeErledigteAufgaben.Font = New-Object System.Drawing.Font("Arial",12,[System.Drawing.FontStyle]::Regular) $TabSeiteFortschrittsanzeige.Controls.Add($FAListeErledigteAufgaben) $FATextfeld3 = New-Object System.Windows.Forms.Label $FATextfeld3.Location = New-Object System.Drawing.Size(10,100) $FATextfeld3.Size = New-Object System.Drawing.Size(430,20) $FATextfeld3.Text = "Fortschritt Excel-Dateien beschreiben" $TabSeiteFortschrittsanzeige.Controls.Add($FATextfeld3) $FAFortschrittsbar = New-Object System.Windows.Forms.ProgressBar $FAFortschrittsbar.Location = New-Object System.Drawing.Size(10,120) $FAFortschrittsbar.Size = New-Object System.Drawing.Size(260,30) #$FAFortschrittsbar.Name = "Fortschrittsanzeige" $FAFortschrittsbar.Value = 0 $TabSeiteFortschrittsanzeige.Controls.Add($FAFortschrittsbar) $FATextfeldRealwertFortschrittsbar = New-Object System.Windows.Forms.Label # Wird verwendet, aber VSC erkennt das nicht $FATextfeld4 = New-Object System.Windows.Forms.Label $FATextfeld4.Location = New-Object System.Drawing.Size(10,170) $FATextfeld4.Size = New-Object System.Drawing.Size(140,20) $FATextfeld4.Text = "Bearbeitete Eintraege:" $TabSeiteFortschrittsanzeige.Controls.Add($FATextfeld4) $FATextfeld5 = New-Object System.Windows.Forms.Label $FATextfeld5.Location = New-Object System.Drawing.Size(10,200) $FATextfeld5.Size = New-Object System.Drawing.Size(100,20) $FATextfeld5.Text = "Gesamteintraege:" $TabSeiteFortschrittsanzeige.Controls.Add($FATextfeld5) $FATextfeldBearbeiteteEintraege = New-Object System.Windows.Forms.Label $FATextfeldBearbeiteteEintraege.Location = New-Object System.Drawing.Size(170,170) $FATextfeldBearbeiteteEintraege.Size = New-Object System.Drawing.Size(430,20) $FATextfeldBearbeiteteEintraege.Text = "0" $TabSeiteFortschrittsanzeige.Controls.Add($FATextfeldBearbeiteteEintraege) $FATextfeldGesamtEintraege = New-Object System.Windows.Forms.Label $FATextfeldGesamtEintraege.Location = New-Object System.Drawing.Size(170,200) $FATextfeldGesamtEintraege.Size = New-Object System.Drawing.Size(430,20) $TabSeiteFortschrittsanzeige.Controls.Add($FATextfeldGesamtEintraege) # Tab: Ausgabe doppelte Ein- und Ausgaenge sowie nicht zurordnebare Betriebsmittel $TabSeiteDuplikate = New-Object System.Windows.Forms.TabPage $TabSeiteDuplikate.TabIndex = 3 $TabSeiteDuplikate.UseVisualStyleBackColor = $true $TabSeiteDuplikate.Text = "Doppelte Ein- und Ausgaenge" #Paddings $TabSeiteDuplikate.DataBindings.DefaultDataSourceUpdateMode = 0 $TabBasis.Controls.Add($TabSeiteDuplikate) $DPTextfeld1 = New-Object System.Windows.Forms.Label $DPTextfeld1.Location = New-Object System.Drawing.Size(10,10) $DPTextfeld1.Size = New-Object System.Drawing.Size(275,40) $DPTextfeld1.Text = "Bei den Eingaengen gibt es folgende Duplikate: " $TabSeiteDuplikate.Controls.Add($DPTextfeld1) $DPListeEingaenge = New-Object System.Windows.Forms.DataGridView $DPListeEingaenge.Location = New-Object System.Drawing.Size(10,60) $DPListeEingaenge.Size = New-Object System.Drawing.Size(275,20) $DPListeEingaenge.Height = 430 $DPListeEingaenge.ColumnCount = 2 $DPListeEingaenge.ColumnHeadersVisible = $true $DPListeEingaenge.Columns[0].Name = "Zeile" $DPListeEingaenge.Columns[1].Name = "Kennzeichnung" $TabSeiteDuplikate.Controls.Add($DPListeEingaenge) $DPTextfeld2 = New-Object System.Windows.Forms.Label $DPTextfeld2.Location = New-Object System.Drawing.Size(295,10) $DPTextfeld2.Size = New-Object System.Drawing.Size(275,40) $DPTextfeld2.Text = "Bei den Ausgaengen gibt es folgende Duplikate: " $TabSeiteDuplikate.Controls.Add($DPTextfeld2) $DPListeAusgaenge = New-Object System.Windows.Forms.DataGridView $DPListeAusgaenge.Location = New-Object System.Drawing.Size(295,60) $DPListeAusgaenge.Size = New-Object System.Drawing.Size(275,20) $DPListeAusgaenge.Height = 430 $DPListeAusgaenge.ColumnCount = 2 $DPListeAusgaenge.ColumnHeadersVisible = $true $DPListeAusgaenge.Columns[0].Name = "Zeile" $DPListeAusgaenge.Columns[1].Name = "Kennzeichnung" $TabSeiteDuplikate.Controls.Add($DPListeAusgaenge) $DPTextfeld3 = New-Object System.Windows.Forms.Label $DPTextfeld3.Location = New-Object System.Drawing.Size(580,10) $DPTextfeld3.Size = New-Object System.Drawing.Size(275,40) $DPTextfeld3.Text = "Folgende Eintraege konnten keinem Betriebsmittel zugewiesen werden:" $TabSeiteDuplikate.Controls.Add($DPTextfeld3) $DPListeFehler = New-Object System.Windows.Forms.DataGridView $DPListeFehler.Location = New-Object System.Drawing.Size(580,60) $DPListeFehler.Size = New-Object System.Drawing.Size(275,20) $DPListeFehler.Height = 430 $DPListeFehler.ColumnCount = 2 $DPListeFehler.ColumnHeadersVisible = $true $DPListeFehler.Columns[0].Name = "Zeile" $DPListeFehler.Columns[1].Name = "Kennzeichnung" $TabSeiteDuplikate.Controls.Add($DPListeFehler) $DPBestaetigenButton = New-Object System.Windows.Forms.Button $DPBestaetigenButton.Location = New-Object System.Drawing.Size(10,500) $DPBestaetigenButton.Size = New-Object System.Drawing.Size(860,30) $DPBestaetigenButton.Text = "Programm beenden" $DPBestaetigenButton.Add_Click({ $Fenster.Dispose() return }) $TabSeiteDuplikate.Controls.Add($DPBestaetigenButton) # Tab: Einstellungen $TabSeiteEigenschaften = New-Object System.Windows.Forms.TabPage $TabSeiteEigenschaften.TabIndex = 0 $TabSeiteEigenschaften.UseVisualStyleBackColor = $true $TabSeiteEigenschaften.Text = "Einstellungen" #Paddings $TabSeiteEigenschaften.DataBindings.DefaultDataSourceUpdateMode = 0 $TabBasis.Controls.Add($TabSeiteEigenschaften) $BasisHoehe1 = 170 #80 #$BasisHoehe2 = $BasisHoehe1 + 20 #100 #$BasisHoehe2x = $BasisHoehe2 + 30 #130 #$BasisHoehe3 = $BasisHoehe2 + 65 #165 $BasisBreite1 = 10 #10 #$BasisBreite2 = $BasisBreite1 + 70 #80 #$BasisBreite3 = $BasisBreite2 + 60 #140 #$BasisBreite4 = $BasisBreite3 + 210 #350 #$BasisBreite5 = $BasisBreite4 + 55 #405 $ESTextfeld1 = New-Object System.Windows.Forms.Label $ESTextfeld1.Location = New-Object System.Drawing.Size($BasisBreite1,10) $ESTextfeld1.Size = New-Object System.Drawing.Size(200,20) $ESTextfeld1.Text = "Startverzeichnis Auswahl .txt-Datei:" $TabSeiteEigenschaften.Controls.Add($ESTextfeld1) $ESTextfeldStartPfad = New-Object System.Windows.Forms.Label $ESTextfeldStartPfad.Location = New-Object System.Drawing.Size(($BasisBreite1+200),10) $ESTextfeldStartPfad.Size = New-Object System.Drawing.Size(510,20) $TabSeiteEigenschaften.Controls.Add($ESTextfeldStartPfad) $ESStartPfadAendernButton = New-Object System.Windows.Forms.Button $ESStartPfadAendernButton.Location = New-Object System.Drawing.Size(730,10) $ESStartPfadAendernButton.Size = New-Object System.Drawing.Size(150,30) $ESStartPfadAendernButton.Text = "Aendern" $ESStartPfadAendernButton.Add_Click({ VerzeichnisAendern "StartPfad" }) $TabSeiteEigenschaften.Controls.Add($ESStartPfadAendernButton) $ESTextfeld2 = New-Object System.Windows.Forms.Label $ESTextfeld2.Location = New-Object System.Drawing.Size($BasisBreite1,45) $ESTextfeld2.Size = New-Object System.Drawing.Size(450,20) $ESTextfeld2.Text = "Startverzeichnis bei Auswahl des Zielverzeichnisses der Datei(en):" $TabSeiteEigenschaften.Controls.Add($ESTextfeld2) $ESRadioButtonWieTXT = New-Object System.Windows.Forms.RadioButton $ESRadioButtonWieTXT.Location = New-Object System.Drawing.Size(10,10) $ESRadioButtonWieTXT.Size = New-Object System.Drawing.Size(163,18) $ESRadioButtonWieTXT.Name = "ESRadioButtonWieTXT" $ESRadioButtonWieTXT.Text = "Gleich Startpfad .txt-Datei" $ESRadioButtonWieZieldatei = New-Object System.Windows.Forms.RadioButton $ESRadioButtonWieZieldatei.Location = New-Object System.Drawing.Size(173,10) $ESRadioButtonWieZieldatei.Size = New-Object System.Drawing.Size(179,18) $ESRadioButtonWieZieldatei.Name = "ESRadioButtonWieZieldatei" $ESRadioButtonWieZieldatei.Text = "Gleich gewaehlter .txt-Datei" $ESRadioButtonEigenerPfad = New-Object System.Windows.Forms.RadioButton $ESRadioButtonEigenerPfad.Location = New-Object System.Drawing.Size(352,10) $ESRadioButtonEigenerPfad.Size = New-Object System.Drawing.Size(94,18) $ESRadioButtonEigenerPfad.Name = "ESRadioButtonEigenerPfad" $ESRadioButtonEigenerPfad.Text = "Anderer Pfad" $ESGroupBoxRadioButtons = New-Object System.Windows.Forms.GroupBox $ESGroupBoxRadioButtons.Location = New-Object System.Drawing.Size(($BasisBreite1),60) $ESGroupBoxRadioButtons.Size = New-Object System.Drawing.Size(449,30) $ESGroupBoxRadioButtons.Controls.Add($ESRadioButtonWieTXT) $ESGroupBoxRadioButtons.Controls.Add($ESRadioButtonWieZieldatei) $ESGroupBoxRadioButtons.Controls.Add($ESRadioButtonEigenerPfad) $TabSeiteEigenschaften.Controls.Add($ESGroupBoxRadioButtons) $ESSpeichernButton = New-Object System.Windows.Forms.Button $ESSpeichernButton.Location = New-Object System.Drawing.Size(730,60) $ESSpeichernButton.Size = New-Object System.Drawing.Size(150,30) $ESSpeichernButton.Text = "Speichern" $ESSpeichernButton.Add_Click({ # Todo: Speichern #VerzeichnisAendern (ZielPfad) }) $TabSeiteEigenschaften.Controls.Add($ESSpeichernButton) $ESTextfeld3 = New-Object System.Windows.Forms.Label $ESTextfeld3.Location = New-Object System.Drawing.Size($BasisBreite1,95) $ESTextfeld3.Size = New-Object System.Drawing.Size(250,20) $ESTextfeld3.Text = "Startverzeichnis Auswahl Zielverzeichnis:" $ESTextfeldZielPfad = New-Object System.Windows.Forms.Label $ESTextfeldZielPfad.Location = New-Object System.Drawing.Size(($BasisBreite1+250),95) $ESTextfeldZielPfad.Size = New-Object System.Drawing.Size(460,20) $ESZielPfadAendernButton = New-Object System.Windows.Forms.Button $ESZielPfadAendernButton.Location = New-Object System.Drawing.Size(730,95) $ESZielPfadAendernButton.Size = New-Object System.Drawing.Size(150,30) $ESZielPfadAendernButton.Text = "Aendern" $ESZielPfadAendernButton.Add_Click({ VerzeichnisAendern "ZielPfad" }) #------------------- Tabelle mit ZielDateien $ESTextfeld4 = New-Object System.Windows.Forms.Label $ESTextfeld4.Location = New-Object System.Drawing.Size($BasisBreite1,140) $ESTextfeld4.Size = New-Object System.Drawing.Size(200,20) $ESTextfeld4.Text = "Zieldateien:" $TabSeiteEigenschaften.Controls.Add($ESTextfeld4) $ESAenderungenSpeichernButton = New-Object System.Windows.Forms.Button $ESAenderungenSpeichernButton.Location = New-Object System.Drawing.Size(730,$BasisHoehe1) $ESAenderungenSpeichernButton.Size = New-Object System.Drawing.Size(150,30) $ESAenderungenSpeichernButton.Text = "Aenderungen Speichern" $ESAenderungenSpeichernButton.Add_Click({ #Todo: Scheint nicht zu funktionieren Write-Host "Aenderungen speichern" EinstellungsDateiAktualisieren }) $TabSeiteEigenschaften.Controls.Add($ESAenderungenSpeichernButton) $ESListeEinstellungen = New-Object System.Windows.Forms.DataGridView $ESListeEinstellungen.Location = New-Object System.Drawing.Size(10,$BasisHoehe1) $ESListeEinstellungen.Size = New-Object System.Drawing.Size(650,380) $ESListeEinstellungen.ColumnCount = 4 $ESListeEinstellungen.ColumnHeadersVisible = $true $ESListeEinstellungen.AllowUserToAddRows = $true $ESListeEinstellungen.AllowUserToDeleteRows = $true $ESListeEinstellungen.AutoGenerateColumns = $false $ESListeEinstellungen.AutoSizeColumnsMode = "Fill" $ESListeEinstellungen.Columns[0].Name = "Prefix Eingang" $ESListeEinstellungen.Columns[1].Name = "Prefix Ausgang" $ESListeEinstellungen.Columns[2].Name = "Dateiname" $ESListeEinstellungen.Columns[3].Name = "Konvertierungsart" $TabSeiteEigenschaften.Controls.Add($ESListeEinstellungen) AnzeigeEinstellungenInitialisieren $Fenster.Add_Shown({$Fenster.Activate()}) [void]$Fenster.ShowDialog() return } #------------------- Funktion nur fuer das txt-GUI -------------------------- Function TXTReaktionReturn ($Pfad) { if (PfadExistiert $Pfad) { # Gueltiger Pfad oder .txt-Datei $PfadEnde = $(Split-Path $Pfad -Leaf) if ($($PfadEnde -match ".txt")) { ZuVERSpringen # Ist zwar sachlich gesehen unsinn, aber sonst funktioniert Return in der GUI nicht richtig $TXTPfadFeld.Text = $Pfad return } else { AnzeigeAktualisieren "txt" $Pfad } } else { # Laufwerke aktualisieren oder ungueltiger Pfad AnzeigeAktualisieren "txt" "" } return } #------------------- Funktion nur fuer das VerzeichnisWaehlen-GUI -------------------------- # Fuehrt $Pfad und $Auswahl zusammen und ueberprueft ob der daraus resultierte neue Pfad vorhanden ist. Falls dies der Fall ist, wird in den Bereich der Fortschrittsanzeige gewechselt Function VERAuswahlBestaetigt($Pfad, $Auswahl) { $Pfad = Join-Path -Path $Pfad -ChildPath $Auswahl -Resolve if (PfadExistiert $Pfad) { ZuFASpringen $VERPfadfeld.Text = $Pfad return } } Function VERVorauswahlAnzeigeAktualisieren () { # Todo: Soll evtl. in AnzeigeAktualisieren migriert werden. Problem: Innerhalb der Verzeichniswahl koennte man dann evtl. nicht mehr navigieren. $RadioButton = RadioButtonHolen switch ($RadioButton) { EigenerPfad { $ZielPfad = ZielPfadHolen AnzeigeAktualisieren "ver" $ZielPfad } WieTXT { $StartPfad = StartPfadHolen AnzeigeAktualisieren "ver" $StartPfad } WieZielDatei { AnzeigeAktualisieren "ver" $TXTPfadFeld.Text } Default { AnzeigeAktualisieren "ver" $TXTPfadFeld.Text } } } #------------------- Funktionen zum wechseln der Tabs -------------------------- Function ZuVERSpringen { VERVorauswahlAnzeigeAktualisieren AufgabenAktualisieren "Zielverzeichnis auswaehlen" Write-Host "Gewaehlte txt-Datei: " $TXTPfadFeld.Text $TabBasis.SelectedIndex = 1 } Function ZuFASpringen { Write-Host "Gewaehltes Zielverzeichnis: " $VERPfadFeld.Text $TabBasis.SelectedIndex = 2 $ZielDateien = ZielDateienHolen $PfadUrsprungsdatei = $TXTPfadFeld.Text $PfadZielDateien = $VERPfadFeld.Text $AnzahlZielDateien = $ZielDateien.count Write-Host "Anzahl ZielDateien: " $AnzahlZielDateien foreach ($ZielDatei in $ZielDateien) { AufgabenAktualisieren $("Zieldatei " + $ZielDatei.DateiName + " bearbeiten") $ZielPfad = ExcelDateiNameErstellen $($ZielDatei.DateiName) $PfadUrsprungsdatei $PfadZielDateien AufgabenAktualisieren $("Excel Datei erstellen im Verzeichnis " + $ZielPfad) ExcelDateiErstellen $ZielPfad if ($($ZielDatei.WandlungsTyp) -eq "TIA") { $Gleiche = ExcelDateiBeschreibenTIA $PfadUrsprungsdatei $($ZielDatei.PrefixEingang) $($ZielDatei.PrefixAusgang) $ZielPfad } elseif ($($ZielDatei.WandlungsTyp) -eq "Simpel") { $Gleiche = ExcelDateiBeschreibenSimpel $PfadUrsprungsdatei $($ZielDatei.PrefixEingang) $($ZielDatei.PrefixAusgang) $ZielPfad } elseif ($($ZielDatei.WandlungsTyp) -eq "WSCAD") { $Gleiche = ExcelDateiBeschreibenWSCAD $PfadUrsprungsdatei $($ZielDatei.PrefixEingang) $($ZielDatei.PrefixAusgang) $ZielPfad } else { Write-Host "Fehler bei Wandlungsart! Fuehre Simpel-Wandlung durch" $Gleiche = ExcelDateiBeschreibenSimpel $PfadUrsprungsdatei $($ZielDatei.PrefixEingang) $($ZielDatei.PrefixAusgang) $ZielPfad } } $GleicheEingaenge = $Gleiche[0] $GleicheAusgaenge = $Gleiche[1] $Fehler = $Gleiche[2] Write-Host "Gleiche Eingaenge: " $GleicheEingaenge Write-Host "Gleiche Ausgaenge: " $GleicheAusgaenge Write-Host "Fehler: " $Fehler AufgabenAktualisieren "Ausgabe Duplikate" ZuDPSpringen $GleicheEingaenge $GleicheAusgaenge $Fehler } Function ZuDPSpringen ($GleicheEingaenge, $GleicheAusgaenge, $Fehler) { foreach ($GleichenEingang in $GleicheEingaenge) { $DPListeEingaenge.Rows.Add($($GleichenEingang.Zeile),($GleichenEingang.Name)) } foreach ($GleichenAusgang in $GleicheAusgaenge) { $DPListeAusgaenge.Rows.Add($($GleichenAusgang.Zeile),($GleichenAusgang.Name)) } foreach ($Fehlen in $Fehler) { $DPListeFehler.Rows.Add($($Fehlen.Zeile),($Fehlen.Name)) } $TabBasis.SelectedIndex = 3 # Werte zuruecksetzen, um weitere durchlauefe zu ermoeglichen # Todo: Fehler und Duplikate zuruecksetzen!!! VERVorauswahlAnzeigeAktualisieren AnzeigeAktualisieren "txt" $($ESTextfeldStartPfad.Text) $FAFortschrittsbar.Value = 0 $FATextfeldBearbeiteteEintraege.Text = "0" } #------------------- Funktionen fuer alle GUIs -------------------------- # Bekommt Pfad, stellt fest ob Laufwerke oder Ordner angezeigt werden muessen und aktualisiert entsprechend alles # Um die Laufwerke anzuzeigen, muss der $Pfad = "" sein Function AnzeigeAktualisieren ($AuswahlTyp, $Pfad) { # Ueberpruefen, ob es das Verzeichnis gibt if (PfadExistiert $Pfad) { Write-Host "Ordner anzeigen" $Optionen = Optionen $AuswahlTyp $Pfad } elseif ($Pfad.Length -eq 0) { Write-Host "Laufwerke anzeigen" $Optionen = LaufwerkeFinden $Pfad = "" } else { AnzeigeAktualisieren $AuswahlTyp "" return } if ($($AuswahlTyp -eq "txt")) { $TXTPfadFeld.Text = $Pfad $TXTListeOrdnernamen.Items.Clear() foreach ($Option in $Optionen) { if ($Option.Length -gt 0) { $TXTListeOrdnernamen.Items.Add($Option) } } } elseif ($($AuswahlTyp -eq "ver")) { $VERPfadFeld.Text = $Pfad $VERListeOrdnernamen.Items.Clear() foreach ($Option in $Optionen) { if ($Option.Length -gt 0) { $VERListeOrdnernamen.Items.Add($Option) } } } return } Function VerzeichnisAuswaehlen ($AuswahlTyp, $Pfad, $Auswahl) { if (PfadExistiert $Pfad) { $Pfad = Join-Path -Path $Pfad -ChildPath $Auswahl -Resolve } elseif ($Pfad.Length -eq 0) { #Wenn der Pfad die Laenge 0 hat, wurde ein Laufwerk gewaehlt $Pfad = $Auswahl } else { #Fehlerfall/ ungueltiger Pfad: zurueck zu Laufwerken navigieren $Pfad = "" } # Erkennen, ob *.txt-Datei gewaehlt wurde -> ggf. Auswahl abgeschlossen if ($($($Auswahl -match ".txt") -and $($AuswahlTyp -eq "txt"))) { # Fuer den Gesamtfortschritt Anzahl Dateien auslesen und mit der Anzahl der zu erstellenden Dateien multiplizieren $Datei = Get-Content $Pfad $ZielDateien = ZielDateienHolen $FATextfeldGesamtEintraege.Text = $($ZielDateien.count) * $($Datei.Length) # Write-Host ".txt-Datei ausgewaehlt, Pfad: " $Pfad # Write-Host "Dateityp: " $Pfad.GetType() ZuVERSpringen # Ist zwar sachlich gesehen unsinn, aber sonst funktioniert Return in der GUI nicht $TXTPfadFeld.Text = $Pfad return } AnzeigeAktualisieren $AuswahlTyp $Pfad return } Function VerzeichnisZurueck ($AuswahlTyp, $Pfad) { if ($Pfad.Length -gt 3) { # Weiter mit Ordnern $Pfad = Split-Path $Pfad } elseif ($Pfad.Length -le 3) { # Weiter mit Laufwerken # Write-Host "Laufwerke anzeigen" $Pfad = "" } else { Write-Host "Fehler bei Verzeichnis zurueck" # Fehler/ Nichts tun? # Ermitteln: wann tritt dieser Fall ein? $Pfad = "" } AnzeigeAktualisieren $AuswahlTyp $Pfad return } Function TastenReaktionPfadFeld($AuswahlTyp, $Taste) { # Write-Host "Uebergebene Taste: " $Taste if ($AuswahlTyp -eq "txt") { switch ($Taste){ "Return" { # Write-Host "Enter gedrueckt" $Pfad = $TXTPfadFeld.Text # Write-Host "Pfad: " $Pfad TXTReaktionReturn $Pfad } Default { # Write-Host "Gedrueckte Taste: " $Taste } } } elseif ($AuswahlTyp -eq "ver") { switch ($Taste) { "Return" { $Pfad = $VERPfadFeld.Text AnzeigeAktualisieren "ver" $Pfad } Default { # Write-Host "Gedrueckte Taste: " $Taste } } } return } Function TastenReaktionListeOrdnernamen($AuswahlTyp, $Taste) { # Write-Host "Uebergebene Taste: " $Taste if ($AuswahlTyp -eq "txt"){ switch ($Taste){ "Return" { # Write-Host "Enter gedrueckt" $Auswahl = $TXTListeOrdnernamen.SelectedItem $Pfad = $TXTPfadFeld.Text VerzeichnisAuswaehlen $AuswahlTyp $Pfad $Auswahl } "Back" { $Pfad = $TXTPfadFeld.Text # Pfad aktualisieren VerzeichnisZurueck $AuswahlTyp $Pfad } Default { # Write-Host "Gedrueckte Taste: " $Taste } } } elseif ($AuswahlTyp -eq "ver") { switch ($Taste) { "Return" { $Auswahl = $VERListeOrdnernamen.SelectedItem $Pfad = $VERPfadFeld.Text VerzeichnisAuswaehlen $AuswahlTyp $Pfad $Auswahl } "Back" { $Pfad = $VERPfadFeld.Text VerzeichnisZurueck $AuswahlTyp $Pfad } "ShiftKey" { $Pfad = $VERPfadFeld.Text $Auswahl = $VERListeOrdnernamen.SelectedItem ReaktionShiftKey $Pfad $Auswahl } Default { # Write-Hoste "Gedrueckte Taste: " $Taste } } } return } Function TastenReaktionButtons($AuswahlTyp, $Taste) { if ($AuswahlTyp -eq "txt") { switch ($Taste){ "Back" { $Pfad = $TXTPfadFeld.Text # Pfad aktualisieren VerzeichnisZurueck $AuswahlTyp $Pfad } Default { # Write-Host "Gedrueckte Taste: " $Taste } } } elseif ($AuswahlTyp -eq "ver") { switch ($Taste) { "Back" { $Pfad = $VERPfadFeld.Text VerzeichnisZurueck $AuswahlTyp $Pfad } "ShiftKey" { $Pfad = $VERPfadFeld.Text $Auswahl = $VERListeOrdnernamen.SelectedItem ReaktionShiftKey $Pfad $Auswahl } Default { # Write-Host "Gedrueckte Taste: " $Taste } } } return } Function Optionen($AuswahlTyp, $Pfad) { # Unterordner und .txt-Dateien finden # Typzuweisung noetig, da aus unbekanntem Grund sonst Unterordner, die mit "_" beginnen, nicht gefunden werden koennen [System.Object[]]$UnterOrdner = UnterOrdnerFinden $Pfad if ($AuswahlTyp -eq "txt") { $TxtDateien = TxtDateienFinden $Pfad #Gibt aktuell auch Index und Typ (System.IO.DirectoryInfo bzw. System.String) zurueck $Optionen = $UnterOrdner + $TxtDateien } elseif ($AuswahlTyp -eq "ver") { #Gibt aktuell auch Index und Typ (System.IO.DirectoryInfo bzw. System.String) zurueck $Optionen = $UnterOrdner } return $Optionen } Function PfadExistiert ($Pfad) { # Um Abzufangen, dass Test-Path mit leerem Wert durchlaufen wird. Leere Verzeichnisse gelten als ungueltig. if ($Pfad.Length -eq 0) { return $false } if ($(Test-Path $Pfad -PathType Container) -or $(Test-Path $Pfad -Include "*.txt")) { return $true } else { return $false } } Function LaufwerkeFinden() { $Laufwerke = $(Get-PSDrive | Where-Object {$_.Free}).Name $i = 0 foreach($Laufwerk in $Laufwerke) { $Laufwerke[$i] = $Laufwerk + ":\" $i++ } return $Laufwerke } Function UnterOrdnerFinden($Pfad) { $UnterOrdner = $(Get-ChildItem $Pfad -Directory) if ($($UnterOrdner.Length -gt 0)) { $Ordner = $(Split-Path $UnterOrdner -Leaf) } else { $Ordner = "" } return $Ordner } Function TxtDateienFinden($Pfad) { $TxtDateien = $(Get-Childitem $Pfad\*.txt) if ($TxtDateien.Length -gt 0) { return $(Split-Path $TxtDateien -Leaf) } else { return } } Function ReaktionShiftKey ($Pfad, $Auswahl) { if (PfadExistiert $Pfad) { VERAuswahlBestaetigt $Pfad $Auswahl } else { AnzeigeAktualisieren "ver" "" } return } Function AufgabenAktualisieren ($Aufgabe) { $FAListeErledigteAufgaben.Items.Add($FATextfeldAktuelleAufgabe.Text) $FATextfeldAktuelleAufgabe.Text = $Aufgabe } Function DateiBeschreibenAktualisieren { $AnteilJeBeschriftung = 100 / $($FATextfeldGesamtEintraege.Text) [System.double] $FATextfeldRealwertFortschrittsbar.Text += $AnteilJeBeschriftung #Da $FAFortschrittsbar.Value anscheinend ein int ist, ist der letzte Wert i. d. R. hoeher als 100 -> Fehler, der hiermit abgefangen wird if ($([System.Double]$FATextfeldRealwertFortschrittsbar.Text) -ge 100) { $FAFortschrittsbar.Value = 100 } else { $FAFortschrittsbar.Value = $FATextfeldRealwertFortschrittsbar.Text } [System.Int64] $BearbeiteteEintraege = $FATextfeldBearbeiteteEintraege.Text $BearbeiteteEintraege++ $FATextfeldBearbeiteteEintraege.Text = $BearbeiteteEintraege } #--------------------------------------- Start Funktionen fuer Einstellungen ------------------------------- Function PfadEinstellungsDateiHolen () { # Koennte man eigentlich in einer Zeile machen, PS macht da aber Probleme $AktuellesVerzeichnis = Get-Location $PfadEinstellungsDatei = $("$AktuellesVerzeichnis\" + "EinstellungenSkriptKonvertierung.txt") Write-Host "Pfad Einstellungsdatei in Funktion: " $PfadEinstellungsDatei return $PfadEinstellungsDatei # if (Test-Path $PfadEinstellungsDatei) { # return $PfadEinstellungsDatei # } # else { # return EinstellungsDateiErstellen # } } Function InhalteEinstellungsDateiHolen () { # Koennte man eigentlich in einer Zeile machen, PS macht da aber Probleme $PfadEinstellungsDatei = PfadEinstellungsDateiHolen Write-Host "Pfad Einstellungsdatei: " $PfadEinstellungsDatei if (Test-Path $PfadEinstellungsDatei) { } else { $A = EinstellungsDateiErstellen Write-Host "A-Holder: $A" } $EinstellungsInhalte = Get-Content $PfadEinstellungsDatei Write-Host "Dateipfad Einstellungsdatei: $PfadEinstellungsDatei" Write-Host "Zurueckgegebene Einstellungsdatei: $EinstellungsInhalte" return $EinstellungsInhalte } Function StartPfadHolen () { $EinstellungsZeilen = InhalteEinstellungsDateiHolen $PfadEinstellungsDatei = PfadEinstellungsDateiHolen foreach ($EinstellungsZeile in $EinstellungsZeilen) { $EinstellungsBestandteile = $EinstellungsZeile.Split("|") if ($EinstellungsBestandteile[0] -eq "StartPfad") { $StartPfad = $EinstellungsBestandteile[1] return $StartPfad } } # Falls kein StartPfad gefunden wurde, soll der Pfad der Einstellungsdatei als Pfad angegeben werden $StartPfad = Split-Path $PfadEinstellungsDatei Add-Content $PfadEinstellungsDatei $("StartPfad|" + $StartPfad) #Write-Host "Zurueckgegebener StartPfad: " $StartPfad return $StartPfad } Function ZielPfadHolen () { $EinstellungsZeilen = InhalteEinstellungsDateiHolen $PfadEinstellungsDatei = PfadEinstellungsDateiHolen foreach ($EinstellungsZeile in $EinstellungsZeilen) { $EinstellungsBestandteile = $EinstellungsZeile.Split("|") if ($EinstellungsBestandteile[0] -eq "ZielPfad") { $ZielPfad = $EinstellungsBestandteile[1] return $ZielPfad } } # Falls kein ZielPfad gefunden wurde, soll der Pfad des StartVerzeichnisses als Pfad angegeben werden $ZielPfad = StartPfadHolen Add-Content $PfadEinstellungsDatei $("ZielPfad|" + $ZielPfad) #Write-Host "Zurueckgegebener StartPfad: " $StartPfad return $ZielPfad } Function RadioButtonHolen () { $EinstellungsZeilen = InhalteEinstellungsDateiHolen $PfadEinstellungsDatei = PfadEinstellungsDateiHolen foreach ($EinstellungsZeile in $EinstellungsZeilen) { $EinstellungsBestandteile = $EinstellungsZeile.Split("|") if ($EinstellungsBestandteile[0] -eq "VerzeichnisWahl") { $RadioButton = $EinstellungsBestandteile[1] return $RadioButton } } # Falls kein VerzeichnisWahl gefunden wurde, soll die Einstellung auf gleich gesetzt werden Add-Content $PfadEinstellungsDatei $("VerzeichnisWahl|WieZielDatei") return "Gleich" } Function ZielDateienHolen () { $PfadEinstellungsDatei = PfadEinstellungsDateiHolen # Ueberpruefen, ob Einstellungsdatei vorhanden ist, ggf. erstellen if (Test-Path $PfadEinstellungsDatei) { # Einstellungsdatei vorhanden -> auslesen $EinstellungsInhalte = InhalteEinstellungsDateiHolen foreach ($EinstellungsZeile in $EinstellungsInhalte) { $EinstellungsInhalt = $EinstellungsZeile.Split("|") if ($EinstellungsInhalt[0] -eq "Datei") { $ZielDateien += @([PSCustomObject]@{ PrefixEingang = $EinstellungsInhalt[1] PrefixAusgang = $EinstellungsInhalt[2] DateiName = $EinstellungsInhalt[3] WandlungsTyp = $EinstellungsInhalt[4] }) } } $ZielDateienSicher = ZielDateienCheck $ZielDateien return $ZielDateienSicher } else { return EinstellungsDateiErstellen } } Function ZielDateienCheck ($ZielDateien) { # Macht aktuell nur begrenzt Sinn. Haupt-Funktion: Intern die Werte korrigiern und beim speichern von neuen Werten nur richtige Werte abspeichern. Ausgegeben werden weiterhin falsche Werte! Todo foreach ($ZielDatei in $ZielDateien) { if ($ZielDatei.PrefixEingang.Length -gt 3) { Write-Host "Ungewoehnlich langen Prefix bei Eingang gefunden: " $ZielDatei.PrefixEingang $ZielDatei.PrefixEingang = $ZielDatei.PrefixEingang.Substring(0,3) } if ($ZielDatei.PrefixAusgang.Length -gt 3) { Write-Host "Ungewoehnlich langen Prefix bei Ausgang gefunden: " $ZielDatei.PrefixAusgang $ZielDatei.PrefixAusgang = $ZielDatei.PrefixAusgang.Substring(0,3) } if ($ZielDatei.DateiName.Length -gt 150) { Write-Host "Gefaehrlich langer Dateiname gefunden: " $ZielDatei.DateiName $ZielDatei.DateiName = $ZielDatei.DateiName.Substring(0,150) } if (($ZielDatei.WandlungsTyp -ne "TIA") -and ($ZielDatei.WandlungsTyp -ne "WSCAD") -and ($ZielDatei.WandlungsTyp -ne "Simpel")) { Write-Host "Falschen Wandlungstyp gefunden: " $ZielDatei.WandlungsTyp $ZielDatei.WandlungsTyp = "Simpel" } $GepruefteZielDateien += @([PSCustomObject]@{ PrefixEingang = $ZielDatei.PrefixEingang PrefixAusgang = $ZielDatei.PrefixAusgang DateiName = $ZielDatei.DateiName WandlungsTyp = $ZielDatei.WandlungsTyp }) } return $GepruefteZielDateien } Function EinstellungsDateiErstellen () { $PfadEinstellungsDatei = PfadEinstellungsDateiHolen Write-Host "Funktion EinstellungsDateiErstellen ist gestartet..." # Todo: Umbauen: Eintraege via EinstellungsDateiAktualisieren hinzufuegen(?) # Todo: Moegliches Problem mit der Funktion "StartVerzeichnisAktualisieren". Ueberpruefen! New-Item $PfadEinstellungsDatei -ItemType File $StartPfad = Get-Location $ZielDateien = @([PSCustomObject]@{ PrefixEingang = "E" PrefixAusgang = "A" DateiName = "WSCAD_[Ursprungsdatei]" WandlungsTyp = "WSCAD" }) $ZielDateien += @([PSCustomObject]@{ PrefixEingang = "%I" PrefixAusgang = "%Q" DateiName = "TIA_[Ursprungsdatei]" WandlungsTyp = "TIA" }) $ZielDateien += @([PSCustomObject]@{ PrefixEingang = "E" PrefixAusgang = "A" DateiName = "EA_[Ursprungsdatei]" WandlungsTyp = "Simpel" }) Add-Content $PfadEinstellungsDatei "Hinweise zur Einstellungsdatei: " Add-Content $PfadEinstellungsDatei "1) Jeder Eintrag wird durch senkrechte Striche (|) geteilt. Der erste Bereich gibt die Art des Eintrags an." Add-Content $PfadEinstellungsDatei " Moegliche Werte sind 'StartPfad' und 'Datei'. Es sollte nur ein StartPfad angegeben sein. Sind mehrere Angegeben," Add-Content $PfadEinstellungsDatei " wird der erste verwendet. Es koennen beliebig viele Dateien angegeben werden." Add-Content $PfadEinstellungsDatei "2) Die rechte Spalte bei Dateien gibt das Konvertierungsformat fuer diese Datei an. Moeglich sind 'TIA', 'WSCAD'" Add-Content $PfadEinstellungsDatei " und 'Simpel'. Ist ein falscher oder kein Wert angegeben, wird automatisch in 'Simpel' konvertiert." Add-Content $PfadEinstellungsDatei "3) Die zweite Spalte von rechts bei Dateien gibt den Zieldateinamen an. Ist darin [Ursprungsdatei] enthalten," Add-Content $PfadEinstellungsDatei " wird dieser Teil durch den Namen der txt-Datei ersetzt, von der die Daten konvertiert werden." Add-Content $PfadEinstellungsDatei "Nutzung des Konvertierers auf eigene Gefahr und ohne Haftungsuebernahme bei Schaeden!" Add-Content $PfadEinstellungsDatei $("StartPfad|" + $StartPfad) Add-Content $PfadEinstellungsDatei $("VerzeichnisWahl|WieZielDatei") Add-Content $PfadEinstellungsDatei $("ZielPfad|" + $StartPfad) foreach ($ZielDatei in $ZielDateien) { Add-Content $PfadEinstellungsDatei $("Datei|" + $ZielDatei.PrefixEingang + "|" + $ZielDatei.PrefixAusgang + "|" + $ZielDatei.DateiName + "|" + $ZielDatei.WandlungsTyp) } Write-Host "Funktion EinstellungsDateiErstellen ist abgeschlossen." return $ZielDateien } Function AnzeigeEinstellungenInitialisieren () { # Neue Werte sollen nicht uebergeben werden, sondern aus der Einstellungsdatei ausgelesen werden, um Fehler zu vermeiden. # Einzige Voraussetzung: es muss eine Einstellungsdatei geben! # Erstellen der neuen Eintraege $EinstellungsInhalte = InhalteEinstellungsDateiHolen foreach ($EinstellungsZeile in $EinstellungsInhalte) { $EinstellungsBestandteile = $EinstellungsZeile.Split("|") if ($EinstellungsBestandteile[0] -eq "Datei") { $ESListeEinstellungen.Rows.Add($($EinstellungsBestandteile[1]),$($EinstellungsBestandteile[2]),$($EinstellungsBestandteile[3]),$($EinstellungsBestandteile[4])) } } $StartPfad = StartPfadHolen $ESTextfeldStartPfad.Text = $StartPfad # Radio-Button Einstellung und daraus folgend Anzeige der Zielverzeichnis-Schaltfläche $RadioButton = RadioButtonHolen switch ($RadioButton) { EigenerPfad { $ESRadioButtonEigenerPfad.Checked = $true $TabSeiteEigenschaften.Controls.Add($ESTextfeld3) $TabSeiteEigenschaften.Controls.Add($ESTextfeldZielPfad) $TabSeiteEigenschaften.Controls.Add($ESZielPfadAendernButton) $ZielPfad = ZielPfadHolen $ESTextfeldZielPfad.Text = $ZielPfad } WieTXT { $ESRadioButtonWieTXT.Checked = $true } WieZielDatei { $ESRadioButtonWieZieldatei.Checked = $true } Default { $ESRadioButtonWieZieldatei.Checked = $true } } } Function VerzeichnisAendern ($Bereich) { $Explorer = New-Object System.Windows.Forms.FolderBrowserDialog $Explorer.ShowDialog() $Pfad = $Explorer.SelectedPath $DateiInhalt = InhalteEinstellungsDateiHolen $PfadEinstellungsDatei = PfadEinstellungsDateiHolen Clear-Content $PfadEinstellungsDatei foreach ($DateiZeile in $DateiInhalt) { $DateiBestandTeile = $DateiZeile.Split("|") if ($DateiBestandTeile[0] -eq $Bereich) { $DateiBestandTeile[1] = $Pfad $DateiZeile = $($DateiBestandTeile[0] + "|" + $DateiBestandTeile[1]) } Write-Host "DateiZeile: " $DateiZeile Add-Content $PfadEinstellungsDatei $DateiZeile } # Ansichten aktualisieren zum neuen Startverzeichnis AnzeigeAktualisieren "txt" $Pfad VERVorauswahlAnzeigeAktualisieren $ESTextfeldStartPfad.Text = $Pfad } Function RadioButtonSpeichern () { # Todo # In Einstellungsdatei speichern # Todo: Inhalte erzeugen (if, elseif, else) $DateiInhalt = InhalteEinstellungsDateiHolen $PfadEinstellungsDatei = PfadEinstellungsDateiHolen Clear-Content $PfadEinstellungsDatei foreach ($DateiZeile in $DateiInhalt) { $DateiBestandTeile = $DateiZeile.Split("|") if ($DateiBestandTeile[0] -eq "VerzeichnisWahl") { $DateiBestandTeile[1] = $Pfad $DateiZeile = $($DateiBestandTeile[0] + "|" + $DateiBestandTeile[1]) } Write-Host "DateiZeile: " $DateiZeile Add-Content $PfadEinstellungsDatei $DateiZeile } # Ansicht Einstellungen ggf. ausblenden # Ansicht ver aktualisieren } Function EinstellungsDateiAktualisieren () { # Erstellen von $ZielDateien for ($i = 0; $i -lt ($ESListeEinstellungen.RowCount-1); $i++) { $ZielDateien += @([PSCustomObject]@{ PrefixEingang = $ESListeEinstellungen.Rows[$i].Cells[0].Value PrefixAusgang = $ESListeEinstellungen.Rows[$i].Cells[1].Value DateiName = $ESListeEinstellungen.Rows[$i].Cells[2].Value WandlungsTyp = $ESListeEinstellungen.Rows[$i].Cells[3].Value }) } $ZielDateien = ZielDateienCheck $ZielDateien Write-Host "ZielDateien: " $ZielDateien # Schreiben in Einstellungsdatei $StartPfad = StartPfadHolen $PfadEinstellungsDatei = PfadEinstellungsDateiHolen # Loeschen der Inhalte der Einstellungsdatei Clear-Content $PfadEinstellungsDatei Write-Host "StartPfad: " $StartPfad " Pfad Einstellungsdatei: " $PfadEinstellungsDatei Add-Content $PfadEinstellungsDatei $("StartPfad|" + $StartPfad) foreach ($ZielDatei in $ZielDateien) { Add-Content $PfadEinstellungsDatei $("Datei|" + $ZielDatei.PrefixEingang + "|" + $ZielDatei.PrefixAusgang + "|" + $ZielDatei.DateiName + "|" + $ZielDatei.WandlungsTyp) } # Anzeige in Einstellungen aktualisieren # UngespeichterteAenderungen reseten! } #--------------------------------------- Ende Funktionen fuer GUI ------------------------------- Function ExcelDateiNameErstellen ($EingestellterName, $PfadUrsprungsdatei, $PfadZielDatei) { $NameUrsprungsdatei = Split-Path $PfadUrsprungsdatei -Leaf $NameUrsprungsdateiLaenge = $NameUrsprungsdatei.Length $NameUrsprungsdateiKurz = $NameUrsprungsdatei.Substring(0, $($NameUrsprungsdateiLaenge - 4)) $GesamtPfadZielDatei = $PfadZielDatei + "\" + $EingestellterName.Replace("[Ursprungsdatei]",$NameUrsprungsdateiKurz) + ".xlsx" return $GesamtPfadZielDatei } Function ExcelDateiErstellen ($DateiPfad) { $Datei = New-Object -ComObject Excel.Application $Mappe = $Datei.Workbooks.Add() $Mappe.SaveAs($DateiPfad) $Datei.Quit() return } Function ExcelDateiBeschreibenSimpel ($PfadUrsprungsdatei, $PrefixEingang, $PrefixAusgang, $ZielDatei) { $Datei = New-Object -ComObject Excel.Application $Mappe = $Datei.Workbooks.Open($ZielDatei) $Blatt = $Mappe.WorkSheets.item(1) $Datei.Visible = $false $i = 1 $Eingaenge = @() $ZuEingang = @("FDI", "B", "S", "E", "I", "DI", "BA", "BB", "BC", "BD", "BE", "BF", "BG", "BH", "BJ", "BK", "BL", "BM", "BN", "BP", "BQ", "BR", "BS", "BT", "BU", "BV", "BW", "BX", "BY", "BZ", "FA", "FB", "FC", "FD", "FE", "FF", "FG", "FH", "FJ", "FK", "FL", "FM", "FN", "FP", "FQ", "FR", "FS", "FT", "FU", "FV", "FW", "FX", "FY", "FZ", "SA", "SB", "SC", "SD", "SE", "SF", "SG", "SH", "SJ", "SK", "SL", "SM", "SN", "SP", "SQ", "SR", "SS", "ST", "SU", "SV", "SW", "SX", "SY", "SZ") $Ausgaenge = @() $ZuAusgang = @("K", "O", "Q", "M", "A", "P", "DQ", "CA", "CB", "CC", "CD", "CE", "CF", "CG", "CH", "CJ", "CK", "CL", "CM", "CN", "CP", "CQ", "CR", "CS", "CT", "CU", "CV", "CW", "CX", "CY", "CZ", "EA", "EB", "EC", "ED", "EE", "EF", "EG", "EH", "EJ", "EK", "EL", "EM", "EN", "EP", "EQ", "ER", "ES", "ET", "EU", "EV", "EW", "EX", "EY", "EZ", "GA", "GB", "GC", "GD", "GE", "GF", "GG", "GH", "GJ", "GK", "GL", "GM", "GN", "GP", "GQ", "GR", "GS", "GT", "GU", "GV", "GW", "GX", "GY", "GZ", "HA", "HB", "HC", "HD", "HE", "HF", "HG", "HH", "HJ", "HK", "HL", "HM", "HN", "HP", "HQ", "HR", "HS", "HT", "HU", "HV", "HW", "HX", "HY", "HZ", "KA", "KB", "KC", "KD", "KE", "KF", "KG", "KH", "KJ", "KK", "KL", "KM", "KN", "KP", "KQ", "KR", "KS", "KT", "KU", "KV", "KW", "KX", "KY", "KZ", "MA", "MB", "MC", "MD", "ME", "MF", "MG", "MH", "MJ", "MK", "ML", "MM", "MN", "MP", "MQ", "MR", "MQ", "MR", "MS", "MT", "MU", "MV", "MW", "MX", "MY", "MZ", "PA", "PB", "PC", "PD", "PE", "PF", "PG", "PH", "PJ", "PK", "PL", "PM", "PN", "PP", "PQ", "PR", "PS", "PT", "PU", "PV", "PW", "PX", "PY", "PZ", "QA", "QB", "QC", "QD", "QE", "QF", "QG", "QH", "QJ", "QK", "QL", "QM", "QN", "QP", "QQ", "QR", "QS", "QT", "QU", "QV", "QW", "QX", "QY", "QZ", "RA", "RB", "RC", "RD", "RE", "RF", "RG", "RH", "RJ", "RK", "RL", "RM", "RN", "RP", "RQ", "RR", "RS", "RT", "RU", "RV", "RW", "RX", "RY", "RZ", "TA", "TB", "TC", "TD", "TE", "TF", "TG", "TH", "TJ", "TK", "TL", "TM", "TN", "TP", "TQ", "TR", "TS", "TT", "TU", "TV", "TW", "TX", "TY", "TZ") $Fehler = @() $Ursprungdatei = Get-Content $PfadUrsprungsdatei foreach ($Eintrag in $Ursprungdatei) { $Eintragszeile = $Eintrag.Split("'") $BMKZahl = $Eintragszeile[1] $BMKZahl = $BMKZahl.TrimStart("'") $Kommentar = $Eintragszeile[3] $Kommentar = $Kommentar.TrimEnd("'") if ($($($BMKZahl -replace "[\d]") -in $ZuEingang)) { $BMKZahl = $BMKZahl -replace("[a-zA-Z]","") $BMKZahlLaenge = $($BMKZahl.Length - 1) $BMKZahl = $BMKZahl.Substring(0,$BMKZahlLaenge) + "." + $BMKZahl.Substring($BMKZahlLaenge) $BMKZahl = $PrefixEingang + $BMKZahl $Eingaenge += @([PSCustomObject]@{ Name = $BMKZahl Zeile = $i }) } elseif ($($($BMKZahl -replace "[\d]") -in $ZuAusgang)) { $BMKZahl = $BMKZahl -replace("[a-zA-Z]","") $BMKZahlLaenge = $($BMKZahl.Length - 1) $BMKZahl = $BMKZahl.Substring(0,$BMKZahlLaenge) + "." + $BMKZahl.Substring($BMKZahlLaenge) $BMKZahl = $PrefixAusgang + $BMKZahl $Ausgaenge += @([PSCustomObject]@{ Name = $BMKZahl Zeile = $i }) } else { Write-Host "Achtung, Fehler bei " $BMKZahl $Kommentar $Fehler += @([PSCustomObject]@{ Name = $BMKZahl Zeile = $i }) } # Write-Host "In Excel schreiben: BMKZahl: " $BMKZahl " Kommentar: " $Kommentar $Blatt.Cells.Item($i,1) = $BMKZahl $Blatt.Cells.Item($i,2) = $Kommentar $i++ DateiBeschreibenAktualisieren } $Mappe.Save() $Datei.Quit() $GleicheEingaenge = GleicheFinden $Eingaenge $GleicheAusgaenge = GleicheFinden $Ausgaenge Write-Host "Gleiche fuer " $PrefixEingang ": " $GleicheEingaenge Write-Host "Gleiche fuer " $PrefixAusgang ": " $GleicheAusgaenge Write-Host "Fehler bei: " $Fehler if ( $($Fehler.Length -eq 0)) { $Fehler += @([PSCustomObject]@{ Name = "Keine" Zeile = "Alle" }) } return $GleicheEingaenge, $GleicheAusgaenge, $Fehler } Function ExcelDateiBeschreibenTIA ($PfadUrsprungsdatei, $PrefixEingang, $PrefixAusgang, $ZielDatei) { $Datei = New-Object -ComObject Excel.Application $Mappe = $Datei.Workbooks.Open($ZielDatei) $Blatt = $Mappe.WorkSheets.item(1) $Datei.Visible = $false $i = 2 $Eingaenge = @() $ZuEingang = @("FDI", "B", "S", "E", "I", "DI", "BA", "BB", "BC", "BD", "BE", "BF", "BG", "BH", "BJ", "BK", "BL", "BM", "BN", "BP", "BQ", "BR", "BS", "BT", "BU", "BV", "BW", "BX", "BY", "BZ", "FA", "FB", "FC", "FD", "FE", "FF", "FG", "FH", "FJ", "FK", "FL", "FM", "FN", "FP", "FQ", "FR", "FS", "FT", "FU", "FV", "FW", "FX", "FY", "FZ", "SA", "SB", "SC", "SD", "SE", "SF", "SG", "SH", "SJ", "SK", "SL", "SM", "SN", "SP", "SQ", "SR", "SS", "ST", "SU", "SV", "SW", "SX", "SY", "SZ") $Ausgaenge = @() $ZuAusgang = @("K", "O", "Q,", "M", "A", "P", "DQ", "CA", "CB", "CC", "CD", "CE", "CF", "CG", "CH", "CJ", "CK", "CL", "CM", "CN", "CP", "CQ", "CR", "CS", "CT", "CU", "CV", "CW", "CX", "CY", "CZ", "EA", "EB", "EC", "ED", "EE", "EF", "EG", "EH", "EJ", "EK", "EL", "EM", "EN", "EP", "EQ", "ER", "ES", "ET", "EU", "EV", "EW", "EX", "EY", "EZ", "GA", "GB", "GC", "GD", "GE", "GF", "GG", "GH", "GJ", "GK", "GL", "GM", "GN", "GP", "GQ", "GR", "GS", "GT", "GU", "GV", "GW", "GX", "GY", "GZ", "HA", "HB", "HC", "HD", "HE", "HF", "HG", "HH", "HJ", "HK", "HL", "HM", "HN", "HP", "HQ", "HR", "HS", "HT", "HU", "HV", "HW", "HX", "HY", "HZ", "KA", "KB", "KC", "KD", "KE", "KF", "KG", "KH", "KJ", "KK", "KL", "KM", "KN", "KP", "KQ", "KR", "KS", "KT", "KU", "KV", "KW", "KX", "KY", "KZ", "MA", "MB", "MC", "MD", "ME", "MF", "MG", "MH", "MJ", "MK", "ML", "MM", "MN", "MP", "MQ", "MR", "MQ", "MR", "MS", "MT", "MU", "MV", "MW", "MX", "MY", "MZ", "PA", "PB", "PC", "PD", "PE", "PF", "PG", "PH", "PJ", "PK", "PL", "PM", "PN", "PP", "PQ", "PR", "PS", "PT", "PU", "PV", "PW", "PX", "PY", "PZ", "QA", "QB", "QC", "QD", "QE", "QF", "QG", "QH", "QJ", "QK", "QL", "QM", "QN", "QP", "QQ", "QR", "QS", "QT", "QU", "QV", "QW", "QX", "QY", "QZ", "RA", "RB", "RC", "RD", "RE", "RF", "RG", "RH", "RJ", "RK", "RL", "RM", "RN", "RP", "RQ", "RR", "RS", "RT", "RU", "RV", "RW", "RX", "RY", "RZ", "TA", "TB", "TC", "TD", "TE", "TF", "TG", "TH", "TJ", "TK", "TL", "TM", "TN", "TP", "TQ", "TR", "TS", "TT", "TU", "TV", "TW", "TX", "TY", "TZ") $Fehler = @() $Blatt.Cells.Item(1,1) = "Name" $Blatt.Cells.Item(1,2) = "Path" $Blatt.Cells.Item(1,3) = "Data Type" $Blatt.Cells.Item(1,4) = "Logical Address" $Blatt.Cells.Item(1,5) = "Comment" $Blatt.Cells.Item(1,6) = "Hmi Visible" $Blatt.Cells.Item(1,7) = "Hmi Accessible" $Blatt.Cells.Item(1,8) = "Hmi Writeable" $Blatt.Cells.Item(1,9) = "Typeobject ID" $Blatt.Cells.Item(1,10) = "Version ID" #Todo: Zweites Tabellenblatt (s. Beispiel-Export von Christian) benoetigt? #Todo: Muss/Soll Tabellblatt 1 "PLC Tags" heißen? (s. Beispiel-Export von Christian) $Ursprungdatei = Get-Content $PfadUrsprungsdatei foreach ($Eintrag in $Ursprungdatei) { $Eintragszeile = $Eintrag.Split("'") $BMKZahl = $Eintragszeile[1] $BMKZahl = $BMKZahl.TrimStart("'") $BMKZahlOriginal = $BMKZahl $Kommentar = $Eintragszeile[3] $Kommentar = $Kommentar.TrimEnd("'") if ($($($BMKZahl -replace "[\d]") -in $ZuEingang)) { $BMKZahl = $BMKZahl -replace("[a-zA-Z]","") $BMKZahlLaenge = $($BMKZahl.Length - 1) $BMKZahl = $BMKZahl.Substring(0,$BMKZahlLaenge) + "." + $BMKZahl.Substring($BMKZahlLaenge) $BMKZahl = $PrefixEingang + $BMKZahl $Eingaenge += @([PSCustomObject]@{ Name = $BMKZahl Zeile = $i }) } elseif ($($($BMKZahl -replace "[\d]") -in $ZuAusgang)) { $BMKZahl = $BMKZahl -replace("[a-zA-Z]","") $BMKZahlLaenge = $($BMKZahl.Length - 1) $BMKZahl = $BMKZahl.Substring(0,$BMKZahlLaenge) + "." + $BMKZahl.Substring($BMKZahlLaenge) $BMKZahl = $PrefixAusgang + $BMKZahl $Ausgaenge += @([PSCustomObject]@{ Name = $BMKZahl Zeile = $i }) } else { Write-Host "Achtung, Fehler bei " $BMKZahl $Kommentar $BMKZahlLaenge = $($BMKZahl.Length - 1) $BMKZahl = $BMKZahl.Substring(0,$BMKZahlLaenge) + "." + $BMKZahl.Substring($BMKZahlLaenge) $Fehler += @([PSCustomObject]@{ Name = $BMKZahl Zeile = $i }) } #Write-Host "In Excel schreiben: BMKZahl: " $BMKZahl " Kommentar: " $Kommentar " BMKZahlOriginal: " $BMKZahlOriginal $Blatt.Cells.Item($i,1) = $BMKZahlOriginal #Name $Blatt.Cells.Item($i,2) = "WSCAD-Export" #Path $Blatt.Cells.Item($i,3) = "Bool" #Data Type $Blatt.Cells.Item($i,4) = $BMKZahl #Logical Address $Blatt.Cells.Item($i,5) = $Kommentar #Comment $Blatt.Cells.Item($i,6) = "'True" #Hmi Visible $Blatt.Cells.Item($i,7) = "'True" #Hmi Accessible $Blatt.Cells.Item($i,8) = "'True" #Hmi Writeable #$Blatt.Cells.Item($i,9) = "" #Typeobject ID #$Blatt.Cells.Item($i,10) = "" #Version ID $i++ DateiBeschreibenAktualisieren } $Mappe.Save() $Datei.Quit() $GleicheEingaenge = GleicheFinden $Eingaenge $GleicheAusgaenge = GleicheFinden $Ausgaenge Write-Host "Gleiche fuer " $PrefixEingang ": " $GleicheEingaenge Write-Host "Gleiche fuer " $PrefixAusgang ": " $GleicheAusgaenge Write-Host "Fehler bei: " $Fehler if ( $($Fehler.Length -eq 0)) { $Fehler += @([PSCustomObject]@{ Name = "Keine" Zeile = "Alle" }) } return $GleicheEingaenge, $GleicheAusgaenge, $Fehler } Function ExcelDateiBeschreibenWSCAD ($PfadUrsprungsdatei, $PrefixEingang, $PrefixAusgang, $ZielDatei) { $Datei = New-Object -ComObject Excel.Application $Mappe = $Datei.Workbooks.Open($ZielDatei) $Blatt = $Mappe.WorkSheets.item(1) $Datei.Visible = $false $i = 2 $Eingaenge = @() $ZuEingang = @("FDI", "B", "S", "E", "I", "DI", "BA", "BB", "BC", "BD", "BE", "BF", "BG", "BH", "BJ", "BK", "BL", "BM", "BN", "BP", "BQ", "BR", "BS", "BT", "BU", "BV", "BW", "BX", "BY", "BZ", "FA", "FB", "FC", "FD", "FE", "FF", "FG", "FH", "FJ", "FK", "FL", "FM", "FN", "FP", "FQ", "FR", "FS", "FT", "FU", "FV", "FW", "FX", "FY", "FZ", "SA", "SB", "SC", "SD", "SE", "SF", "SG", "SH", "SJ", "SK", "SL", "SM", "SN", "SP", "SQ", "SR", "SS", "ST", "SU", "SV", "SW", "SX", "SY", "SZ") $Ausgaenge = @() $ZuAusgang = @("K", "O", "Q,", "M", "A", "P", "DQ", "CA", "CB", "CC", "CD", "CE", "CF", "CG", "CH", "CJ", "CK", "CL", "CM", "CN", "CP", "CQ", "CR", "CS", "CT", "CU", "CV", "CW", "CX", "CY", "CZ", "EA", "EB", "EC", "ED", "EE", "EF", "EG", "EH", "EJ", "EK", "EL", "EM", "EN", "EP", "EQ", "ER", "ES", "ET", "EU", "EV", "EW", "EX", "EY", "EZ", "GA", "GB", "GC", "GD", "GE", "GF", "GG", "GH", "GJ", "GK", "GL", "GM", "GN", "GP", "GQ", "GR", "GS", "GT", "GU", "GV", "GW", "GX", "GY", "GZ", "HA", "HB", "HC", "HD", "HE", "HF", "HG", "HH", "HJ", "HK", "HL", "HM", "HN", "HP", "HQ", "HR", "HS", "HT", "HU", "HV", "HW", "HX", "HY", "HZ", "KA", "KB", "KC", "KD", "KE", "KF", "KG", "KH", "KJ", "KK", "KL", "KM", "KN", "KP", "KQ", "KR", "KS", "KT", "KU", "KV", "KW", "KX", "KY", "KZ", "MA", "MB", "MC", "MD", "ME", "MF", "MG", "MH", "MJ", "MK", "ML", "MM", "MN", "MP", "MQ", "MR", "MQ", "MR", "MS", "MT", "MU", "MV", "MW", "MX", "MY", "MZ", "PA", "PB", "PC", "PD", "PE", "PF", "PG", "PH", "PJ", "PK", "PL", "PM", "PN", "PP", "PQ", "PR", "PS", "PT", "PU", "PV", "PW", "PX", "PY", "PZ", "QA", "QB", "QC", "QD", "QE", "QF", "QG", "QH", "QJ", "QK", "QL", "QM", "QN", "QP", "QQ", "QR", "QS", "QT", "QU", "QV", "QW", "QX", "QY", "QZ", "RA", "RB", "RC", "RD", "RE", "RF", "RG", "RH", "RJ", "RK", "RL", "RM", "RN", "RP", "RQ", "RR", "RS", "RT", "RU", "RV", "RW", "RX", "RY", "RZ", "TA", "TB", "TC", "TD", "TE", "TF", "TG", "TH", "TJ", "TK", "TL", "TM", "TN", "TP", "TQ", "TR", "TS", "TT", "TU", "TV", "TW", "TX", "TY", "TZ") $Fehler = @() $Blatt.Cells.Item(1,1) = "Anschluss" $Blatt.Cells.Item(1,2) = "Kommentar" $Blatt.Cells.Item(1,3) = "Symboltext" $Blatt.Cells.Item(1,4) = "Bezug" $Blatt.Cells.Item(1,5) = "Sondertext 1" $Blatt.Cells.Item(1,6) = "Sondertext 2" $Blatt.Cells.Item(1,7) = "Sondertext 3" $Blatt.Cells.Item(1,8) = "Sondertext 4" $Blatt.Cells.Item(1,9) = "Sondertext 5" $Blatt.Cells.Item(1,10) = "Sondertext 6" $Blatt.Cells.Item(1,11) = "Sondertext 7" $Blatt.Cells.Item(1,12) = "Sondertext 8" $Ursprungdatei = Get-Content $PfadUrsprungsdatei foreach ($Eintrag in $Ursprungdatei) { $Eintragszeile = $Eintrag.Split("'") $BMKZahl = $Eintragszeile[1] $BMKZahl = $BMKZahl.TrimStart("'") $Kommentar = $Eintragszeile[3] $Kommentar = $Kommentar.TrimEnd("'") if ($($($BMKZahl -replace "[\d]") -in $ZuEingang)) { $BMKZahl = $BMKZahl -replace("[a-zA-Z]","") $BMKZahlLaenge = $($BMKZahl.Length - 1) $BMKZahl = $BMKZahl.Substring(0,$BMKZahlLaenge) + "." + $BMKZahl.Substring($BMKZahlLaenge) $BMKZahl = $PrefixEingang + $BMKZahl $Eingaenge += @([PSCustomObject]@{ Name = $BMKZahl Zeile = $i }) } elseif ($($($BMKZahl -replace "[\d]") -in $ZuAusgang)) { $BMKZahl = $BMKZahl -replace("[a-zA-Z]","") $BMKZahlLaenge = $($BMKZahl.Length - 1) $BMKZahl = $BMKZahl.Substring(0,$BMKZahlLaenge) + "." + $BMKZahl.Substring($BMKZahlLaenge) $BMKZahl = $PrefixAusgang + $BMKZahl $Ausgaenge += @([PSCustomObject]@{ Name = $BMKZahl Zeile = $i }) } else { Write-Host "Achtung, Fehler bei " $BMKZahl $Kommentar $BMKZahlLaenge = $($BMKZahl.Length - 1) $BMKZahl = $BMKZahl.Substring(0,$BMKZahlLaenge) + "." + $BMKZahl.Substring($BMKZahlLaenge) $Fehler += @([PSCustomObject]@{ Name = $BMKZahl Zeile = $i }) } #Write-Host "In Excel schreiben: BMKZahl: " $BMKZahl " Kommentar: " $Kommentar $Blatt.Cells.Item($i,1) = $BMKZahl #Anschluss Todo: Passt das so? In Muster ist die Zahl der BMKZahl teilweise nur zweistellig; es kommen außerdem auch "X", "P" und "C" vor $Blatt.Cells.Item($i,2) = $Kommentar #Kommentar Todo: Passt das so? In Muster teilweise leer(?) #$Blatt.Cells.Item($i,3) = "" #Symboltext #$Blatt.Cells.Item($i,4) = "" #Bezug $i++ DateiBeschreibenAktualisieren } $Mappe.Save() $Datei.Quit() $GleicheEingaenge = GleicheFinden $Eingaenge $GleicheAusgaenge = GleicheFinden $Ausgaenge Write-Host "Gleiche fuer " $PrefixEingang ": " $GleicheEingaenge Write-Host "Gleiche fuer " $PrefixAusgang ": " $GleicheAusgaenge Write-Host "Fehler bei: " $Fehler if ( $($Fehler.Length -eq 0)) { $Fehler += @([PSCustomObject]@{ Name = "Keine" Zeile = "Alle" }) } return $GleicheEingaenge, $GleicheAusgaenge, $Fehler } Function GleicheFinden ($ZuUeberpruefen) { $ZuUeberpruefen = $ZuUeberpruefen | Sort-Object "Name" $Gleiche = @() for ($i = 0; $i -lt $($ZuUeberpruefen.Count - 1); $i++) { $IstGleich = $($ZuUeberpruefen[$i].Name -eq $ZuUeberpruefen[$($i+1)].Name) if ($IstGleich) { # Eintrag hinzufuegen if (-not $($Gleiche[-1].Zeile -eq $ZuUeberpruefen[$i].Zeile)) { $Gleiche += $ZuUeberpruefen[$i] } $Gleiche += $ZuUeberpruefen[$($i+1)] #Write-Host "Gleiche: " $Gleiche } } if ( $($Gleiche.Length -eq 0)) { $Gleiche += @([PSCustomObject]@{ Name = "Keine" Zeile = "Alle" }) } return $Gleiche } Main