Gadgets, Celulares, Telefonia, Electronic Music y mucho más…
11 usuarios
Delphi: Contar Líneas, palabras y letras desde un Archivo de Texto
El ejercicio es muy sencillo, consistirá en hacer un pequeño programa que sea capaz de cargar un archivo de texto y decirnos cuantas líneas tiene, cuantas palabras hay en el texto y el número de letras que hay en el texto.
Necesitarás utilizar Borland Turbo Delphi 6 para seguir este ejemplo y compilar el proyecto. Y además tener ciertos conocimientos sobre algunos componentes y el lenguaje de programación, ya que no entraremos en detalle del uso de estos; sin embargo es muy intuitivo y no creo que sea muy difícil entenderlo.
Lo primero que haremos es dibujar la interfaz (la parte divertida) usaremos unos labels, tres cuadros de edición (TEdit), una barra de menú (TMainMenu), un OpenDialog y un cuadro de edición del tipo Memo (TMemo). Como la siguiente (La interfaz es al gusto del cliente):
Los nombres que dice en la imagen son los nombres de los componentes, corresponden a la propiedad NAME.
Ya que tenemos la interfaz, utilizaremos el evento Clic sobre el item "Abrir" de nuestro menú, (El menú que utilice tiene 2 opciones "Abrir y Cerrar"), para ello en modo de diseño daremos doble clic sobre el item y eso nos creará el código para evento y es aquí donde deberemos realizar todo el proceso para la obtención de los datos que nos solicita el problema.
El código importante es este:
-
//Estamos en el evento CLICK del Ite Abrir.
-
procedure TForm1.Abrir1Click(Sender: TObject);
-
var I: Integer;
-
var Texto:String;
-
var c:Integer;
-
-
begin
-
c:=1;
-
-
//Se abre el componente para poder buscar el archivo de texto.
-
if OpenDialog1.Execute then
-
-
//Cargamos el archivo en el Tmemo. Filename nos da la
-
//ubicación del archivo.
-
tm_Contenido.Lines.LoadFromFile(OpenDialog1.FileName);
-
-
//Extraemos el número de lineas que se cargaron.
-
//La propiedad TMemo.Lines.Count, nos dice el número de
-
//líneas que tiene el componente.
-
te_noLineas.Text:=IntToStr (tm_Contenido.Lines.Count);
-
Texto:=tm_Contenido.Text;
-
-
//Reemplazamos #13 (Retorno de Carro) y #10 (Final de Línea);
-
//con un espacio en blanco
-
Texto:=StringReplace(Texto,#13#10,' ',[rfReplaceAll]);
-
-
//Este for busca cuantos espacios en blanco hay, suponemos
-
//que entre cada espacio en blanco hay una palabra.
-
for I := 1 to Length(Texto) do
-
if pos(Texto[I],' ')>0 then
-
c:=c+1;
-
te_noPalabras.text:=IntToStr(c);
-
-
//Eliminamos los espacios en blanco. Al no poner caracter de
-
//reemplazo lo elimina. Así obtenemos de todo el texto una
-
//sola cadena sin espacios y nos aprovechamos de la función
-
//Length para obtener el número de letras en la cadena.
-
Texto:= StringReplace(Texto,' ','',[rfReplaceAll]);
-
te_noLetras.Text:=IntToStr(Length(Texto));
-
end;
Y pues como verán es muy sencillo hacerlo, bueno la verdad es que para algunos (como yo) que estamos muy acostumbrados a otros lenguajes de programación es un poco complicado adaptarse a Delphi, sobre todo cuando tenemos ciertas cosas en la cabeza que ya pensamos como estándares, como la estructura del FOR o el WHILE; es cuestión de acostumbrarse.
Poco a poco iré poniendo detalles, la verdad es que apenas empiezo a programar en este lenguaje y estoy aprendiendo los trucos.
Solo me resta decir de Novato a Novato -Aprender es cuestión de decidirse: estudia, investiga, pregunta, no te lo fusiles nada más; sino aprendes de nada vale-
Página de Referencia:
http://www.delphibasics.co.uk/ - Muy completa acerca del lenguaje (en Ingles).
Archivos del Proyecto
¿Te ha gustado este artículo? Subscribete vía Email, para ¡recibirlos en tu correo!
¿No encontró lo que buscaba? ¡Use el buscador!
3 Comentarios este tema es Hot
Deja un Comentario
WP Cumulus Flash tag cloud by Roy Tanck requires Flash Player 9 or better.
Comentarios
- juan:
hola tengon un problema estaba queriendo enstalar un skin y sin querer borre todos... - sara:
Gracias eres muy detallista, me funciono...si fueras tan amable de enviar el tutorial para instalacion... - altazor:
bieeen, gracias por el aporte. Lo usaré para reinstaalr XP en mi Dell mini :jittery:... - camilo rc:
hola una pregunta los carros rc drift donde swe consigen q no sean ta k... - selene:
hola!! necesito su ayuda x favor :sad: tengo el motorola u6 y le quite todos los... - OSCARGOMEZ:
PUES YO DESDE HACE DOS AÑOS ME CAMBIA A MOVISTAR Y TIENE LA COBERTURA QUE... - RAUL:
xD :cigar: este aporte esta de lujo te agradesco por publicarlo ya lo e probado... - uiyaca:
buen aporte :thumbup: --- sabes tengo servipack 3 y sí, pasa todo lo que dices... - ALEX:
QUE TAL AMIGOS.. TENGO VARIOS TEMAS DE ARMIN.. Y SON EXELENTES..!!! PERO TABIEN HAY TEMAS... - Roxana:
Qué chévere hay que ser una genio para inventar eso, está muy bien, siempre me... - Diego:
Caray... eso es super malo. Me recuerda el caso de un banco americano que una... - sant:
la neta ninguno de los drivers me sirve para el z3 y puees el skin manager... - omar:
es muy bueno pero harita esta pegando muy grueso en mexico y eurapa un dj... - master_of_puppetz:
que mal que te hayan pedido eso :annoyed:, tu blog es muy bueno en... - William:
Esta muy buena... - Luis:
Hola acabo de bajar este programa y espero que me sirva para configurar la navegacion... - pedro:
Es un verdadera lástima que exista personas JODIENDO (si te molesta la palabra, bórrala por... - Andrea Bocelli en Campeche - Música Instantánea:
[...] La explicación la pueden encontrar en mi blog. [...]... - RODOLFO:
Hola. Me gustaria saber como usar la aplicación que trae Windows para tales efectos; Tengo Windows... - Cómo cambiar el idioma a un Motorola V8 Razr2 | Tecnología móvil y telefonía celular | IsopixCell:
[...] Vía [...]...
Suscríbete
Disclaimer:
- DaHouseCat, no se hace responsable acerca del mal uso que se le dé a la información contenida en los artículos y / o tutoriales, quedando en absoluta responsabilidad del usuario.
Administración
- DaHouseCat
Posts: 499 - 100%
Comentarios: 4666 - 100%
Pingbacks: 96 - 100%
Score: 10119
Ir a Arriba
Hola Que tal leei tu articulo esta muy practico ademas bastante expresivo con tus comentarios. La verdad soy nuevo en este lenguaje pero lo tengo que aprender ya que en la escuela se necesita y la escuela no lo enseña, espero ver mas de tus ejemplos; muchas veces las ideas uno las tiene pero de no saber como se escriben o como se estructuran te puedes pasar medio dia en eso y nunca veras la solucion sino hasta que te des cuenta que solo hacia falta una coma, un apostrofe, un punto y coma, jejeje
Bueno nos vemos y gracias por tu ejemplo, yo buscaba como contar los caracteres de un Edit y viendo el ejemplo de arriba me di cuenta como podia implementarlo y me salio.
Gracias, nos vemos luego
Veracruz, Mexico 9 enero 2008
Usando
hola mira una pregunta de un aprendis la funcion length para contar la letras que utilizas no cuanta los caracteres de la palabra como haces para descriminar (*.,+-,etc) del texto o sea que cuantes la letras a..z no mas
Usando
nececito informacion de delphi
Usando