importare numeri in excel da testo

[thunderbladerc]

Ciao a tutti sono nuovo, e ho un problema.
ho un file di testo ma con estensione .ini cosi fatto:

Codice: Seleziona tutto

RPMTorque=( 0.0, -32.6, -32.6)
RPMTorque=( 200.0, -23.7, -22.1)
RPMTorque=( 400.0, -24.7, -17.6)
RPMTorque=( 600.0, -25.4, -16.3)
RPMTorque=( 800.0, -25.8, -14.3)
RPMTorque=( 1000.0, -26.1, -10.2)
RPMTorque=( 1200.0, -26.5, -9.5)
RPMTorque=( 1400.0, -26.9, -6.8)
RPMTorque=( 1600.0, -27.8, -2.0)
RPMTorque=( 1800.0, -29.0, 2.9)
RPMTorque=( 2000.0, -30.3, 7.8)
RPMTorque=( 2200.0, -31.5, 12.5)
RPMTorque=( 2400.0, -32.6, 17.1)
RPMTorque=( 2600.0, -33.8, 22.5)
RPMTorque=( 2800.0, -34.9, 28.6)
RPMTorque=( 3000.0, -36.0, 34.7)
RPMTorque=( 3200.0, -37.3, 41.3)
RPMTorque=( 3400.0, -38.5, 47.9)
RPMTorque=( 3600.0, -39.4, 54.1)
RPMTorque=( 3800.0, -39.8, 59.9)
RPMTorque=( 4000.0, -40.2, 65.8)
RPMTorque=( 4200.0, -41.4, 72.0)
RPMTorque=( 4400.0, -42.5, 78.1)
RPMTorque=( 4600.0, -43.7, 85.2)
RPMTorque=( 4800.0, -44.8, 93.2)
RPMTorque=( 5000.0, -45.9, 101.2)
RPMTorque=( 5200.0, -48.0, 111.3)
RPMTorque=( 5400.0, -50.1, 121.3)
RPMTorque=( 5600.0, -52.1, 131.2)
RPMTorque=( 5800.0, -54.0, 140.9)
RPMTorque=( 6000.0, -55.8, 150.6)
RPMTorque=( 6200.0, -58.3, 159.0)
RPMTorque=( 6400.0, -60.9, 167.3)
RPMTorque=( 6600.0, -63.2, 174.3)
RPMTorque=( 6800.0, -65.1, 180.0)
RPMTorque=( 7000.0, -67.1, 185.6)
RPMTorque=( 7200.0, -68.0, 191.8)
RPMTorque=( 7400.0, -68.8, 197.9)
RPMTorque=( 7600.0, -69.9, 203.3)
RPMTorque=( 7800.0, -71.4, 208.0)
RPMTorque=( 8000.0, -72.8, 212.6)
RPMTorque=( 8200.0, -73.2, 217.7)
RPMTorque=( 8400.0, -73.6, 222.8)
RPMTorque=( 8600.0, -74.5, 227.5)
RPMTorque=( 8800.0, -75.7, 231.6)
RPMTorque=( 9000.0, -77.0, 235.7)
RPMTorque=( 9200.0, -79.0, 240.3)
RPMTorque=( 9400.0, -80.9, 245.0)
RPMTorque=( 9600.0, -83.2, 249.6)
RPMTorque=( 9800.0, -85.8, 254.3)
RPMTorque=( 10000.0, -88.3, 258.9)
RPMTorque=( 10200.0, -91.0, 262.0)
RPMTorque=( 10400.0, -93.7, 265.1)
RPMTorque=( 10600.0, -96.2, 268.4)
RPMTorque=( 10800.0, -98.6, 272.0)
RPMTorque=( 11000.0, -101.0, 275.6)
RPMTorque=( 11200.0, -103.0, 280.2)
RPMTorque=( 11400.0, -104.9, 284.8)
RPMTorque=( 11600.0, -107.2, 288.9)
RPMTorque=( 11800.0, -109.8, 292.5)
RPMTorque=( 12000.0, -112.3, 296.1)
RPMTorque=( 12200.0, -114.7, 299.2)
RPMTorque=( 12400.0, -117.1, 302.3)
RPMTorque=( 12600.0, -119.7, 305.9)
RPMTorque=( 12800.0, -122.4, 310.0)
RPMTorque=( 13000.0, -125.1, 314.1)
RPMTorque=( 13200.0, -127.6, 318.7)
RPMTorque=( 13400.0, -130.1, 323.4)
RPMTorque=( 13600.0, -133.0, 327.8)
RPMTorque=( 13800.0, -136.1, 331.9)
RPMTorque=( 14000.0, -139.2, 336.0)
RPMTorque=( 14200.0, -142.0, 339.6)
RPMTorque=( 14400.0, -144.9, 343.2)
RPMTorque=( 14600.0, -147.7, 346.3)
RPMTorque=( 14800.0, -150.5, 348.8)
RPMTorque=( 15000.0, -153.3, 351.4)
RPMTorque=( 15200.0, -154.7, 349.4)
RPMTorque=( 15400.0, -156.2, 347.3)
RPMTorque=( 15600.0, -157.3, 344.5)
RPMTorque=( 15800.0, -158.1, 340.9)
RPMTorque=( 16000.0, -159.0, 337.3)
RPMTorque=( 16200.0, -159.0, 333.2)
RPMTorque=( 16400.0, -159.0, 329.1)
RPMTorque=( 16600.0, -158.5, 324.9)
RPMTorque=( 16800.0, -157.3, 320.8)
RPMTorque=( 17000.0, -156.2, 316.7)
RPMTorque=( 17200.0, -152.5, 312.1)
RPMTorque=( 17400.0, -148.7, 307.4)
RPMTorque=( 17600.0, -144.8, 302.0)
RPMTorque=( 17800.0, -140.6, 295.9)
RPMTorque=( 18000.0, -136.4, 289.7)
RPMTorque=( 18200.0, -130.7, 278.4)
RPMTorque=( 18400.0, -125.0, 267.1)
RPMTorque=( 18600.0, -118.8, 254.7)
RPMTorque=( 18800.0, -112.3, 241.4)
RPMTorque=( 19000.0, -105.7, 228.0)
RPMTorque=( 19200.0, -101.2, 210.6)
RPMTorque=( 19400.0, -96.6, 193.3)
RPMTorque=( 19600.0, -92.0, 175.5)
RPMTorque=( 19800.0, -87.2, 157.4)
RPMTorque=( 20000.0, -82.5, 139.3)
RPMTorque=( 20200.0, -79.0, 119.9)
RPMTorque=( 20400.0, -75.5, 100.4)
RPMTorque=( 20600.0, -71.8, 81.7)
RPMTorque=( 20800.0, -67.9, 63.6)
RPMTorque=( 21000.0, -64.0, 45.5)

il primo numero indica il numero di giri di un motore, il secondo la coppia frenante del motore stesso e il terzo la coppia erogata.

vorrei creare una macro dove con un pulsante mi apre explorer e mi faccia aprire questo file, importando solo i 3 numeri in colonna cosi come nel testo senza scritte e parentesi e virgole, ovviamente un numero per cella.
chi mi aiuta??+
grazie in anticipo

[ricky53]

Ciao,
prima di tutto benvenuto nel nostro forum.

Veniamo al tuo quesito.
Se l'operazione va fatta una sola volta (o poche volte) non è necessario ricorrere ad una macro ma:
apri con excel il tuo file
selezioni la colonna "A"
barra dei menu
dati
testo in colonne
delimitati e avanti
metti il check su "virgola", "spazio" e su "altro" qui scrivi ")" ("Parentesi Chiusa" ma SENZA i doppi apici)
fine

adesso

seleziona le colonne B,C,D
Barra dei menu
Modifica
Trova e scrivi "."
Sostituisci e scrivi "," (ovviamente SENZA i doppi apici)
Sostitusci tutto
e ....
il gioco è fatto

[Anthony47]

Ciao thunderbladerc, benvenuto anche da parte mia.
Amplio la risposta di Ricky (vedi sopra) suggerendoti di procedere tramite una macro autoregistrata:
-Avvia la registrazione di una nuova macro
-esegui diligentemente le operazioni di apertura guidata del file:
--Menu /File /Apri
--seleziona Tipo file =Tutti i file
--seleziona il tuo file e aprilo; ti si apre Importazione guidata di testo
--spunta Delimitati, premi Avanti
--come delimitatori spunta Virgola, Spazio, e nel box Altro inserisci ancora ")" (senza virgolette); Avanti
--QUESTA E' AGGIUNTIVA rispetto a quanto detto da Ricky: premi Avanzate e imposta come separatore decimale il "punto" e "virgola" per le migliaia; Ok
--Fine; il file verra' importato gia' in formato corretto
-esegui altre operazioni che vorresti inserire nella macro (Formattazione colonne, ...)
-Interrompi la registrazione della macro

Se invece di aprire un file fisso vuoi poter scegliere, allora mette queste due righe subito in testa alla tua macro

Codice: Seleziona tutto

Sub NomeMacro()
Percorso = Application.GetOpenFilename("(*.ini), *.ini", , "Scegli File")
If Percorso = False Then Exit Sub


poi nella tua macro sostituisci la stringa tra virgolette che rappresentava il file fisso con "Percorso" (senza virgolette); esempio, da
Workbooks.OpenText Filename:= _
"C:\Users\Utente\Documents\pippo_thunderbladerc.ini", Origin:=xlMSDOS, _
a
Workbooks.OpenText Filename:= _
Percorso, Origin:=xlMSDOS, _

Fai sapere, ciao

[thunderbladerc]

ciao, mi spiace ma nn funziona...mi dice sintax error.
comunque vorrei anche che mi toliesse tutte le scritte e che rimangano solo i numeri
e poi cm faccio a salvare il tutto?
grazie

[thunderbladerc]

ok funziona, solo che i file sono diversi e non unico, e in piu sono leggermente diversi nel senso che possono apparire cosi:

Codice: Seleziona tutto

// JMP 2011
RPMTorque=( 0.0, -32.6, -32.6)
RPMTorque=( 200.0, -23.7, -22.1)
RPMTorque=( 400.0, -24.7, -17.6)
RPMTorque=( 600.0, -25.4, -16.3)
RPMTorque=( 800.0, -25.8, -14.3)
RPMTorque=( 1000.0, -26.1, -10.2)
RPMTorque=( 1200.0, -26.5, -9.5)
RPMTorque=( 1400.0, -26.9, -6.8)

oppure cosi:

Codice: Seleziona tutto

// Ferrari F40
// 468 HP @ 7200 RPM
// 528 Nm @ 4500 RPM
RPMTorque=( 0.0, -16.9, -16.9)
RPMTorque=( 250.0, -22.5, 20.0)
RPMTorque=( 500.0, -31.0, 60.5)
RPMTorque=( 750.0, -36.6, 118.0)
RPMTorque=( 1000.0, -40.9, 146.9)
RPMTorque=( 1250.0, -46.5, 169.8)
RPMTorque=( 1500.0, -47.9, 187.3)

nel senso che le stringhe con "//" sono commenti e vanno scartati ma nei file ci sono e in excel vengono importati. come posso eliminarli?
cioe come posso avere alla prima riga solo i numeri, senza i commenti in excel?
grazie (spero di essermi capito!!)

[ricky53]

Ciao,
vale la pena di togliere quelle righe manualmente e poi procedere come consigliato da me e migliorato da Anthony?