FeedBurner - Bajar lista de suscriptores - Utilidad


Para charlar sobre Twitter, Facebook, Menéame, etc...
   

FeedBurner - Bajar lista de suscriptores - Utilidad

Notapor pac-man » 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!

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
pac-man
Nivel 2
 
Mensajes: 24
Registrado: May 2009, 21:42



Volver a Redes y medios sociales

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 1 invitado