Mit Batch datei öffnen

[THRALL]

Wie kann man eine Textdatei öffnen ?

 

[RedEagle]

Zum Öffnen:
edit Text.txt
oder
type text.txt

Ob man das in eine Variable speichern kann, weiß ich nicht

 

[THRALL]

Danke,
Bekomme in diesem Script andauernt "Syntaxfehler" seht ihr einen Fehler:

%Ramdisk% = %1
%SystemDisk% = %2
%OldConfig% = %Systemdisk% + "Programs\Apache\PE.CONF"
%NewConfig% = "conf\pe.conf"
%RamFolder% = %Ramdisk% + "Apache\"
%ApacheExe% = %Systemdisk% + "Programs\Apache\Apache.exe"
%Data% = type %OldConfig%

if not exist %RamFolder% mkdir %RamFolder%
if not exist %RamFolder% + "Dateien" mkdir %RamFolder% + "Dateien"
if not exist %RamFolder% + "logs" mkdir %RamFolder% + "logs"
if not exist %RamFolder% + "conf" mkdir %RamFolder% + "conf"

if not exist %RamFolder% + "logs/httpd.pid")) "" > %RamFolder% + "logs/httpd.pid"
if not exist %RamFolder% + "logs/error.log")) "" > %RamFolder% + "logs/error.log"
if not exist %RamFolder% + "logs/access.log")) "" > %RamFolder% + "logs/access.log"
%data% > %RamFolder% + %NewConfig%
%ApacheExe% + " -f " + %RamFolder% + %NewConfig%
pause

oder noch besser kann mir jemand dieses vb Scribt nach batch übersetzen?

'-----------------------------------------------
'Schreibt die Apache Config Datei um
'Argumente:
'1: Ramdisk Laufwerksbuchstabe z.B. B:\ 
'1: Systemdrive(CD) Laufwerksbuchstabe z.b. X:\
'-----------------------------------------------


Option Explicit

Const ForReading = 1

Dim Drives
DIm wshell
DIm Systemdrive,Ramdisk
Dim DATEINew, DATEI, p
Dim folder
Dim objFileSystem
Dim objTextFile, Pfad
Dim Stream
Dim RamFolder
Dim ApacheExe

'--------------------------------------------------------------
' Filename ermitteln
'--------------------------------------------------------------
Set Drives = WScript.Arguments

Ramdisk= drives(0)
Systemdrive = drives(1)
DATEI =  Systemdrive & "\Programs\Apache\PE.CONF"
DATEINew = "conf\pe.conf"

RamFolder = Ramdisk & "Apache\"
ApacheExe = Systemdrive & "Programs\Apache\Apache.exe"



'--------------------------------------------------------------
' Lesen der Datei
'--------------------------------------------------------------

Set objFileSystem = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFileSystem.OpenTextFile(DATEI, ForReading,True)
Stream = objTextFile.ReadAll
objTextFile.Close 
'----------------------------------------------
'Hier werden die Platzhalter mit den Laufwerksbuchstaben ersetzt
'----------------------------------------------
Ramdisk = replace(Ramdisk, "\", "/")
Systemdrive = replace(Systemdrive, "\", "/")

Stream = replace(Stream, "**ramdisk**", drives(0))
Stream = replace(Stream, "**systemdrive**", drives(1))

Ramdisk = replace(Ramdisk, "/", "\")
Systemdrive = replace(Systemdrive, "/", "\")

'---------------------------
'Die benötigten Ordner erstellen
'---------------------------
Set objFileSystem = CreateObject("Scripting.FileSystemObject")
if objFileSystem.folderexists(RamFolder) = false then
 folder = objFileSystem.createfolder(RamFolder)
end if
if objFileSystem.folderexists(RamFolder & "logs") = false then
 folder = objFileSystem.createfolder(RamFolder & "logs")
end if
if objFileSystem.folderexists(RamFolder & "conf") = false then
 folder = objFileSystem.createfolder(RamFolder & "conf")
end if
'---------------------------
'Die benötigten Dateien erstellen
'---------------------------
if objFileSystem.folderexists(RamFolder & "Dateien") = false then
 folder = objFileSystem.createfolder(RamFolder & "Dateien")
 Set objTextFile = objFileSystem.CreateTextFile(RamFolder & "Dateien\" & "index.html", True)
	objTextFile.Write "<h1><center>Hello World</center></h1>"
	objTextFile.Close
 end if

  if objFileSystem.fileexists(RamFolder & "logs/httpd.pid") = false then
    Set objTextFile = objFileSystem.CreateTextFile(RamFolder & "logs/httpd.pid", True)
     objTextFile.Write ""
     objTextFile.Close 
  end if
  if objFileSystem.fileexists(RamFolder & "logs/error.log") = false then
    Set objTextFile = objFileSystem.CreateTextFile(RamFolder & "logs/error.log", True)
     objTextFile.Write ""
     objTextFile.Close 
  end if
if objFileSystem.fileexists(RamFolder & "logs/access.log") = false then
    Set objTextFile = objFileSystem.CreateTextFile(RamFolder & "logs/access.log", True)
     objTextFile.Write ""
     objTextFile.Close 
  end if
'---------------------------
'Neue Config Schreiben
'---------------------------

if objFileSystem.fileexists(RamFolder & dateiNew) = false then
	Set objTextFile = objFileSystem.CreateTextFile(RamFolder & dateiNew, True)
	objTextFile.Write Stream
	objTextFile.Close
end if

set wshell = CreateObject("Wscript.shell")
wshell.run ApacheExe & " -f " & RamFolder & dateiNEW

hatte es geschrieben um Apache unter BartPE zum laufen zubringen habe erst später festgestellt , dass man vbs dateien zwar ausführen kann jedoch nicht aus dem startmenü