Usa la Criba de Eratóstenes para calcularlos, en el foro ya se han hecho varios códigos (ni me los pidas).

 * Inclusive en wikipedia esta el código en varios lenguajes...

Dulces Lunas!¡.

En mi parecer, al ser un forma de ver el formato de manera uniforme y repetitiva (no compuesto/compleja) donde cada palabra (no  consideran frases) esta solo separada por un signo (en mi caso no era # si no mas bien el espacio o salto de linea '\n' o cualquier carácter que tenga el mismo uso) funciona bastante bien fscanf(file, "%s", ...),se cargan todas la palabras en un "Buffer" para no estar re-leyendo a cada instante el archivo y evitar la latencia de acceso al disco duro por ello yo descarte el uso de strtok() y de lectura de lineas las cuales desconozco su longitud.

* Cuando es un formato del este estilo (palabra1 palabra2 palabra3 palabra4 ... palabraN-esima) y no hay formatos complejos fscanf(file, "%s", ...) va perfecto siempre y cuando haya un separador de palabra, de lo contrario es mas recomendable cargar el archivo en memoria y proseguir a identificar cada palabra/signo clave.

por ejemplo ( Yo cargaría en memoria el archivo si estuviera en el disco y aplicar un analizador sintáctico y enviar todo el archivo a estructuras obviamente ya analizado, a su vez también evitar la mayor cantidad de ciclos incluyendo strtok() ya que en este tipo de cuestiones se pueden omitir o tener palabras/signos opcionales y strtok() sacrificaría demasiado el redimiendo de un algoritmo ademas que ignoraria palabras entre el punto inicial y el punto final, es decir funcionaria solo para identificar la existencia en este caso ):


* strtok() esta bien para hacer por ejemplo una función que extraiga un trozo de texto o similares pero para analizar formatos() puede que si y puede que no, en mi criterio es dar muchos vueltas (en formatos complejos) en simples como este no hay bronca pero lo mejor es leer el archivo y meterlo en estructuras que representen al archivo original y así evitar la latencia de acceso al disco duro.

NOTA: la caga en memoria seria por bloques mas no todo de golpe.

Dulces Lunas!¡.

http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/462-cargar-archivos-de-recursos-personalizado.htm

Solo debes crear un archivo de recursos el mismo vb6 te deja hacer eso, solo debes habilitarlo.

Aqui te enseñan como: http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/271-reproducir-sonido-de-archivo-de-recursos.htm

Dulces Lunas!¡.

Curioso hace 3 días ingrese a la pagina y me plasmaba 29 días en el contador regresivo hoy entro y sigue en 29...
tengo bastantes preguntas...

por ejemplo:

¿A que usuarios esta destinado?
¿Cual es su propósito?
¿Cuales son las ventajas ante otros Distros?
entre otras.

Por que si ya van por el Bugtraq-II entonces el Bugtraq (1) cubre estas cuestiones...

P.D.: Me acabe de inscribir para ver si el foro tiene mis respuestas.

Dulces Lunas!¡.

perdon el codigo en C++ era asi:

 
 
#include <iostream>
#include <algorithm>
#include <map>
#include <string>
 
using std::cout;
using std::endl;
using std::cin;
using std::string;
using std::map;
using std::sort;
 
int main() {     // ==============
    string cadena;
    map<char, size_t> contador;
    register map<char, size_t>::iterator it;
 
    cout << "ingresa el texto: ";
    getline(cin, cadena);
    cout << endl;
    cout << "Longitud: " << cadena.length() << endl;
 
    for (register size_t i = 0; i < cadena.length(); i++) {
        contador[cadena[i]]++;
    }
 
    cout << "Caracter.\tRepeticiones." << endl;
    for (it = contador.begin(); it != contador.end(); ++it) {
         cout << (*it).first << "\t" << (*it).second << endl;
    }
 
    cin.get();  //  Pausamos
 
    return 0;
}
 
 

en C

 
#include <stdio.h>
#include <string.h>
#include <stdlib.h>
 
inline size_t readLine(FILE *file, char **line) {
    size_t size = 0;
 
    (*line) = (char*)malloc(1);
 
    while (((*line)[size] = getchar()) != '\n')
        (*line) = (char*)realloc((*line), ++size + 1);
 
    (*line)[size] = '\0';
 
    return size;
}
 
int main() {     // ==============
    register size_t countChars[256];
    char *line;
    size_t size;
 
    memset(countChars, 0, 256 * sizeof(size_t));
    size = readLine(stdin, &line);
 
    if (!line)
    {
        fprintf(stderr, "No se pudo leer la linea del teclado.");
        return EXIT_FAILURE;
    }
 
    //  Contamos cada caracter.
    for (register size_t i = 0; i < size; i++)
        countChars[(int)(line[i])]++;
 
    for (register int i = 0; i < 256; i++)
    {
        if (countChars[i])
        {   //  Mopstramos solo las letras que se tenian en la frase.
            printf("%c (%d) = %d\n", (char)i, i, countChars[i]);  // caracter (ascii) = repetido
        }
    }
 
    free(line);
 
    getchar();
 
    return 0;
}
 
 

Dulces Lunas!¡.

me aparece:

Not Allowed

voy a intentar mas tarde...

Dulces Lunas!¡.

Lee bien mi Post no falta nada (todo esta en el).

Dulces Lunas!¡.

http://foro.elhacker.net/programacion_visual_basic/source_cls_clsfiles_multicriterio-t307522.0.html;msg1527333#msg1527333

 
Option Explicit
 
Private WithEvents ClsScanDisk          As cls_files
Private ThisPath$
Private CountFiles&
 
Private Sub ClsScanDisk_Begin()
    ThisPath$ = ClsScanDisk.FindInPath
    CountFiles& = 0
    Caption = "ScanDisk ha Encontrado: "
End Sub
 
Private Sub ClsScanDisk_File(NameFile As String, TypeOfFile As Long, ByVal Atrributes As Long)
    CountFiles& = CountFiles& + 1
    Caption = "ScanDisk ha Encontrado: " & CountFiles&
    Debug.Print ThisPath$ & NameFile   ' <--- en lugar de debug.print pones kill
    Debug.Print vbTab & "Criterio:"; ClsScanDisk.CriterionToFind(TypeOfFile),
    Debug.Print "Atributos:"; Atrributes
End Sub
 
Private Sub ClsScanDisk_Finish()
    Caption = "ScanDisk ha Encontrado: " & CountFiles& & " -> Finalizado."
End Sub
 
Private Sub ClsScanDisk_Folder(PathFolder As String, ByVal Atrributes As Long)
    ThisPath$ = PathFolder
End Sub
 
 
Private Sub Form_Load()
    If ClsScanDisk Is Nothing Then Set ClsScanDisk = New cls_files
    With ClsScanDisk
        If .ItsRun Then .Stop_
        .CriterionToFind = Split("*.mp3,*.wma,*.avi,*.mid,*.mid", ",") ' en lugar  de esta lista de extensiones pon    split("*.jpg")
        '.CriterionFindDir = vbReadOnly                  '   //  Solo directorios de Solo lectura.
        '.CriterionFindFile = vbHidden Or vbReadOnly     '  //  Solo archivos ocultos.
        .FindInPath = "c:\"
        .AllowEvents = True
        Call .Start_
    End With
End Sub
 
 

Existen mas clases para buscar archivos una mas completa es de la de LeandroA.

Dulces Lunas!¡.

 
#include <stdio.h>
#include <stdlib.h>
 
char *readLine(FILE *file) {
    char *line = (char*)malloc(1);
    size_t size = 0;
 
    while ((line[size] = getchar()) != '\n')
        line = (char*)realloc(line, ++size + 1);
 
    line[size] = '\0';
 
    return line;
}
 
int main() {     // ==============
    char cmd[512];
    char *path; //  MAX_PATH = 256
 
    puts("Ruta a crear");
    path = readLine(stdin); //  leemos una linea desde el buffer de entrada del teclado
    sprintf(cmd, "mkdir \"%s\"", path); //  construimos la cadena por ejemplo: mkdir "c:\Hola Mundo desde C-ANSI"
    system(cmd);    //  Ejecutamos.
 
    free(path);
    getchar();
    return EXIT_SUCCESS;
}
 
 

Dulces Lunas!¡.

Que lastima...

Dulces Lunas!¡.