Casi 8.000 fuentes de texto gratis para todos :)

Buenas.

No sabía si colocar este aporte en la sección de diseño gráfico, ya que las fuentes de texto no tienen por que ~~acabar~~ abarcar dicha temática.

En fin, les traigo una lista que he elaborado con casi 8.000 enlaces de fuentes de texto de calidad suprema (True Type y Open Type). Es un texto listo para copiar y pegar en su administrador de descargas favorito.

➢ http://pastebin.com/q9CKV2Hg

Hay muchas fuentes conocidas "comerciales" como la que usa Disney u otras compañias/marcas de todo tipo. Hay todo tipo de fuentes, 3d, grunge, graffity, normales, a mano, etc.

La página de donde he sacado los enlaces:
➢ http://www.1001fonts.com/

Y por si a alguien le sirve, este es el simple algoritmo de web-scraping que desarrollé para la ocasión. Está escrito en VisualBasic.Net.

Código

Dim urlFormat As String = "http://www.1001fonts.com/new-and-fresh-fonts.html?page={0}&items=50"
Dim currenturl As String
Dim includeDemoFonts As Boolean = False
Dim zipExp As New Regex("http([s])?.+\.zip", RegexOptions.IgnoreCase)
 
Dim fontList As New List(Of String)
Dim outputFile As String = "C:\fonts.txt"
 
For pageIndex As Integer = 1 To Integer.MaxValue
 
    currenturl = String.Format(urlFormat, pageIndex)
 
    Debug.WriteLine(String.Format(" Current page: {0}", pageIndex))
    Debug.WriteLine(String.Format(" Current url : {0}", currenturl))
 
    Try
        Using sr As New StreamReader(HttpWebRequest.Create(currenturl).GetResponse.GetResponseStream)
 
            For Each m As Match In zipExp.Matches(sr.ReadToEnd).Cast(Of Match)()
 
                If (Not includeDemoFonts) AndAlso (m.Value.ToLower.EndsWith("demo.zip")) Then
                    Continue For
 
                Else
                    If Not fontList.Contains(m.Value) Then
                        fontList.Add(m.Value)
                    End If
 
                End If
 
            Next m
 
        End Using
 
    Catch ex As WebException
        If (ex.Status = WebExceptionStatus.ProtocolError) AndAlso (ex.Message.Contains("404")) Then
            Exit For
 
        Else
            MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
 
        End If
 
    End Try
 
Next pageIndex
 
File.WriteAllLines(outputFile, fontList, Encoding.Default)
MessageBox.Show("Finished", "", MessageBoxButtons.OK, MessageBoxIcon.Information)

Si solo quieren descargar las fuentes de una categoría de la página la modificación de la query es muy sencilla, por ejemplo la categoría de fuentes 3D:

Código

Dim urlFormat As String = "http://www.1001fonts.com/3d-fonts.html?page={0}&items=50"

PD: Apenas tarda 1 minuto en recolectar los 8.000 enlaces.

Saludos!