FeedBurner - Bajar lista de suscriptores - Utilidad
Publicado: 13 Sep 2009, 22:10
Hice el siguiente script para que se pueda bajar su lista de suscriptos, sin tener que estar pasandolos a mano.
1º Abran un notepad.
2º Copie el codigo de mas abajo
3º Vayan a su cuenta en Twitter y bajen sus suscriptores en formato .csv
4º Al archivo bajado de Twitter, guardenlo en su disco C con el nombre FeedMails
5º Guarden el archivo del codigo de mas abajo, con extension .vbs
6º Ejecuten el archivo anteriormente guardado ( el .vbs )
7º Verifiquen en su disco C, el archivo txt nombrado MiSuscriptores
Cualquier duda a sus ordenes!
Nota: Del codigo copiado remplazen: ( “ ” por " " ) al igual que el signo menos ( – por - ), ya que el foro le da otro formato.
SaluDOS!
1º Abran un notepad.
2º Copie el codigo de mas abajo
3º Vayan a su cuenta en Twitter y bajen sus suscriptores en formato .csv
4º Al archivo bajado de Twitter, guardenlo en su disco C con el nombre FeedMails
5º Guarden el archivo del codigo de mas abajo, con extension .vbs
6º Ejecuten el archivo anteriormente guardado ( el .vbs )
7º Verifiquen en su disco C, el archivo txt nombrado MiSuscriptores
Cualquier duda a sus ordenes!
Nota: Del codigo copiado remplazen: ( “ ” por " " ) al igual que el signo menos ( – por - ), ya que el foro le da otro formato.
SaluDOS!
Código: Seleccionar todo
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 MiSuscriptores = fso.CreateTextFile(”c:\MiSuscriptores.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))
MiSuscriptores.WriteLine “Mails Activos”
MiSuscriptores.WriteLine “————-”
MiSuscriptores.WriteLine mailActivos
MiSuscriptores.WriteLine ” ”
MiSuscriptores.WriteLine “Mails Inactivos”
MiSuscriptores.WriteLine “—————”
MiSuscriptores.WriteLine mailInactivos
MiSuscriptores.WriteLine ” ”
MiSuscriptores.WriteLine “Estadistica Mails”
MiSuscriptores.WriteLine “—————–”
MiSuscriptores.WriteLine “Activos ” & mailNumeroActivo
MiSuscriptores.WriteLine “Inactivos ” & mailNumero – mailNumeroActivo – 1
MiSuscriptores.WriteLine “Total ” & mailNumero
ts.Close
MiSuscriptores.Close
Set fso = Nothing
Set ts = Nothing
Set MiSuscriptores = Nothing