Top-Themen

Aktuelle Themen (A bis Z)

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

Via VB best. Zeilen aus TXT-File in Excelsheet schreiben

Mitglied: CakeHead

CakeHead (Level 1) - Jetzt verbinden

08.12.2008, aktualisiert 10.12.2008, 5551 Aufrufe, 7 Kommentare

Guten Tag!

Habe lange wegen meinem Problem gegoogelt und hier einige Beiträge durchgelesen und mit den antworten/vorschlägen rumgetüftelt..
Hat aber leider nur teilweise geklappt..
Nach langem Überlegen hab ich mich jetz, da ich kurz vorm verzweifeln bin, dazu entschlossen mein Problem mit euch zu teilen ^^.
Und zwar:

Ich muss aus einer TXT.FILE die wie folgt aussieht (die Struktur wiederholt sich, da das File über 12000-Zeilen behinhaltet)
die Zeile zwischen den "-Zeichen(Anführungszeichen) rauskopieren und in Excel in eine bestimmte Spalte,z.B. A4, schreiben.
D.h. Ich gebe als Suchbegriff Description ein und alles was hinter Description zwischen den "-Zeichen steht, soll er rauskopieren und in Excel reinschreiben.

OPCMSG "BSH_APO"
DESCRIPTION "OVO/APO integration"
MSGGRP "APO"
MSGCONDITIONS
DESCRIPTION "MSG TYPE C/M/W SERVER blabla"
CONDITION_ID "0f58bla466-850d-71db-06fc-0a8blabla60000"
CONDITION
SEVERITY Warning Major Critical
NODE IP 10.blab.bla.91 "blabla.com"
TEXT "<*.txt>"
SET
APPLICATION "Automation Point"
MSGGRP "APblaO"
TEXT "NEW APO <txt>"
DESCRIPTION "MSG TYPE bla/lb/a SERVER blabla"
CONDITION_ID "00b91724-850d-71db-06fc-0a80809blabla"
CONDITION
SEVERITY Warning Major Critical
NODE IP 10.bla.blalba.92 "blalba.com"
TEXT "<*.txt>"




Das alles soll über VBA funktionieren.
Habe etwas ähnliches bereits gefunden:


Sub SuchenUndSchreiben()

On Error GoTo Fehler
Dim Datei As String
Dim Fnr As Long
Dim Trennzeichen As String
Dim Suchbegriff As String

Trennzeichen = ": "
Suchbegriff = "Description"
Datei = "C:\temp\Datei.txt"
Fnr = FreeFile
Open Datei For Input As #Fnr

While Not EOF(Fnr)
Line Input #Fnr, Zeile
tokens = Split(Zeile, Trennzeichen)
If tokens(0) = Suchbegriff Then Range("a3").Value = tokens(1)
Wend

Close #Fnr
Exit Sub

Fehler:
MsgBox "Es trat ein Fehler beim Öffnen der" & " Datei !", 16, "Problem"
Exit Sub
Resume Next


End Sub


Wäre wirklich Super, wenn mir jemand helfen könnte!
Vielen Dank das du dir mein Problem angeschaut hast!

Grüße CakeHead
Mitglied: Logan000
08.12.2008 um 12:53 Uhr
Moin Moin

Ohne Referenz auf Excel wird das nix.
Versuchs mal so (ungetestet):
01.
Set objFSO = CreateObject("Scripting.FileSystemObject") 
02.
Set objSourceFile = objFSO.OpenTextFile("c:\Source.txt", 1)	 
03.
Set objExcel = CreateObject("Excel.Application") 
04.
Set objWorkbook = objExcel.Workbooks.Add		 
05.
Set objWorkSheet = objWorkbook.Worksheets(1)		 
06.
				 
07.
Do Until objSourceFile.AtEndOfStream 				 
08.
     szNextLine = objSourceFile.Readline			 
09.
     tokens = Split(szNextLine, Chr(34)) 
10.
     If tokens(0) = Suchbegriff Then 
11.
          objWorkSheet.Range("A3").Value = tokens(1) 
12.
     end if 
13.
Loop 
14.
 
15.
objWorkbook.SaveAs "C:\MappeX.xls" 
16.
objExcel.Visible = True   
Gruß L.
Bitte warten ..
Mitglied: CakeHead
08.12.2008 um 13:18 Uhr
wow!

Vielen dank für die schnelle antwort @Logan000

hab bereits eine Tabelle und es auch schon geschafft dass er mir einen eingegebenen Suchbegriff aus der txt-file sucht und den dahinter stehenden text in meine bereits erstellte excel-tabelle einschreibt..

jedoch stoppt er nachdem er den suchbegriff gefunden hat.
er soll aber weiterlaufen bis er alle suchbegriffe,und somit die dahinterstehenen zeilen, gefunden und übertragen hat...
bin neu in dem gebiet... sorry

gruß


:::Edit:
habs ausprobiert, er macht mir mit dem code nur eine neue Excel-Map auf... sonst nichts.
Bitte warten ..
Mitglied: Logan000
09.12.2008 um 08:47 Uhr
Moin Moin

habs ausprobiert, er macht mir mit dem code nur eine neue Excel-Map auf... sonst nichts.

Nun Ja ich habe in der Zeile
01.
... 
02.
If tokens(0) = Suchbegriff Then  
03.
...
auch keinen Suchbegriff angegeben. Wenn Du das auch nicht gemacht hast wird nix gefunden worden sein.

jedoch stoppt er nachdem er den suchbegriff gefunden hat.
Sowohl dein code als auch mein Bsp. suchen nur einen Suchbegriff.
Endweder packst du die suche in eine eigene Funktion und rufst diese mit verschiedenen Suchbegriffen auf oder du abreitest eine Liste/Array mit suchbegriffen ab.

Gruß L.
Bitte warten ..
Mitglied: CakeHead
09.12.2008 um 15:37 Uhr
Habs jetz endlich hinbekommen!^^

würrde den code gerne hochladen. wie funktioniert das, damit der code richtig formatiert auf der seite dagestellt wird?
Bitte warten ..
Mitglied: Logan000
09.12.2008 um 16:13 Uhr
Moin Moin

Da schau mal in der Formatierungshilfe nach.

Gruß L.
Bitte warten ..
Mitglied: CakeHead
10.12.2008 um 11:17 Uhr
wen es interessiert, hier der Code:

01.
 
02.
Sub logfileLesenUndSuchen() 
03.
 
04.
    On Error GoTo Fehler 
05.
    Dim logfile As String 
06.
    Dim Suchbegriff As String 
07.
    Dim iCounter As Integer 
08.
    Dim objFSO 
09.
    Dim objFile 
10.
    Dim Zeile As String 
11.
   
12.
 'DESCRIPTION 2. 
13.
  
14.
    logfile = "C:\temp\logfile.txt" 
15.
    Suchbegriff = "DESCRIPTION " 
16.
   
17.
    iCounter = 4       'setzt den Ausgangspunkt in 4.Zeile 
18.
    Set objFSO = CreateObject("Scripting.FileSystemObject") 
19.
    Set objFile = objFSO.OpenTextFile(logfile, 1) 
20.
     
21.
    Do Until objFile.AtEndOfStream 
22.
        Zeile = objFile.ReadLine 
23.
        If InStr(1, Zeile, Suchbegriff) > 0 Then 
24.
            Cells(iCounter, 2).Value = Split(Zeile, Suchbegriff)(1)        'hier wird festgelegt in welcher Spalte gefundene Begriffe reingeschrieben werden 
25.
            Cells(iCounter, 2).Value = ZeichenEntf(Cells(iCounter, 2).Value, """") 
26.
            iCounter = iCounter + 1 
27.
        End If 
28.
    Loop 
29.
    objFile.Close 
30.
    Exit Sub 
31.
 
32.
Fehler: 
33.
    MsgBox "Es trat ein Fehler beim Öffnen der" & _ 
34.
           " logfile !", 16, "Problem" 
35.
    Exit Sub 
36.
    Resume Next 
37.
 
38.
     
39.
End Sub 
40.
 

grüße CakeHead
Bitte warten ..
Mitglied: Logan000
10.12.2008 um 14:09 Uhr
Moin

Sei doch so gut und setze den Beitrag auf erledigt.
Danke.

Gruß L.
Bitte warten ..
Ähnliche Inhalte
Batch & Shell

Per Batch in ausgewählte oder vorgeschriebene Zeile einer .txt schreiben

gelöst Frage von pdiddoBatch & Shell6 Kommentare

Morgen Leute, vor lauter Bäumen sehe ich den Wald nicht mehr. Ich möchte, dass meine 1.bat in die erste ...

Batch & Shell

Einzlne Zeile eines TXT Files mittels Batch kopieren und in separate TXT Files mit verschiedenen Titels speichern

gelöst Frage von TomilaiBatch & Shell6 Kommentare

Hallo liebe Comunity, ich hoffe der Title verwirrt nicht all zu sehr. Also, ich habe eine Textdatei bestehen aus ...

Batch & Shell

Erstellungsdatum vor jede Zeile einer Textdatei schreiben

gelöst Frage von freakonaleashBatch & Shell5 Kommentare

Hallo zusammen, ich habe einen Ordner mit ganz vielen Textdateien. Ich bräuchte eine Batch, die in jede Datei vor ...

Batch & Shell

Einzlne Zeile eines TXT Files mittels Batch kopieren und in separate TXT Files nummerisch speichern

gelöst Frage von TomilaiBatch & Shell11 Kommentare

Hallo, ich hoffe der Title verwirrt nicht all zu sehr. Also, ich habe eine Textdatei bestehen aus 100 Zeilen. ...

Neue Wissensbeiträge
Windows 10

USB Maus und Tastatur versagen Dienst unter Windows 10

Erfahrungsbericht von hardykopff vor 1 TagWindows 105 Kommentare

Da steht man ziemlich dumm da, wenn der PC sich wegen fehlender USB Tastatur und Maus nicht bedienen lässt. ...

Administrator.de Feedback
Update der Seite: Alles zentriert
Information von Frank vor 1 TagAdministrator.de Feedback18 Kommentare

Hallo User, die größte Änderung von Release 5.8 ist das Zentrieren der Webseite (auf großen Bildschirmen) und ein "Welcome"-Teaser ...

Humor (lol)

WhatsApp-Nachrichten endlich auch per Bluetooth versendbar

Information von BassFishFox vor 2 TagenHumor (lol)4 Kommentare

Genau darauf habe ich gewartet! ;-) Der beliebte Messaging-Dienst WhatsApp erhält eine praktische neue Funktion: Ab dem nächsten Update ...

Google Android

Googles "Android Enterprise Recommended" für Unternehmen

Information von kgborn vor 3 TagenGoogle Android3 Kommentare

Hier eine Information, die für Administratoren und Verantwortliche in Unternehmen, die für die Beschaffung und das Rollout von Android-Geräten ...

Heiß diskutierte Inhalte
Windows Server
Standortvernetzung zu einem Strato VServer (Windows)
Frage von matzefratze81Windows Server10 Kommentare

Moin, ich komme aus einem Enterprise-Umfeld und habe den Fehler gemacht, dass ich mich auf ein kleines Unternehmen eingelassen ...

Grafikkarten & Monitore
4k EIZO Monitor, Fernseher und Splitter
Frage von LerxxeyGrafikkarten & Monitore9 Kommentare

Hallo Zusammen, vielleicht könnt ihr mir bei einem Problem helfen wo ich einfach nicht mehr weiterkomme Und zwar haben ...

TK-Netze & Geräte
Fax im Betrieb
Frage von gansa28TK-Netze & Geräte6 Kommentare

Hallo zusammen, Endlich wurden meine Gebete Erhört und der Rechner meines Bekannten dem ich etwas unter die Arme greife, ...

Windows Server
HyperV Failover Cluster Konzeption und Aufbau
Frage von snowboard86Windows Server5 Kommentare

Hallo liebe KollegInnen, Ich habe eine Frage zu Hyper V Failover-Clusters. Wir sind ein mittelständisches Handelsunternehmen und haben aktuell ...