Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
624to628
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
624to628
624to628
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Auslesen vonText aus File und Zurückschreiben

Auslesen vonText aus File und Zurückschreiben
15.06.2005 11:06:46
Helmut
Hallo liebe Forenmitglieder,
ich stehe leider wieder wo an, und es wäre super, wenn mir jemand von euch dabei helfen könnte.
Ich habe eine XML-Datei, in der zwischen den Tags
"EMSG_V1" Text "/EMSG_V1"
ein Text steht (hier "Text").
Ich möchte nur diesen Text zwischen den Tags aus der XML-Datei auslesen, die XML-Datei also öffnen, den Text in eine Zelle in einem Excel-File einfügen, die Excel-Datei speichern und die XML-Datei wieder schließen.
Dazu bräuchte ich eine genaue Angabe eines VBA-Script's, weil ich mich nämlich noch kaum damit auskenne.
Ihr würdet mir sehr helfen damit!
Danke im Voraus!
LG
Helmut

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Auslesen vonText aus File und Zurückschreiben
15.06.2005 12:03:07
bst
Hallo Helmut,
Versuch's mal so. Sollte funktionieren wenn es eine ASCII-Datei ist, sich Dein Tag immer komplett auf einer Zeile befindet und genau so aussieht:
&ltEMSG_V1&gtIrgendeinText&lt/EMSG_V1&gt
HTH, Bernd
--
Option Explicit

Private Const ForReading = 1

Sub test()
    Debug.Print ReadTag("d:\temp\xyz.xml", "EMSG_V1")
    Debug.Print ReadTag("d:\temp\xyz.xml", "NoTag")
    Debug.Print ReadTag("d:\temp\nofile.xml", "NoFile")
End Sub

Function ReadTag(fname As String, tag As String, Optional ignorecase As Boolean = False) As String
    Dim allLines As Variant
    Dim re As Object, m As Object
    Dim fso As Object, txtObj As Object
    
    ReadTag = "Error in ReadTag: File Not Found"
    If Dir(fname) = "" Then Exit Function
    
    ReadTag = "Error in ReadTag: Tag Not Found"
    Set fso = CreateObject("scripting.filesystemobject")
    Set txtObj = fso.OpenTextFile(fname, ForReading)
    allLines = txtObj.ReadAll
    txtObj.Close
    Set txtObj = Nothing
    Set fso = Nothing
    
    Set re = CreateObject("vbscript.regexp")
    re.Pattern = "<" & tag & ">(.*?)</" & tag & ">"
    re.ignorecase = ignorecase
    Set m = re.Execute(allLines)
    If m.Count > 0 Then ReadTag = m(0).submatches(0)
    Set m = Nothing
    Set re = Nothing
End Function

Anzeige
AW: Auslesen vonText aus File und Zurückschreiben
15.06.2005 12:52:23
MichaV
Hi,
hier noch eine Variante. Ausgegeben wird der komplette Text zwischen "EMSG_V1" und
"/EMSG_V1".
Das kannst Du ja entsprechend anpassen.


      
Option Explicit
Private Sub FindeText()
Dim s As String
Const b = "EMSG_V1"
Const c = "/EMSG_V1"
Open "e:\privat\test.xml" For Binary As #1
  s = Space(LOF(1))
  Get #1, , s
Close #1
'bei Gross- Kleinsschreibung nicht beachten:
's = UCase(s): b = UCase(b): c = UCase(c)

On Error GoTo Fehler
MsgBox Mid(s, InStr(s, b) + Len(b), InStr(InStr(s, b), s, c) - InStr(s, b) - Len(b))
Exit Sub
Fehler: MsgBox "Nix gefunden"
End Sub 
Gruss- Micha
Anzeige
AW: Auslesen vonText aus File und Zurückschreiben
15.06.2005 13:34:47
bst
Hi Micha,
Gefällt mir. Ist auch noch viel kürzer und einfacher wie mein Teil.
Gruß, Bernd
AW: Auslesen vonText aus File und Zurückschreiben
15.06.2005 13:42:07
MichaV
Hi Bernd,
das freut mich. Bin richtiger Fan von diesem Datei- Handling ;o)
Aber hilf mir mal bitte auf der binär- Ebene: Wie groß darf die Datei sein, damit alles in einen String passt?(max 2 Milliarden Zeichen)
Danke- Micha
AW: Auslesen vonText aus File und Zurückschreiben
15.06.2005 14:12:41
bst
Hi Micha,
rein theoretisch liefert LOF einen LONG. Also 32 Bit inkl. Vorzeichen.
D.h. die größte positive Zahl ist bei 31 Bit = (2 hoch 31) - 1 = 2147483647
Siehe VBA-Hilfe zu Long ;-)
Ob sich so eine Datei allerdings auch öffnen läßt habe ich nicht probiert :-)
Gruß, Bernd
Anzeige
AW: Auslesen vonText aus File und Zurückschreiben
15.06.2005 14:55:25
MichaV
Hi Bernd,
danke für die Info. Interessanterweise passen in einen String auch 2^31 Zeichen. Also reicht LOF genau aus.
Auf einen Hinweis, daß die Datei nicht größer sein darf als 2GB (das wollt ich eigentlich wissen) werde ich in Zukunft dann weiterhin verzichten ;o)
Gruss- Micha
AW: Auslesen vonText aus File und Zurückschreiben
15.06.2005 13:43:47
Helmut
Hallo ihr beiden!!
Danke euch beiden recht herzlich!! Es funktioniert. Ich habe es auch mit dem Script vom Micha versucht. Ist eben kürzer und für mich "verständlicher".
Ihr habt mir sehr geholfen damit!!
LG
Helmut
Nachtrag
15.06.2005 13:55:05
MichaV
Hi,
Fehler bei Gross/ Klein nicht beachten.
s = UCase(s): b = UCase(b): c = UCase(c) ist Quatsch, weil b und c Konstanten sind.
Wenn Gross/ Kleinschreibung der Tags nicht beachtet werden soll, nimm
MsgBox Mid(s, InStr(1, s, b, vbTextCompare) + Len(b), InStr(InStr(1, s, b, vbTextCompare), s, c, vbTextCompare) - InStr(1, s, b, vbTextCompare) - Len(b))
Gruss- Micha
Anzeige
Danke!!
15.06.2005 15:15:29
Helmut
Hi Micha,
danke für den korrigierten Zusatz! Spitze!
LG
Helmut

307 Forumthreads zu ähnlichen Themen

Zahlen aus Zelle auslesen
Timo

Hallo liebes Forum,
gibt es eine Möglichkeit aus einer Zelle nur die Zahlen auszulesen, siehe Beispiel:
'123456 BLA --> 123456
Ist eine Excel-interne (keine VBA-Programmierung) hier möglich?
Vielen Dank für die Unterstützung!
Timo
14.08.2008 11:16:00
Thread-ID: 1001770
7 Beiträge
Anzeige
Formelbezug aus Zelle
chris

Hallo Excelexperten,
habe eine frage und würde mich sehr über Hilfe freuen.
habe folgende Formel.
='R:\2006\Prüfungen\D 06 001\[MHU_001.xls]Deckblatt'!$A$1
diese Formel bezieht sich immer auf die aktuelle Zeile.
Wenn ich sie herunterziehe sollte es mir immer in die Formel de...
11.09.2008 14:19:13
Thread-ID: 1009123
7 Beiträge
Zahlen aus aus Text extrahieren und addieren
Bernd

Hallo,
ich würde gerne aus einer Zelle, die sowohl Zahlen, aber auch Text enthält, die Zahlen "extrahieren" und miteinander addieren. Der Inhalt der Zelle B2 z.B. würde so aussehen:
'+15 Autos;-10 Waschmaschinen;-3 Schränke
Nun möchte ich in Zelle C2 das Ergebnis sehen: 2
Wie kö...
11.09.2008 16:20:36
Thread-ID: 1009173
10 Beiträge
Anzeige
Bestimmten Wert in einer Zelle finden
Olli

Hallo,
ich lauf gerade wieder mal mit einem Brett vorm Kopf rum und hoffe, mir kann einer hier helfen.
Ich habe in einer Zelle mehrere Werte stehen, die jeweils durch Semikolon getrennt sind (bis zu 15).
Wie kann ich per VBA eine Schleife erstellen, dass solange nach einem Wert gesu...
19.09.2008 08:54:00
Thread-ID: 1010897
5 Beiträge
Textinhalte aus Zellen zusammenkopieren
zehetner

Liebe Profis,
ich habe die Ergebnisse einer Befragung in ein Excel-Sheet eingegeben, jeder Befragte in ein Registerblatt. Nun möchte ich die Antworten der Befragten, die in Textfeldern (immer in den selben, zB E145 stehen) gesammelt in eine neue Tabelle bringen.
Ziel ist es, die Antwort...
21.09.2008 18:29:25
Thread-ID: 1011343
2 Beiträge
Textbox Ausgabe als Zahl bzw. Zeit formatieren
Steffan

Hallo ihr lieben,
ich schreib jetzt schon den ganzen Tag an folgender Routine:
Private Sub CommandButton1_Click() Dim z As Integer z = Range("I101").End(xlUp).Row + 1 TextBox1 = Format(CDate(TextBox1.Value), "dd.mm.yyyy") Cells(z, 9) = TextBox1 'Datum des Tauchgangs Cells(z, 12) = Tex...
28.09.2008 20:12:56
Thread-ID: 1012988
6 Beiträge
Wert nach Änderung einer Zelle schreiben
Markus

Hallo Leute,
ich werde Excel nie wirklich verstehen. Habe wieder eine Frage: Bei Veränderung des Wertes einer Zelle möchte ich einen Wert in eine andere Zelle schreiben (klingt einfach - gelingt mir nicht!):
Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo ErrorHandle...
01.10.2008 18:26:00
Thread-ID: 1013729
31 Beiträge
Text (Datum) aus Zeile mit Zeilenbruch auslesen
Iro

Hallo,
ih habe folgendes Problem: ich muss aus einem vorgegebenen Sheet einen bestimmten Zinssatz zu einem bestimmten (Jahr / Monat) auslesen.
1. Problem: das vorgegebene, gesuchte Datum hat das Format TT.MM.JJJJ, das andere Datum, mit dem ich es vergleichen muss wird mit "Monat Jahr"....
01.10.2008 23:00:06
Thread-ID: 1013778
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
6
16
6
9
4
4
1
5
30
3
1
2
5
2
4
8
5
9
2
1
4
2
4
22
1