Πως να κάνετε ένα Column από πολλαπλές εγγραφές

VB Script και κολπάκια, Excel macro, Word, Powerpoint, κτλ

Συντονιστές: WebDev Moderators, Super-Moderators

Απάντηση
Άβαταρ μέλους
Pavel
Honorary Member
Δημοσιεύσεις: 1046
Εγγραφή: 08 Αύγ 2003 00:05
Τοποθεσία: UK

Πως να κάνετε ένα Column από πολλαπλές εγγραφές

Δημοσίευση από Pavel » 15 Ιουν 2009 23:55

Κώδικας: Επιλογή όλων

Public Function LoadFileToString(ByVal szFilename As String) As String
    Dim arFile()    As Byte
    
    Open szFilename For Binary As #1
        Erase arFile(): ReDim arFile(LOF(1) - 1) As Byte
        Get #1, 1, arFile()
        LoadFileToString = StrConv(arFile(), vbUnicode)
    Close #1
End Function

Κώδικας: Επιλογή όλων

Public Sub ParseFile(ByVal szInData As String, ByVal szOutputFile As String)
    Dim vData   As Variant
    Dim vInfo   As Variant
    Dim i       As Long
    Dim k       As Long
    
    Open szOutputFile For Output As #1
    
        vData = Split(szInData, vbCrLf)
        For i = 0 To UBound(vData)
            vData(i) = Trim(vData(i))
            If vData&#40;i&#41; <> "" Then
                vInfo = Split&#40;vData&#40;i&#41;, Chr&#40;32&#41;&#41;
                For k = 0 To UBound&#40;vInfo&#41;
                    vInfo&#40;k&#41; = Trim&#40;vInfo&#40;k&#41;&#41;
                    If vInfo&#40;k&#41; <> "" Then
                        Print #1, vInfo&#40;k&#41;
                    End If
                Next k
            End If
        Next i
    
    Close #1
End Sub
Και για να το εκτελέσουμε:

Κώδικας: Επιλογή όλων

Call ParseFile&#40;LoadFileToString&#40;"C&#58;\data.txt"&#41;, "C&#58;\data_output.txt"&#41;
Alt-F11 σε οποιαδήποτε εφαρμογή του Office, Paste τις functions, Ctrl-G για να εμφανιστεί το Immediate window και Paste την τελευταία γραμμή.
Εσύ είσαι τρελός.


Άβαταρ μέλους
GeoStuff
Honorary Member
Δημοσιεύσεις: 7496
Εγγραφή: 16 Νοέμ 2005 03:12
Τοποθεσία: Στα αλατορυχεία της Ζουαζιλάνδης...

Πως να κάνετε ένα Column από πολλαπλές εγγραφές

Δημοσίευση από GeoStuff » 16 Ιουν 2009 00:04

Έτοιμο το βοηθηματάκι...

Ευχαριστούμε Pavel!!!
Κούκλα Μου Φρεγάτα Σκίζεις Τον Ωκεανό... Μοιάζεις Στον Τιτανικό!!!

Απάντηση

Επιστροφή στο “Office, Excel, Word VB Scripts και Tips”

Μέλη σε σύνδεση

Μέλη σε αυτήν τη Δ. Συζήτηση: Δεν υπάρχουν εγγεγραμμένα μέλη και 0 επισκέπτες