Abren un notepad, copian el codigo de abajo ( lo que estan entre ‘ CODIGO y lo guardan con extension vbs, lo ejecutan y se le generara un archivo .txt en el disco c.
nombrado ArchivoNuevo.No se olviden de bajar de FeedBurner el archivo .csv, que en este caso se llama FeedMails

‘ CODIGO

Dim fso, f1, ts, s, mailNumero
mailNumero = 0
mailNumeroActivo = 0
mailInactivos = “”
mailActivos = “”
Const ForReading = 1
Set fso = CreateObject(”Scripting.FileSystemObject”)
rutaArchivo = “c:\FeedMails.csv”
Set ts = fso.OpenTextFile(rutaArchivo, ForReading)
Set ArchivoNuevo = fso.CreateTextFile(”c:\ArchivoNuevo.txt”, True)

Do While Not ts.AtEndOfStream
LineaArchivo = ts.ReadLine
if mailNumero = 0 then
ts.ReadLine
else
Mail = split(LineaArchivo, “,”)
if trim(Mail(2)) = “Active” then
mailActivos = mailActivos & Mail(0) & “,” & vbCrLf
mailNumeroActivo = mailNumeroActivo + 1
else
mailInactivos = mailInactivos & Mail(0) & “,” & vbCrLf
end if
end if
mailNumero = mailNumero + 1
Loop

mailActivos = mid(trim(mailActivos),1,(len(trim(mailActivos))-3))
mailInactivos = mid(trim(mailInactivos),1,(len(trim(mailInactivos))-3))

ArchivoNuevo.WriteLine “Mails Activos”
ArchivoNuevo.WriteLine “————-”
ArchivoNuevo.WriteLine mailActivos
ArchivoNuevo.WriteLine ” ”
ArchivoNuevo.WriteLine “Mails Inactivos”
ArchivoNuevo.WriteLine “—————”
ArchivoNuevo.WriteLine mailInactivos
ArchivoNuevo.WriteLine ” ”
ArchivoNuevo.WriteLine “Estadistica Mails”
ArchivoNuevo.WriteLine “—————–”
ArchivoNuevo.WriteLine “Activos ” & mailNumeroActivo
ArchivoNuevo.WriteLine “Inactivos ” & mailNumero – mailNumeroActivo – 1
ArchivoNuevo.WriteLine “Total ” & mailNumero

ts.Close
ArchivoNuevo.Close

Set fso = Nothing
Set ts = Nothing
Set ArchivoNuevo = Nothing

‘ CODIGO

Saludos, espero que sea de utilidad.

@Pablo: lo rastree al autor del plugin. Sigue escribiendo en ese blog y en el suyo propio, y localicé su mail personal, así que si no modera los comentarios, aunque sea el mail lo tiene que chequear! Lo que le ofrecí es tomar las riendas del desarrollo, total seguramente sólo hay que actualizar el código del API de FBurner para que levante la data. A lo sumo algún laburito extra de compat para WP 2.8.x. Veremos…

@Javyer: no funciona y el autor nunca dió señales de vida. Pablo le dejó un comentario, estan moderados y todavía no aparece :S