Analizador ASP RSS, lector de feeds

Depositphotos 4651719 s

Este fin de semana he estado pegado a mi computadora portátil buscando en la red lectores de fuentes RSS basados ​​en la web. La razón es que quería escribir un lector de feeds RSS asp que mostrara el feed para que el contenido se pudiera raspar automáticamente en un correo electrónico HTML. Entonces, para las personas que desean reservar una parte de su boletín de correo electrónico para sus artículos de Blog o Publicación, podría incorporarse fácilmente. Dado que JavaScript en realidad no muestra el contenido hasta que el cliente carga y ejecuta el script, la gran cantidad de navegadores RSS de JavaScript no fueron útiles. Necesitaba un lector de feeds RSS del lado del servidor.

Comencé escribiendo mi propio analizador en ASP usando el objeto MSXML. Pude analizar aproximadamente el 75% de los canales RSS haciendo esto, pero algunas de las especificaciones XML sueltas en los canales RSS resultaron ser muy difíciles de programar. Puedes verlo en acción . Puede pasar el número máximo de elementos (ni), el número de caracteres cortados en la palabra (nc), así como la URL. También puede ver el feed real con una variable de depuración. .

Muchas fuentes RSS son realmente bastante "sucias" y requieren analizar el texto en el archivo XML con código de manipulación de cadenas (¡uf!). Por supuesto, todavía estamos en nuestra 'juventud' de RSS en la red, así que no me sorprende. Más información sobre las especificaciones de RSS .

Finalmente, encontré una pequeña joya. Encontré una clase ASP gratuita para descargar. Es un poco lento, pero no he encontrado un feed que no pueda leer. Tengo una versión estática aquí y una versión dinámica aquí.

Un par de notas sobre el guión. Necesitaba borrar algunas etiquetas HTML en las descripciones devueltas. Hice eso con una pequeña función de limpieza que encontré:

Función RemoveHTML (strText) Dim nPos1 Dim nPos2 nPos1 = InStr (strText, ">") Do While nPos1> 0 nPos2 = InStr (nPos1 + 1, strText, ">") If nPos2> 0 Then strText = Left (strText, nPos1 - 1) & Mid (strText, nPos2 + 1) Else Exit Do End If nPos1 = InStr (strText, ">") Loop RemoveHTML = strText End Function

También agregué otro pequeño código: A veces, es posible que desee mostrar más o menos una descripción. Sin embargo, si simplemente limito el número de caracteres, entonces podría cortar la descripción en medio de la palabra. ¡No quiero hacer eso!

Función Cutoff (strText, intChars) dim intLength dim j intLength = len (strText) if intChars> intLength luego para j = intChars a 0 paso -1 si mid (strText, j, 1) = "" luego salga para el siguiente si j> 0 luego strText = left (strText, j-1) & "..." más strText = strText end if end if Cutoff = strText End Función

(Tuve algunos problemas para mostrar mi código correctamente en esta entrada ... ¡avíseme si tiene problemas con alguna de estas funciones!)

También he notado algunas herramientas más en la red. Hay un
. NET versión, muchas versiones de PHP, un montón de versiones de JavaScript.

Para concluir, espero que se sigan perfeccionando las especificaciones RSS y que los feeds reales cumplan con los estándares XML en todos los casos. Las aplicaciones gratuitas como TypePad, WordPress, etc. necesitan perfeccionar su funcionalidad RSS. Los blogs adicionales como MySpace, Xanga, LiveJournal, etc. necesitan mejorar su funcionalidad RSS. RSS ES poderoso ...Chris Baggott escribió un buen artículo sobre correo electrónico vs. RSS. ¡Creo que combinar su funcionalidad podría aumentar el impacto de ambos!

¿Qué piensas?

Este sitio usa Akismet para reducir el correo no deseado. Descubra cómo se procesan los datos de sus comentarios.