Discussion :

[dino35]

Bonsoir :

j'ai un petit problème que je n'arrive pas à le résoudre :

j'ai le code suivant :

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
var:                                                                                              
 
s , port :string ;                                                                                
i,l:integer ;                                                                                     
data_tmp: TStringlist;                                                                            
 
procedure traitemamnt;                                                                            
 
for i:=data_tmp.count-1 downto 1  do begin                                                        
 
port:='port/al=';                                                                                 
s:=data_tmp[i];                                                                                   
l:=pos(' ', S)                                                                                     
if l > 0                                                                                          
port :=port/AL+ copy(S,1,i-1);

qaund les données de mon fichier texte ont la structure suivante ça ma marche :

Port
1
2
3

mais quant les données change à droite c.a.d un vide qui précede les nombres ça marche pas

Port
1
2
3

je cherche à écrire :

port:port/al=1
port:port/al=2
port:port/al=3

NB: veuillez voir le fichier joint il est plus explicite.

merci pour votre aide et suggestion

[ThWilliam]

Bonsoir,

La fonction Copy a comme paramètres : <S> <indice de départ> <nombre de caractères>

Donc, si espace avant le chiffre, Pos renvoie 1, l'indice de départ est 2.
port :=port/AL+ copy(S, l+1, 1);

Remarque: pourquoi ne pas utiliser la fonction Trim qui supprime les espaces avant et après : s:= Trim(data_tmp[i]);

Cordialement
Thierry

[paulfr]

Bonjour

Si s et port sont des chaines la solution est :

Code :

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

1
2
3
port := 'port/al=';                                                                                 
s := data_tmp[i];  
port := port + Trim(s);

Bonne Année

[dino35]

Salut :

Merci pour vos réponses, j'ai procéder avec la première solution :

S: = Trim (data_tmp[i]);


Solution accepté.