Bestimmte zeile aus txt datei auslesen und sich aus zeile 100 einen wert anzeigen lassen ?
Hallo
Suche einen Weg sich aus einer .config (txt) datei einen Wert Spielzeit auszulesen und anzuzeigen?
Kann das irgendwer hier für einen guten Wodka und etwas mehr mache und mir ein Tool schreiben was aus einer txt Datei eine bestimmte Zeile die mit einer Variable definiert wird auslesen. Alle 2-15 Minuten es in einem simplen Fenster DOS oder Grafisch anzeigt?
Suche einen Weg sich aus einer .config (txt) datei einen Wert Spielzeit auszulesen und anzuzeigen?
Kann das irgendwer hier für einen guten Wodka und etwas mehr mache und mir ein Tool schreiben was aus einer txt Datei eine bestimmte Zeile die mit einer Variable definiert wird auslesen. Alle 2-15 Minuten es in einem simplen Fenster DOS oder Grafisch anzeigt?
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 264149
Url: https://administrator.de/contentid/264149
Ausgedruckt am: 07.11.2024 um 18:11 Uhr
12 Kommentare
Neuester Kommentar
@Dani : Noch kürzer gehts mit
Gruß jodel32
-edit- etwas aufgehübscht mit einer HTA ginge das auch so (ohne jetzt den Inhalt der Zeile zu kennen und was du daraus extrahieren willst, ist aber kein Problem):
(In Zeile 18 den Pfad zur Textdatei angeben und das ganze als *.hta in speichern und ausführen, der Text wird dann alle 2 Minuten aktualisiert)
(gc 'C:\Temp\textdatei.txt')[99]
-edit- etwas aufgehübscht mit einer HTA ginge das auch so (ohne jetzt den Inhalt der Zeile zu kennen und was du daraus extrahieren willst, ist aber kein Problem):
(In Zeile 18 den Pfad zur Textdatei angeben und das ganze als *.hta in speichern und ausführen, der Text wird dann alle 2 Minuten aktualisiert)
<html>
<head>
<title>Demo</title>
<HTA:APPLICATION
APPLICATIONNAME="Demo"
ID="Demo"
VERSION="1.0"
BORDER="dialog"
MAXIMIZEBUTTON="no"
MINIMIZEBUTTON="no"
SCROLL="no"/>
</head>
<style>
body{background-color: blue; color:white; font-family:Arial;}
.txt{font-size:20pt; text-align:center}
</style>
<script language="VBScript">
Const TEXTFILE = "C:\config.txt"
Dim fso
Sub Window_OnLoad
window.resizeTo screen.availWidth/2,screen.availHeight/2
window.moveTo screen.availWidth/4,screen.availHeight/4
Set fso = CreateObject("Scripting.FileSystemObject")
loadText
window.setInterval "loadText",(120 * 1000)
End Sub
Sub loadText()
line = Split(fso.OpenTextFile(TEXTFILE,1).ReadAll(),vbNewLine)(99)
document.getElementById("txtContent").innerText = line
End Sub
</script>
<body>
<table border=0 width="100%" height="100%">
<tr>
<td id="txtContent" class="txt"></td>
</tr>
</table>
</body>
</html>
Ich glaub du hast ne Buddel Vodka zu viel intus :-P
Beschreibe dein Textfile mal Schritt für Schritt, unsere Glaskugeln sind dazu leider nicht in der Lage zu deuten wo und an welcher Stelle die Daten liegen.
Alles andere ist ebenso Kinderkram und simpel zu lösen.
Ein Mindestmaß an deutlicher Beschreibung kann man eigentlich schon erwarten...aber wenn da Alk im Spiel is ... gehst besser hierhin.
Gruß jodel32
Beschreibe dein Textfile mal Schritt für Schritt, unsere Glaskugeln sind dazu leider nicht in der Lage zu deuten wo und an welcher Stelle die Daten liegen.
Alles andere ist ebenso Kinderkram und simpel zu lösen.
Ein Mindestmaß an deutlicher Beschreibung kann man eigentlich schon erwarten...aber wenn da Alk im Spiel is ... gehst besser hierhin.
Gruß jodel32
Ich weiss nicht wie ich das alles anders sagen soll.
OK, dann hole ich mal meine Glaskugel.... Mist, runtergefallen.
Die gesuchten Zeilen sind Zeile 101 und 102? Oder müssen die Einträge gesucht werden? Gibt es sie nur einmal oder mehrfach in der Datei? Wenn letzteres, willst du dann den ersten, den dreiundelfzigsten oder den letzten Eintrag angezeigt bekommen?
Fragen über Fragen ... armer jodel32.
Grüße
rubberman
OK hier hat mal wieder einer keinen Plan ...
Dann machen wir's halt mit regex universell, dann kanns stehen wo's will.
Viel Spass noch ....
Dann machen wir's halt mit regex universell, dann kanns stehen wo's will.
Viel Spass noch ....
<html>
<head>
<title>Demo</title>
<HTA:APPLICATION
APPLICATIONNAME="Demo"
ID="Demo"
VERSION="1.0"
BORDER="dialog"
MAXIMIZEBUTTON="no"
MINIMIZEBUTTON="no"
SCROLL="no"/>
</head>
<style>
body{background-color: blue; color:white; font-family:Arial;}
#txtContent{font-size:20pt; text-align:center}
#txtHistory{
display:block;
text-align:center;
overflow:hidden;
vertical-align:top;
}
</style>
<script language="VBScript">
Dim fso,objShell,regex,strHistory,strLastServer,strLastIP,arrHistory(5)
Sub Window_OnLoad
window.resizeTo screen.availWidth/2,screen.availHeight/2
window.moveTo screen.availWidth/4,screen.availHeight/4
Set fso = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("Wscript.Shell")
Set regex = CreateObject("vbscript.regexp")
regex.MultiLine = True
regex.IgnoreCase = True
loadText
window.setInterval "loadText",(120 * 1000)
End Sub
Sub loadText()
pathConfig = objShell.ExpandEnvironmentStrings("%userprofile%") & "\Documents\job\" & objShell.ExpandEnvironmentStrings("%username%") & ".config"
If fso.FileExists(pathConfig) Then
strContent = fso.OpenTextFile(pathConfig,1).ReadAll()
regex.Pattern = "lastMPServer=""(.*?)"""
Set matches = regex.Execute(strContent)
If matches.Count > 0 Then
strServerIP = matches(0).submatches(0)
End If
regex.Pattern = "lastMPServername=""(.*?)"""
Set matches = regex.Execute(strContent)
If matches.Count > 0 Then
strServerName = matches(0).submatches(0)
End If
document.getElementById("txtContent").innerHTML = strServerName & "<br />" & strServerIP
If strLastServer <> strServername or strLastIP <> strServerIP Then
For i = 3 To 0 Step -1
arrHistory(i+1) = arrHistory(i)
Next
arrHistory(0) = strServerName & " (" & strServerIP & ")"
document.getElementById("txtHistory").innerText = Join(arrHistory,vbNewLine)
End If
strLastIP = strServerIP
strLastServer = strServername
End If
End Sub
</script>
<body>
<table border=0 width="100%" height="100%">
<tr height="50%"><td id="txtContent"></td></tr>
<tr><td style="text-align:center;text-decoration:underline">History<td></tr>
<tr><td id="txtHistory"><td></tr>
</table>
</body>
</html>
s. geänderter Code oben...
Gruß jodel32
-edit- Zeit im Code korrigiert
ps. kann man daraus eine Exe Datei machen ?
z.B. hiermit: http://www.htaedit.com/Gruß jodel32
-edit- Zeit im Code korrigiert