Werte in CMD-Datei überschreiben!

Forumthread: Werte in CMD-Datei überschreiben!

14.11.2006 13:44:21

Timo

Hallo!
Ich habe eine CMD-Datei in der folgendens steht:
C:\Programme\Heidenhain\TNCremoNT\tnccmd.exe -(A1) "PUT M:\S0058_NCFrei\Tnc530\(A2).h TNC:\Kopier\(A2).h "
wobei ich bei (A1) & (A2) gerne den Werte aus der Zeile A1 bzw. A2 reinschreiben lassen würde.
Danach sollte die CMD-Datei, welche immer "Übertragung.CMD" heißt, noch ausgeführt werden.
Ist dies machbar und wenn ja wie?
Vielen Dank für Euer Bemühen!

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Werte in CMD-Datei überschreiben!

14.11.2006 16:13:06

IngGi
AW: Werte in CMD-Datei überschreiben!

14.11.2006 16:56:00

IngGi

AW: Werte in CMD-Datei überschreiben!

14.11.2006 16:13:06

IngGi

Hallo Timo,
ungetestet zum Ausprobieren:

Sub test()
'Variablendeklarationen
'***********************************************************
Dim FSO As Object
Dim FF As Byte
Dim strAnweisung As String
'***********************************************************
'Anweisung aus CMD-Datei holen
'-----------------------------------------------------------
FF = FreeFile
Open "C:\Übertragung.cmd" For Input As #FF
strAnweisung = Input(LOF(FF), #FF)
Close #FF
'-----------------------------------------------------------
'Anweisung modifizieren
'-----------------------------------------------------------
strAnweisung = Replace(strAnweisung, "(A1)", Range("A1"))
strAnweisung = Replace(strAnweisung, "(A2)", Range("A2"))
'-----------------------------------------------------------
'Anweisung in neue CMD-Datei schreiben
'-----------------------------------------------------------
FF = FreeFile
Open "C:\Übertragung_neu.cmd" For Output As #FF
Print #FF, strAnweisung
Close #FF
'-----------------------------------------------------------
'Alte CMD-Datei löschen
Kill "C:\Übertragung.cmd"
'Neue CMD-Datei in alten Dateinamen umbenennen
'-----------------------------------------------------------
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.MoveFile "C:\Übertragung_neu.cmd", "C:\Übertragung.cmd"
'-----------------------------------------------------------
'Neue CMD-Datei ausführen
Shell "C:\Übertragung.cmd", vbNormalFocus
End Sub

Gruß Ingolf

AW: Werte in CMD-Datei überschreiben!

14.11.2006 16:56:00

IngGi

Hallo Timo,
es geht auch etwas einfacher:

Sub test()
'Variablendeklarationen
'***********************************************************
Dim FF As Byte
Dim strAnweisung As String
'***********************************************************
'Anweisung aus CMD-Datei holen
'-----------------------------------------------------------
FF = FreeFile
Open "C:\Übertragung.cmd" For Input As #FF
strAnweisung = Input(LOF(FF), #FF)
Close #FF
'-----------------------------------------------------------
'Anweisung modifizieren
'-----------------------------------------------------------
strAnweisung = Replace(strAnweisung, "(A1)", Range("A1"))
strAnweisung = Replace(strAnweisung, "(A2)", Range("A2"))
'-----------------------------------------------------------
'CMD-Datei mit modifizierter Anweisung überschreiben
'-----------------------------------------------------------
FF = FreeFile
Open "C:\Übertragung.cmd" For Output As #FF
Print #FF, strAnweisung
Close #FF
'-----------------------------------------------------------
'Modifizierte CMD-Datei ausführen
Shell "C:\Übertragung.cmd", vbNormalFocus
End Sub

Gruß Ingolf

Beliebteste Forumthreads (12 Monate)

Werte in CMD-Datei überschreiben!

Forumthread: Werte in CMD-Datei überschreiben!

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread