Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

bestimmte Zeile in einer Datei ändern

Frage Entwicklung Batch & Shell

Mitglied: Munsi1

Munsi1 (Level 1) - Jetzt verbinden

23.11.2007, aktualisiert 26.11.2007, 5153 Aufrufe, 3 Kommentare

Hallo,

ich möchte eine ini Datei automatisch per batch ändern. Folgender Hintergrund, in unserer Firma gibt es mehrer Rechner mit einem speziellen Programm. Dieses Programm benötig eine ini Datei in der der Rechnername an einer bestimmten Stelle steht. Jetzt muß die ini Datei aber angepasst werden und ich möchte per batch den Namen aus der alten Datei auslesen und in die neue ini Datei schreiben. Leider komme ich nicht so wirklich weiter. Der Rechnername wird immer nur an das Ende der Datei geschrieben.
01.
 
02.
@echo on & setlocal 
03.
set "Ein=C:\Programme\Programm\netz.ini.bak" 
04.
set "Aus=C:\Programme\Programm\netz.ini" 
05.
 
06.
rem if exist "%Aus%" del "%Aus%" 
07.
set Zuletzt=- 
08.
for /f "tokens=*" %%i in ('findstr "Datasource" "%Ein%"') do call :ProcessLink "%%~i" 
09.
goto :eof 
10.
 
11.
:ProcessLink 
12.
if %1==%Zuletzt% goto :eof 
13.
set Zuletzt="%~1" 
14.
(echo %~1)>>"%Aus%" 
15.
 
Es soll die Zeile Datasource=Rechnername geändert werde. Vielleicht hat einer von euch eine Idee wie ich das realisieren kann.
Vielen Dank.

Grüße
Sebastian
Mitglied: bastla
23.11.2007 um 15:55 Uhr
Hallo Munsi1 und willkommen im Forum!

Für "Ersetz"-Operationen ist Batch nicht wirklich das optimale Werkzeug - besser geeignet wären Tools wie zB "sed" oder zumindest ein VBScript, etwa:
01.
Const Source = "C:\Programme\Programm\netz.ini.bak" 
02.
Const Target = "C:\Programme\Programm\netz.ini" 
03.
Const Key = "Datasource" 
04.
'Rechnernamen als neuen Wert festlegen 
05.
Value = WScript.CreateObject("WScript.Network").Computername 
06.
 
07.
Set fso = CreateObject("Scripting.FileSystemObject") 
08.
Text = Split(fso.OpenTextFile(Source, 1).ReadAll, vbCrLF) 
09.
Anzahl = UBound(Text) 
10.
L = Len(Key) 
11.
For i = 0 To Anzahl 
12.
	If Left(Text(i), L) = Key Then 
13.
		Text(i) = Key & "=" & Value 
14.
		Exit For 
15.
	End If 
16.
Next 
17.
fso.OpenTextFile(Target, 2, True).Write Join(Text, vbCrLF)
Grüße
bastla

[Edit] Variable "Value" für neu einzutragenden Wert hinzugefügt. [/Edit]
Bitte warten ..
Mitglied: Munsi1
23.11.2007 um 19:21 Uhr
Hallo bastla,

danke für den Tip aber es muß ohne Tools gehen denn die Anwender haben nur einen Standartrechner. Mit VBScript kenne ich mich nicht so aus. Werde am Montag mal dein Script probieren da ich zuhause leider die Datei nicht habe (habe sie in der Firma vergessen )
Melde mich am Montag wieder.

Danke noch mal und schönes Wochenende
Sebastian
Bitte warten ..
Mitglied: Munsi1
26.11.2007 um 12:32 Uhr
Hallo bastla,

so habe es jetzt ausprobiert. Damit geht es super.
Danke

Sebastian
Bitte warten ..
Neuester Wissensbeitrag
CPU, RAM, Mainboards

Angetestet: PC Engines APU 3a2 im Rack-Gehäuse

(2)

Erfahrungsbericht von ashnod zum Thema CPU, RAM, Mainboards ...

Ähnliche Inhalte
VB for Applications
gelöst Vbscript bestimmte Zeile ungeachtet der Nummerierung löschen (4)

Frage von aletri zum Thema VB for Applications ...

VB for Applications
Bestimmte Daten aus eine CSV-Datei in eine Excel-Tabelle importieren (2)

Frage von MariaElena zum Thema VB for Applications ...

Heiß diskutierte Inhalte
Switche und Hubs
Trunk für 2xCisco Switch. Wo liegt der Fehler? (15)

Frage von JayyyH zum Thema Switche und Hubs ...

DSL, VDSL
DSL-Signal bewerten (13)

Frage von SarekHL zum Thema DSL, VDSL ...

Windows Server
Mailserver auf Windows Server 2012 (9)

Frage von StefanT81 zum Thema Windows Server ...