aiuto per manipolare un txt

[jackis]

era troppo complicato per le mie conoscenze su questa materia

stasera provo
ti faccio sapere

ciao

[jackis]

Flash direi che la macro che hai creato ha fatto egregiamente il suo lavoro

http://imageshack.us/photo/my-images/11/catturacr.jpg/

Ti ringrazio infinitamente
rimango a disposizioni per chiunque abbia bisogno di aiuto nel campo dove sono un pò + competente e cioè il trading

grazie ancora
buon lavoro

jackis

[Flash30005]

Bene!
Sono contento che hai raaggiunto il tuo scopo
e gli utenti che possano utilizzare la tua macro

Ciao

[jackis]

ciao flash, ciao a tutti,
riprendo questo vecchio post perchè purtroppo ho necessità di fare delle modifiche alla macro che allego in quanto non più utilizzabile causa cambio fornitore dati.
vecchia macro la trovi qui: http://www.filedropper.com/vecchiamacro

ora ricevo quotidianamente un file come questo che puoi scaricare a questo link
http://www.filedropper.com/portfolio-commodity-10052011
come vedi ricevo un file .csv ma volendo quando si scarica si può anche rinominare in .txt; vedi tu come è meglio x la macro da creare...

provo a spiegare il fine della macro:
come puoi ben vedere ci sono diversi dati divisi in colonne NAME , CONTRACT, TIME, OPEN ect etc...
innanzi tutto le prime due righe del file sono da eliminare in quanto non servono

deve venir creato un file txt x ogni riga dati, nominati con il nome che troviamo in corrispondenza della prima colonna NAME + il contenuto che si trova tra le parentesi ( ) della seconda colonna CONTRACT ma senza le ()
faccio un esempio la prima riga riporta questi dati:

Crude Oil WTI CLX11 (Nov '11) 10/05/11 78.25 79.82 76.94 79.73 316439 290743

dovrebbe uscire un txt nominato: Crude Oil WTI Nov 11 con all'interno i seguenti dati:

10/05/11 78.25 79.82 76.94 79.73 316439 290743

come puoi ben vedere bisogna togliere anche tutto quello che si trova nelle prime 2 colonne NAME e CONTRACT in quanto il programma che uso x elaborare tali file non vuole questi dati...

a volte capita che nella quarta colonna OPEN c'è uno 0 (come puoi vedere a riga 5) in questi casi bisogna riempire quel campo sostituendo lo 0 con il numero della colonna immediatamente alla sua destra
esempio
10/05/11 0 80.03 80.03 80.03 43297 127787
dovremmo ottenere dalla macro questo:
10/05/11 80.03 80.03 80.03 80.03 43297 127787

Infine salvare tutti i file in txt in una directory di nome C:\Omega Research\Dati Ascii\BarChart sostituendo ogni volta i file uguali e aggiungendo i nuovi che mano a mano verranno a crearsi nel file madre.

Spero di esser stato abb. chiaro in tal caso fammi sapere

Grazie infinite x l'aiuto

jackis

PS
ti ricordo che uso openoffice anche se grossi problemi nn ne avevamo incontrati.

[Flash30005]

Nel File non c'è nulla e fornisce un errore

[Flash30005]

Prova questa macro

Codice: Seleziona tutto

Sub ImpEspTxt2()
    'Perc = ThisWorkbook.Path & "\"
    Perc = "C:\Omega Research\Dati Ascii\MF Global\"
    FileOr = "aaa.txt"
    If Dir(Perc & "Archivio", vbDirectory) = "" Then MkDir Perc & "Archivio"
    If Dir(Perc & FileOr, vbFile) = "" Then
    MsgBox "Non ci sono File da elaborare"
    Exit Sub
    End If
    Open Perc & FileOr For Input As #1
    Do Until EOF(1)
    CV = 0
         Line Input #1, riga
         If UCase(Mid(riga, 1, 9)) = "PORTFOLIO" Or UCase(Mid(riga, 1, 4)) = "NAME" Then GoTo SaltaR
         For Virg = 1 To Len(riga)
            If Mid(riga, Virg, 1) = "," Then CV = CV + 1
            If CV = 2 Then
                NFile = Mid(riga, 1, Virg - 1)
                NFile = Replace(NFile, ",", " ")
                NFile = Replace(NFile, "(", "")
                NFile = Replace(NFile, ")", "")
                NFile = Replace(NFile, "'", "")
                StringaEff = Mid(riga, Virg + 1, Len(riga))
                StringaIni = Mid(riga, Virg + 1, 9)
                StringaRim = Mid(riga, Virg + 1 + 9, Len(riga))
                CV2 = 0
                For Virg2 = 1 To Len(StringaRim)
                If Mid(StringaRim, Virg2, 1) = "," Then CV2 = CV2 + 1
                If CV2 = 1 Then
                    C0 = Mid(StringaRim, Virg2 - 1, 1)
                    If C0 = "0" Then
                        For Virg3 = Virg2 + 1 To Len(StringaRim)
                        If Mid(StringaRim, Virg3, 1) = "," Then CV2 = CV2 + 1
                        If CV2 = 2 Then
                            C0 = Mid(StringaRim, Virg2 + 1, Virg3 - 2)
                            StringaEff = StringaIni & C0 & Mid(StringaRim, Virg2 + 1, Len(StringaRim))
                            GoTo SaltaVirg
                        End If
                        Next Virg3
                   
                    Else
                        GoTo SaltaVirg
                    End If
                End If
                Next Virg2
                GoTo SaltaVirg
            End If

         Next
SaltaVirg:
            Anno = "Commodities"
            File = NFile & ".txt"
            If Dir(Perc & Anno, vbDirectory) = "" Then MkDir Perc & Anno
                Open Perc & Anno & "\" & File For Append As #2
                Print #2, StringaEff
                Close #2
SaltaR:
    Loop
    Close #1
    FileArch = Mid(Date, 7, 4) & Mid(Date, 4, 2) & Mid(Date, 1, 2) & ".txt"
    OldName = Perc & FileOr: NewName = Perc & "Archivio\" & FileArch
    Name OldName As NewName
    MsgBox "File Elaborato"
    End Sub

Avvertenza il file che scaricherai giornalmente dovra essere denominato "aaa.txt" e in formato testo
inserito nella cartella del percorso indicato altrimenti adatta la macro.

Se hai problemi e/o modifiche da fare posta ancora

ciao

[jackis]

Flash direi che la macro che hai creato ha fatto egregiamente il suo lavoro

come al solito rimango a disposizione x quanto riguarda la mia materia
Ti ringrazio moltissimo

a presto
jackis

p.s.
si riesce a creare una macro x azzerare la crisi???
o forse bisogna creare una macro x azzerare i cervelli di chi l'ha creata....

ciaooooooo

[Flash30005]

o forse bisogna creare una macro x azzerare i cervelli di chi l'ha creata....

Albert Einstein diceva:
"I problemi non possono essere risolti allo stesso livello di conoscenza che li ha creati"

si riesce a creare una macro x azzerare la crisi???

Qualcosa ho proposto
se interessa leggi e commenta Qui

Ciao