Gestion des fichiers texte avec Delphi TD4

1
Gestion des fichiers texte avec Delphi TD4
2
Diviser une chaîne de caractères en mots

• Pour diviser une chaîne de caractères en mots on
  utilise les fonctions
• function Pos(Substr string S string) Integer
• Renvoie la valeur de l'index du premier caractère
  dans une sous-chaîne spécifiée (Substr) qui se
  trouve dans une chaîne (S).
• function Copy(S string Index, Count Integer)
  string
• Renvoie une sous-chaîne d'une chaîne.

3
Exemple afficher les deux premiers mots dune
chaîne (séparateur lespace)

• procedure Test
• var
• strLigne String
• strMot String
• nPosSeparateur Integer
• begin
• strLigne 'ceci est un test'
• nPosSeparateur Pos(' ', strLigne)
• strMot Copy(strLigne, 0,
  nPosSeparateur-1)
• WriteLn(strMot) // le premier mot
• // la ligne sans le premier mot et sans le
  separateur
• strLigne Copy(strLigne, nPosSeparateur1,
  Length(strLigne)-nPosSeparateur)
• // le deuxieme mot
• nPosSeparateur Pos(' ', strLigne)
• strMot Copy(strLigne, 0,
  nPosSeparateur-1)
• WriteLn(strMot)

4
Exercice

• Retrouvez tous les mots dune phrase (séparés par
  des espaces).
• Affichez le nombre de mots.

5
Exercice

• Le fichier Iris.txt contient cinq colonnes de
  données (regardez son contenu pour voir la
  signification).
• Affichez le nombre de lignes
• Affichez les valeurs de chaque ligne
• Calculez la moyenne sur la première colonne.
• Calculez la moyenne sur la troisième colonne.
• Calculez le nombre de valeurs IRIS-VERSICOLOR
  dans la cinquième colonne.