Hallo zusammen,
ich habe folgendes Problem, und benötige mal eure Hilfe:
Spoiler anzeigen
Global $aFileList_Source_erstellen_plaene_bmf, $aFileList_Dest_erstellen_plaene_bmf, $Plannummern_Dest_erstellen_plaene_bmf, $Plannummern_Source_erstellen_plaene_bmf
Global $aFileList_Source_erstellen_plaene_dwg, $aFileList_Dest_erstellen_plaene_dwg, $Plannummern_Dest_erstellen_plaene_dwg, $Plannummern_Source_erstellen_plaene_dwg
Global $aFileList_Source_erstellen_plaene_pdf, $aFileList_Dest_erstellen_plaene_pdf, $Plannummern_Dest_erstellen_plaene_pdf, $Plannummern_Source_erstellen_plaene_pdf
Global $aFileList_Source_erstellen_persp_bmf, $aFileList_Dest_erstellen_persp_bmf, $Plannummern_Dest_erstellen_persp_bmf, $Plannummern_Source_erstellen_persp_bmf
Global $aFileList_Source_erstellen_persp_dwg, $aFileList_Dest_erstellen_persp_dwg, $Plannummern_Dest_erstellen_persp_dwg, $Plannummern_Source_erstellen_persp_dwg
Global $aFileList_Source_erstellen_persp_pdf, $aFileList_Dest_erstellen_persp_pdf, $Plannummern_Dest_erstellen_persp_pdf, $Plannummern_Source_erstellen_persp_pdf
$aFileList_Source_erstellen_plaene_pdf = _FileListToArray($INI_READ_SECTION_1_KEY[0], "*.pdf*", $FLTA_FILES)
$aFileList_Dest_erstellen_plaene_pdf = _FileListToArray($INI_READ_SECTION_1_KEY[7], "*.pdf*", $FLTA_FILES)
For $i = 1 To UBound($aFileList_Source_erstellen_plaene_pdf) - 1
$Plannummern_Source_erstellen_plaene_pdf = StringLeft($aFileList_Source_erstellen_plaene_pdf[$i], 6)
For $ii = 1 To UBound($aFileList_Dest_erstellen_plaene_pdf) - 1
$Plannummern_Dest_erstellen_plaene_pdf = StringLeft($aFileList_Dest_erstellen_plaene_pdf[$ii], 6)
If $Plannummern_Source_erstellen_plaene_pdf == $Plannummern_Dest_erstellen_plaene_pdf Then
$aMsgBox[59][0] = MsgBox(49, "Info: Doppelte Plannummern vorhanden", "Im Ordner " & $INI_READ_SECTION_1_KEY[7] & " sind diese Plannummern schon vorhanden! --> " & $aFileList_Dest_erstellen_plaene_pdf[$ii] & @CRLF & "Der Vorgang wird abgebrochen, bis der Fehler behoben ist!")
Switch $aMsgBox[59][0]
Case 1
Case 2
Call("_Button_freigeben_erstellen")
Return
EndSwitch
EndIf
Next
Next
Alles anzeigen
Wie Ihr seht, sind das viele Deklarationen für eigentlich ein und den selben Zweck. Problem hier ist allerdings, dass die Pfade immer unterschiedlich sind.
Also ich möchte prüfen, ob Plannummern oder Dateibenennungen in Source und Dest doppelt vorhanden sind. Das Thema hatten wir ja schon. Funzt auch soweit ganz gut.
Meine Frage ist, wie kann ich das ganze eleganter gestalten. Und zwar von der Benennung der Variablen. Ist es nicht möglich $aFileList_Source_erstellen[0] oder $aFileList_Source_erstellen[0][0]
zu machen? Also ein 1D oder 2D Array?
Ich habe es ausprobiert. Nur ist das Problem, dass ich dann keine Fehlermeldung bekomme, die eigentlich kommen sollte.
Habt ihr vielleicht noch eine Idee?
Danke im Voraus.
Mfg Mikki