Discussion :

[minola]

bonjour
je veux écrire un fichier texte dans tableau dynamique à 1dimension (exemple si j'ai dans le fichier texte le mot bonjour je veux avoir un tableau à 7 colonnes
|b|o|n|j|o|u|r|) et finalement enregistrer cette tableau dans la mémoire(sans besoin de l'affichage).
merci pour votre aide

[ProgElecT]

je veux écrire un fichier texte dans tableau dynamique à 1dimension

et finalement enregistrer cette tableau dans la mémoire

Pas sur d'avoir compris, peut être sa ? ....

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Form_Load()
Dim Lemot As String
Dim T As Integer
Dim MeTableau() As String
 
Lemot = "Bonjour"
ReDim MeTableau(Len(Lemot))
For T = 1 To Len(Lemot)
 MeTableau(T - 1) = Mid(Lemot, T, 1)
Next T
For T = 0 To Len(Lemot) - 1
 MsgBox MeTableau(T)
Next T
End Sub

[ucfoutu]

ou encore (en passant par l'Unicode) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Command6_Click()
  montruc = "bonjour"
  montab = Split(StrConv(montruc, vbUnicode), Chr(0))
  For i = 0 To UBound(montab) - 1
    MsgBox montab(i)
  Next i
End Sub

[minola]

le problème qui le fichier texte est composé des nombreux caractère
j'ai essayé avec le programme suivant mais il ne marche pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
public function remplirtableau(s as string) as string
dim i as integer
dim tableau() as string
open"c:\FichierTexte.Txt" for input as #1 
do while not eof(1)
s=input(1,#1)
Redim Preserver tableau(i)=s
i=i+1
loop
close#1
end function

[ucfoutu]

Oui ?
Et alors ?
tu veux faire quoi ?
Eclater chaque ligne par lettre ? ===>>> 2 solutions t'on été données...
Eclater ton fichier en lignes ? ===>> c'est ce que tu fais déjà ...

Les deux ? ===>> conjugue les deux...

Bonne continuation.

[minola]

merci ucfoutu mais je n'ai pas bien compris votre réponse est ce que vous pouvez la détailler un peu

[Pynuch]

il y a une erreur dans ton code ...

Redim Preserve tableau(i)=s

redim ne sert qu'a redimentionner le tableau ! il ne doit pas y avoir d'affectation

il faut faire :

Redim Preserve tableau(i)
tableau(i-1) = s

[minola]

c'est bon mais j'ai une question pour ce qui concerne l'enregistrement de tableau car je ne veux pas l'afficher mais seulement de le remplir par le contenu de fichier pour l'utiliser ulterieurement dans une autre application.

[Pynuch]

Bein dans ce cas il faut que tu delcare ton tableau avant toute les fonctions et procedures. Il sera global a ton module et donc connu pour toutes fonctions et procedures de ton module.

[SfJ5Rpw8]

c'est bon mais j'ai une question pour ce qui concerne l'enregistrement de tableau car je ne veux pas l'afficher mais seulement de le remplir par le contenu de fichier pour l'utiliser ulterieurement dans une autre application.

dans une autre application

[Pynuch]

ha oui je n'avais pas vu le "autre application" ...

je ne comprends pas non plus ... comment veux tu utiliser une variable d'un programme dans un autre ???

[minola]

bon, Pynuch comment se fait la déclaration de tableau?

[Pynuch]

par exemple :

dim tableau() as string' au dessus de toutes les procedures et fonctions

public function remplirtableau(s as string) as string
...

end function

[minola]

utiliser le tableau dans une autre application c-à-dire après la remplisage de tableau je vais réaliser une autre fonction qui parcouru cette tableau est affiche a chaque fois des resultats

[Pynuch]

ok donc ca devrait fonction, fait attention a tes termes alors une application c'est un logiciel

[minola]

donc j'ai une autre question si je fais une autre fonction qui a pour but de parcourir le tableau et d'afficher des resultats ( suposant que la nouvelle fonction est nommée Public function AfficheResultat(f as string) as string) est ce que j'ai besoin de faire un appel à la fonction remplirtableau(décrit précédament) ou de déclarer de nouveau le tableau c-à-dire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
public function AfficheResultat (f as string)as string
dim tableau() as string
.
.
end function

[Pynuch]

Logiquement si tu declare ta variable en globale (cad au dessus de toute fonctions et procedures) tu n'as pas a la redeclarer dans les fonction qui vont l'utiliser exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
dim tableau() as string
 
Public fonction ReplirTableau()
 
...
 
End Function
 
 
Public fonction AfficheResultat()
 
MsgBox tableau(0)
...
 
End Function

[minola]

ok, merci pour vos réponses c'est bon.

[DarkVader]

MSDN => instruction open + binary

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Open "monFichier" For Binary Access  Read As #1