Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
Autor |
Nachricht |
Ebel, Jochen
Anmeldungsdatum: 15.06.2015 Beiträge: 2
|
Verfasst am: 15.06.2015, 05:18 Titel: Parameter |
|
|
In VBA kann ich gut programmieren. Parameter lese ich dabei aus einem Excel-Tabellenblatt ein. Ich möchte Datein bearbeiten, die sich im gleichen Verzeichnis befinden wie das zu erstellende Programm.
Der Aufruf wäre also:
Erstellt.exe Dateiname
In "Erstellt.bas" brauche ich also 2 Befehle, die ich nicht explizit gefunden habe:
1. Wie kann ich im Programm das aktuelle Verzeichnis einlesen?
2. Wie kann ich den Parameter "Dateiname" einlesen?
Bei der Suche nach Parameter finde ich immer programminterne Parameter, habe aber nicht explizit die Antworten für obige Fragen erhalten.
MfG |
|
Nach oben |
|
|
RockTheSchock
Anmeldungsdatum: 04.04.2007 Beiträge: 138
|
|
Nach oben |
|
|
Ebel, Jochen
Anmeldungsdatum: 15.06.2015 Beiträge: 2
|
Verfasst am: 15.06.2015, 09:02 Titel: |
|
|
Danke, hat geholfen.
Die Werte will ich an Variablen übergeben.
So wurde mein Programm:
Code: | DIM Pfad as string
DIM NameEin as string
DIM Namek as string
DIM NameLese as string
DIM NameAus as string
DIM Zeile as string
dim v as integer
Pfad = EXEPath 'Liest den Pfad, wo sich das Programm befindet
NameEin = command 'Liest Paramet aus der Kommandozeile
v = instr(NameEin,".ind")
if v > 1 then
Namek = left(NameEin,v-1)
else
END 1
end if
NameLese = Pfad & "\" & NameEin
NameAus = Pfad & "\" & Namek & ".tex"
kill NameAus 'liefert keinen Fehler, wenn Datei nicht existiert
open NameLese for input as #1
open NameAus for output as #2
do until eof(1)
Line input #1, Zeile
print #2, Zeile
loop
close #2
close #1 |
/edit dreael: Code-Tags ergänzt |
|
Nach oben |
|
|
grindstone
Anmeldungsdatum: 03.10.2010 Beiträge: 1208 Wohnort: Ruhrpott
|
Verfasst am: 15.06.2015, 09:43 Titel: |
|
|
Hallo Ebel, Jochen und willkommen im Forum!
Der Befehl "Kill" ist überflüssig. Wenn eine Datei als "Output" geöffnet wird, überschreibt sie eine eventuell vorhandene Datei gleichen Namens ohne Nachfrage.
Gruß
grindstone _________________ For ein halbes Jahr wuste ich nich mahl wie man Proggramira schreibt. Jetzt bin ich einen! |
|
Nach oben |
|
|
|