Salut a tous,
J'ai un problème j'aimerais extraire tous les mots d'un fichier texte 1 à 1 et ensuite les ranger dans un tableau de string afin de pouvoir les traiter ensuite. C'est un peu ce que fait la fonction split avec une zone de texte.
Si vous avez une idée la dessus prevenez moi c'est assez urgent.
merci d'avance.

Bonjour

VB6 ou .NET?
Tu peux utiliser Split, un pour les lgnes et l'autre pour les mots.

Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)
Une question se pose sur le forum, pas en privé
NHenry (VB6, VBA excel, VB.NET, C++, C#.Net)

Salut,

Tu pourrais faire ça si ton fichier n'est pas trop gros :

Dim NumFic As Integer
Dim buffer As String
Dim tablo() As String

  'récupère un n° de fichier libre
  NumFic = FreeFile
  
  'ouverture du fichier texte
  Open "c:\temp\test.txt" For Input As #NumFic
  
  'lecture du fichier texte entier
  buffer = Input(LOF(NumFic), #NumFic)
  
  'rangement dans le tableau
  tablo = Split(buffer)

  ...

j utilise vb6. Je suis daccord pour utiliser split le problème est que j'aimerais trier le fichier texte directement c ad

parcourir le fichier texte et mettre directement les mots dans un tableau. je sais qu'il est possible d'extraire les lignes mais moi ce qui m'interesse ce sont les mots séparés par des  espaces.

salut

Salut,
Avant d'insérer ton nouvel enregistrement dans ton tableau, tu peux utiliser un algo comme QuickSort pour le positionner à son bon emplacement.

Bonjour

Donc un truc du genre :
'lTxt contient ton texte "brut"
lTxt=replace(lTxt,vbcrlf," ") 'changement des retours à la lignes en espace
lTxt=replace(lTxt,"  "," ") 'suppression des espaces doubles
dim ltMots as string() 'Déclaration du tableau
ltMots=split(lTxt," ") 'Récupérations des mots dans le tableau

Ce code ne supprime pas les .,:! etc.

Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)
Une question se pose sur le forum, pas en privé
NHenry (VB6, VBA excel, VB.NET, C++, C#.Net)

tu lis tout ton fichier, ensuite, un

sBuffer = Replace ( sBuffer, VbNewline, " ")
xMots = Split ( sBuffer, " ")

ca, c'est si tu ne veux tenir compte que des espaces (pas des virgules, et autres, parenthèses et symboles divers)
sinon, je suggère l'emploi de RegExp

Renfield
Admin CodeS-SourceS - MVP Visual Basic

http://www.vbfrance.com/codes/COMPTER-MOTS-TEXTE_8471.aspx


Renfield
Admin CodeS-SourceS - MVP Visual Basic