Foro de elhacker.net

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.

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:

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!

a mi me sirve muchísimo por estos días, ¡muchas gracias!  :-* (jeje)

Pues aquí va un pack de 1.500 fuentes de texto:
http://www.vectorilla.com/downloads/fonts_pack.zip

Y otro de 2.000:
http://www.mediafire.com/?nguk702coew117s

Sources:
http://www.vectorilla.com/2009/12/free-fonts-big-pack-more-than-1500-fonts/
https://www.youtube.com/watch?v=6XzCeVvVlBQ

Saludos

Muchas de estas son gratis para uso personal solamente.... tengan cuidado como usen estas tipografías. Si es para hacer logotipos para empresas y cosas por el estilo, tienen que pagar la licencia (algunas si son gratis para usar comercialmente).

Excelente, gracias Elektro, en algun momento lo usaré  ;-)