Hallo,
ich möchte über ein kleines Programm eine Datei öffnen.
Ich gebe dazu drei Variablen ein.
$gem : vierstellige Zahl
$fl : dreistellige Zahl
$flst: fünfstellige Zahl.
Die Dateien sind folgendermaßen formatiert:
3038_N_010_00002.TIF
gem = 3038
fl = 010
rnr = 00002
wenn ich diese Zahlen in meine Felder eingebe, wirft er mir für die Variable gem die 7 aus und für fl die 8.
Wie kommt das?
2. Frage,
die Datei liegt entweder als TIF oder als jpg vor. Was muss ich in den Pfad eintragen um das unabhängig von der Dateiendung zu machen
C
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <FileConstants.au3>
#include <Array.au3>
#include <File.au3>
#include <Misc.au3>
#include <MsgBoxConstants.au3>
#include <GuiEdit.au3>
#include <WinAPIShPath.au3>
#include <GuiListView.au3>
#include <ListviewConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <ColorConstants.au3>
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
;#AutoIt3Wrapper_icon=test.ico
#AutoIt3Wrapper_UseX64 = N
#AutoIt3Wrapper_UseUpx = N ; interne UPX Komprimierung ausschalten
#AutoIt3Wrapper_Res_SaveSource = N
#AutoIt3Wrapper_Res_Description = Archivierungstool
#AutoIt3Wrapper_Res_Fileversion = 1.0.0.5
#AutoIt3Wrapper_Res_LegalCopyright = 2021 by kayes
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
;
; ==============================================================================
; Projekt : Datei und Archivierungstool
; bearbeitet am : 17.02.2021
; ==============================================================================
; Danksagungen :
; Erstellt unter Mithilfe aus dem autoit.de-Forum von :
; Musashi
; ==============================================================================
; Variablendeklaration
;
Global $gem
Global $fl
Global $rnr
Local $idEditProjekt
;==============================================================================
; Beginn des Formulars:
;
$Form1_1 = GUICreate("Dateitool (c) 2021 Kayes", 620, 300, 197, 145)
;
; Beschriftung
;
$Label1 = GUICtrlCreateLabel("Dateien aus dem Archiv öffnen", 80, 26, 440, 60,($SS_CENTER))
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
;
; Beschriftung der drei Felder
;
$Label2 = GUICtrlCreateLabel("Gemarkung", 30, 120, 166, 30,($SS_CENTER))
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("Flur", 226, 120, 166, 30,($SS_CENTER))
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$Label4 = GUICtrlCreateLabel("Flurstück", 422, 120, 166, 30,($SS_CENTER))
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
;
; Die drei Eingabefelder
;
Global $gem = GUICtrlCreateEdit("", 30, 150, 166, 40, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetFont($idEditProjekt,18, 400, 20, "MS Sans Serif")
Global $fl = GUICtrlCreateEdit("", 226, 150, 166, 40, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetFont($idEditProjekt,18, 400, 0, "MS Sans Serif")
Global $flst = GUICtrlCreateEdit("", 422, 150, 166, 40, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN))
GUICtrlSetFont($idEditProjekt,18, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
;
; Startbutton Öffnen
;
$idBtnOpen = GUICtrlCreateButton("Öffnen", 250, 200, 110, 30)
;
Global $sImageFile
$sImageFile = "D:\TESTUMGEBUNG\Archiv\" & $gem & "\" & $fl & "\" & $gem & "_N_" & $fl &"_" & $rnr & ".TIF"
$sImageFile1 = "D:\TESTUMGEBUNG\Archiv\" & $gem & "\" & $fl & "\" & $gem & "_N_" & $fl &"_" & $rnr & ".jpg"
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $idBtnOpen
Dateioeffnen()
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Func Dateioeffnen()
If FileExists($sImageFile) Then
ShellExecute($sImageFile)
If @error Then Exit MsgBox(BitOR(4096, 16), "Fehler : ", "ShellExecute fehlgeschlagen !" & @CRLF)
Else
MsgBox(BitOR(4096, 16), "Fehler : Datei nicht gefunden", $sImageFile & @CRLF)
EndIf
Alles anzeigen