|
Hallo,
ich habe vor eine text Datei via vba mit ein Makro einzulesen und ganz bestimmte bereiche aus der Textdatei in Zellen einzutragen. Nun Einlesen klappt soweit aber irgendwie habe ich schwierigkeiten bestimmte bereiche in Zellen zu unterteilen.
die Textdatei enthaelt folgenden Code:
"GameObject:
m_ObjectHideFlags: 0
m_PrefabParentObject: {fileID: 0}
m_PrefabInternal: {fileID: 100100000}
serializedVersion: 5
m_Component:
- component: fileID: 4259967266130478 , 33539468364250858
- component: fileID: 4259967264534534 , 33234234234243424
- component: fileID: 4259967564564568 , 33539464565465558 "
und ich moechte gerne nur die folgenden Daten in Zellen haben:
4259967266130478 , 33539468364250858
4259967264534534 , 33234234234243424
4259967564564568 , 33539464565465558
Mein Versuch bisher:
Sub Import_TxtFile()
Dim X As Double
Dim TXT As String
Dim Cor As String
Cor = "fileID:"
Open "D:\Eigene Dateien\ArtStation\IFMS\ExcelVBA\Workshop.prefab" For Input As #1
X = 0
Do While Not EOF(1)
Line Input #1, TXT
If Cor = "fileID:" Then
Cells(1, 1).Offset(X, 0) = TXT
X = X + 1
End If
Loop
Close #1
End Sub
Ich waere super dankbar, wenn man mir behilflich sein koennte.
MFG
|