So Bearbeiten Sie eine Textdatei mit excel-vba

Brauche ich zum Bearbeiten einer text-Datei habe ich.e hinzufügen und aktualisieren Sie die Daten mit dem makro. Ich habe eine text-Datei mit tausenden von Datensätzen, eine separate excel-Tabelle gibt die Zuordnung der Daten in text-Datei. Zum Beispiel, einen Datensatz in der Textdatei sieht wie folgt aus:

ABCDNew Delhi India

Mapping-excel-sheet für diese ist wie folgt:

Name    4
City    10
Country 10

Was bedeutet, dass die 1. vier Zeichen im record-geben Sie den Namen, die nächsten 10 geben Stadt und die nächsten 10 geben, das Land von einer bestimmten person und so weiter. Nun, ich habe zum Bearbeiten eines Datensatzes (ein oder zwei Felder) für einen bestimmten Namen und speichern Sie es in der gleichen Datei. Auch ich habe einen neuen Datensatz hinzufügen in dem oben angegebenen format und speichern Sie die Datei.

Excel-sheet gibt nur die Zuordnung der Felder in der text-Datei. Es erzählt nur die Feldlängen. Wie u sehen können, in meiner Frage, der text ist stetig ohne Trennzeichen. damit die excel-Tabelle wird benutzt, um die variuos Felder in der text-Datei. Beispiel-Datensatz:

ABCDDelhiIndia1100019876543210

und das mapping ist:

Name 4
Stadt 5
Land 5
PinCode 6
PhnNo 10

Mapping ist die gleiche für alle Datensätze in eine Datei. Seine gibt nur einen Weg, wie die Datensätze werden aus einer Datei gelesen.

Irgendwelche Ideen auf, wie kann ich dies in einfachster Weise?

Ich habe es versucht, mithilfe von Microsoft access-Datenbank. Ich lud die Daten in access DB und bearbeitet den Datensatz gibt. Das funktionierte gut, wie pro die Anforderungen, aber access DB verbraucht etwa 800 MB Speicherplatz. Will ich die änderungen direkt in der Datei.

InformationsquelleAutor user2884776 | 2013-10-21

  1. 2

    Können Sie einige Trennzeichen zwischen Name, Stadt und Land zum Beispiel : ABCD:Neu-Delhi:Indien.
    Mit Trennzeichen können Sie separate Namen, Stadt und Land. Jetzt können Sie leicht feststellen, die Länge der einzelnen strings. Nun, basierend auf Ihren Anforderungen können Sie ganz einfach Bearbeiten Sie die Daten und schreiben in die Datei. Finden Sie den code unten für Referenz :
    Text-Datei : exceltest
    abcd:neu-delhi:Indien
    test:NY:USA

    Makro-Code : 

    Sub readTextFile()

Dim oFSO As New FileSystemObject

Dim oFS

Dim objFSO As New FileSystemObject

Set myTemp = objFSO.CreateTextFile("C:\Users\Rohit\Desktop\exceltestTemp.txt", True)

Set oFS = oFSO.OpenTextFile("C:\Users\Rohit\Desktop\exceltest.txt")

Do Until oFS.AtEndOfStream

stext = oFS.ReadLine

Dim testarray() As String

testarray = Split(stext, ":")

Dim i As Integer 

i = Len(testarray(0)) 'determine length of each String, here as a sample only length of one string is determined

Cells(4, "a").Value = i 'writing a length to excel sheet, you can write to any location

Cells(1, "a").Value = testarray(0) 'writing contents to excel sheet

Cells(2, "a").Value = testarray(1) 'writing contents to excel sheet

Cells(3, "a").Value = testarray(2) 'writing contents to excel sheet

'Search for the Name

If testarray(0) = "test" Then

testarray(1) = "Mumbai"

End If

myTemp.WriteLine testarray(0) & ":" & testarray(1) & ":" & testarray(2) 'writing to a temp text file

Loop

End Sub

    Nun basierend auf Ihren Anforderungen können Sie nach dem Namen suchen und Bearbeiten der Daten und schreiben in eine Datei. Sie können dann löschen Sie die ursprüngliche Datei, und speichern Sie die temp-Datei als original-Datei.

    PS : habe Versucht auf Excel 2007. Sie müssen, fügen Sie den Verweis "Microsoft Scripting Runtime".

    scheint mir, wie die OP will Sie auf Bearbeiten und update die txt-Datei und nicht nur eine neue erstellen.
    Hallo ... vielen Dank für Eure Hilfe. Ich wirklich schätzen Ihre Unterstützung, aber ich haben ein Problem hier. Ich kann keine Trennzeichen zwischen den Feldern in der Datei, da ich mehr als 50 Felder in einer Datei und es sind mehr als 20 Dateien. Gibt es eine andere alternative in einer Weise, die ich verwenden kann, die Feldlänge und-position, die Informationen aus der separaten mapping-Blatt, das ich habe.
    Hi.. Zuerst möchte ich wissen, wie Sie die Zuordnung eines Daten in eine text-Datei mit dem excel-Blatt. Gibt es eine Möglichkeit, um eindeutig die Zuordnung an. Wie : die Zeile der Daten in text-Datei gehört zu welcher Zeile in einem Blatt. Wenn möglich kannst du mir einige Beispiel-Daten, so dass ich arbeiten kann. Danke!!!
    Das excel sheet gibt nur die Zuordnung der Felder in der text-Datei. Die Zuordnung ist der gleiche für alle Datensätze in eine Datei. Seine gibt nur einen Weg, wie kann ein Datensatz aus einer Datei Lesen. Hoffe, das hilft ...
    Mehr Ideen?

    InformationsquelleAutor rohitgattani

  2. 0

    Was Sie beschrieben haben ist mit fester Breite Daten. Dies ist gerade nach vorne, um den import der Daten als text-Datei in excel mit dem "fixed width" - option in dem Dialogfeld "importieren". Sie können dann wählen Sie die start-und Ende für jedes Feld. Der schwierigste Teil ist, zu exportieren, um das gleiche format. Der einzige Weg den ich kenne um dies zu erreichen ist es über VBA. Es scheint so, als wäre es gerade vorwärts-routine zu schreiben, es hat vermutlich schon geschrieben viele, viele Male.

    InformationsquelleAutor dra_red

Schreibe einen Kommentar