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

Script um merhere Zeilen zu vergleichen

Frage Entwicklung

Mitglied: Gl05e

Gl05e (Level 1) - Jetzt verbinden

06.12.2010, aktualisiert 12:11 Uhr, 2238 Aufrufe, 3 Kommentare

Hallo,

habe ein Log dabei die wie folgt aufgebaut ist:

Searching for "PC Name"

results:
Status: Computer not found;

results:
Status: Computer not found;


ich will mir irgendwie ein Script bauen, was mir den Wert "PC Name" "Computer not found" sowie "Computer not found" in einer Zeile ausgibt, die ich dann in Excel importieren kann.

Leider steht nicht immer "Computer not found" da, sondern auch mal "Entsorgt" oder was ganz anderes.

Hat hier jemand eine Idee wie ich das am besten lösen kann?

Danke
Mitglied: CaptainKuh
06.12.2010 um 15:01 Uhr
Vielleicht kannst Du ja mal einen Ausschnitt posten, dann kann man sicher was mit AutoIT basteln.

Gruß
CaptainKuh
Bitte warten ..
Mitglied: Gl05e
07.12.2010 um 07:41 Uhr
bitte:
01.
Sub test() 
02.
 
03.
 
04.
Const ForReading = 1, ForWriting = 2, ForAppending = 8 
05.
Dim fso, MyFile, FileName, TextLine 
06.
 
07.
Set fso = CreateObject("Scripting.FileSystemObject") 
08.
 
09.
' Open the file for output. 
10.
 
11.
FileName = "c:\test.txt" 
12.
 
13.
 
14.
' Open the file for input. 
15.
Set MyFile = fso.OpenTextFile(FileName, ForReading) 
16.
 
17.
' Read from the file and display the results. 
18.
Do While MyFile.AtEndOfStream <> True 
19.
    TextLine = MyFile.ReadLine 
20.
 
21.
Loop 
22.
MyFile.Close 
23.
 
24.
End Sub
aber irgendwie klappt es nicht so wie ich es haben will. es wird nix in der Datei ausgegeben.

[edit Biber] Codetags [/edit]
Bitte warten ..
Mitglied: CaptainKuh
07.12.2010 um 16:25 Uhr
Also mit der Do While Schleife komme ich nicht zurecht. Fehlt da nicht was? Er müsste ja irgendwas tun während irgend ein Zustand herrscht, aber zwischen DO und WHILE steht ja nix...
Bitte warten ..
Neuester Wissensbeitrag
Heiß diskutierte Inhalte
Windows Userverwaltung
Ausgeschiedene Mitarbeiter im Unternehmen - was tun mit den AD Konten? (33)

Frage von patz223 zum Thema Windows Userverwaltung ...

LAN, WAN, Wireless
FritzBox, zwei Server, verschiedene Netze (21)

Frage von DavidGl zum Thema LAN, WAN, Wireless ...

Viren und Trojaner
Aufgepasst: Neue Ransomware Goldeneye verbreitet sich rasant (20)

Link von Penny.Cilin zum Thema Viren und Trojaner ...

Windows Netzwerk
Windows 10 RDP geht nicht (18)

Frage von Fiasko zum Thema Windows Netzwerk ...