FeedBurner - Bajar lista de suscriptores - Utilidad

Para charlar sobre Twitter, Facebook, Menéame, etc...
pac-man
Nivel 2
Mensajes: 24
Registrado: 10 May 2009, 21:42

FeedBurner - Bajar lista de suscriptores - Utilidad

Mensaje por pac-man »

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
Responder