Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Pascal/Turbo Pascal » AYUDA FICHEROS

Pascal/Turbo Pascal - AYUDA FICHEROS

Volver
Nuevo Tema
<<>>
 
Vista:

AYUDA FICHEROS

Publicado por Daniel (1 intervención) el 24/12/2017 11:38:17
HOLA BUENAS MI DUDA ES COMO DEBERÍA SER LA ESTRUCTURA DEL SIGUIENTE FICHERO. Como debería empezar?


Se dispone de un fichero de texto (tweets.txt) que contiene una colección de tweets, uno
por línea. Se desea trabajar con estos tweets sin tener que estar accediendo continuamente
a memoria secundaria. Para ello, se debe cargar toda la información del fichero en una
estructura en memoria principal que permita mantener la siguiente información por cada tweet:
- Cuerpo del tweet. Es decir, el texto del tweet contenido en el fichero.
- Longitud de tweet en número de caracteres.
- Lista con los hashtags mencionados en el tweet. Como el número de hashtags
mencionados en un tweet es variable (puede no contener ninguno o varios), la
estructura que almacene esta información debe contener el número de hashtags
contenidos en el tweet y la lista de dichos hashtags.
Cuando el programa termine, esta información debe almacenarse en un fichero binario
llamado infotweets.dat.

Gracias de antemano.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

AYUDA FICHEROS

Publicado por toby adrillo (1 intervención) el 27/12/2017 17:06:10
Amigo tu duda se vería resuelta con estas lineas de código,espero que te ayude loco ,si necesitas algo mas aqui estoy.
;) ;)



1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
var
	tweets:text;
procedure MostrarTexto (var miFichero:text);
 
var
	twit:string;
begin
	{$I-}
		reset(miFichero);
	{$I+}
	if (IORESULT <> 0) then
		writeln('no se encuentra el fichero')
	else
	    begin
		 while not (EOF(miFichero)) do
		   begin
			  readln(miFichero,twit);
			  writeln(twit);
           end;
		end;
	close(miFichero);
end;
 
 
begin
	assign(tweets,'teewts.txt');
	MostrarTexto(tweets);
	readln;
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar