galère !!! recup de chaine de caractere...

Question

slt &#224; tous, 

souhaiterai r&#233;cuperer la valeur d'une chaine contenue ds 1 fichier txt.
ex : ligne du fic : D:	emp\_todel	oto.txt


voudrai donc r&#233;cup&#233;rer la chaine toto.txt

G utilis&#233; fO Right, Instr, InstrRev, ... pas moyen....
en fait, le prob, c que cette chaine n'est pas tjs &#224; la m&#234;me place...ben ouais 

merci de votre aide

cs_DARKSIDIOUS · Answer

et pourtant, il faut bien utiliser InsStrRev pour r&#233;cup&#232;rer la position
du dernier "" et ensuite utiliser la fonction Right &#224; partir de cette
position.

_____________________________________________________________________
DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) tout en fran&#231;ais : www.ProgOtoP.com/popapi/

olixelle · Answer

utilises le fonction split avec "" en parametre et r&#233;cupere le dernier &#233;l&#233;ment du tableau g&#233;n&#233;r&#233;

Rollerman

bloupye · Answer

merci bp pour r&#233;ponses rapidos...
detail imp je code en VBS
je prend la methode Split et je code ainsi
'Ligne  = D:	emp\_todel	oto.txt
'Ligne suivante = D:	emp\_todel	oto.txt

MyString = Ligne 'du fichier txt
MyArray = Split(MyString, "", -1, 1)


 Msg = MyArray(0) & ";" & MyArray(1)
 Msg = Msg     & ";" & MyArray(2)
 Msg = Msg     & ";" & MyArray(3)
 Msg = Msg     & ";" & MyArray(4)
 Msg = Msg     & " " & MyArray(5)

ca marche, mais jusqu'au moment o&#249; le nb de caractere varie dans la ligne du fichier...
v'la

olixelle · Answer

ta ka regard&#233; la taille du tableau, mais je sais plus comment on fait en vb6 :(



sinon tu peux faire:



dim elt as string

for each elt in myarray

    msg = msg & ";" & elt

next

Rollerman

cs_DARKSIDIOUS · Answer

Ca ca devrait marcher :

MsgBox MyArray(UBound(MyArray))


ou alors :

MsgBox MyArray(UBound(MyArray)-1)

_____________________________________________________________________
DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) tout en fran&#231;ais : www.ProgOtoP.com/popapi/

olixelle · Answer

bien vu dark :)

pis vive le .net qd mm :p

Rollerman

cs_CanisLupus · Answer

Salut, trop lent le split dans ce cas, c'est Dark qui a la solution quoique j'y apporterai une tite modif :

resultat = mid(ligne_du_fic, instrrev(ligne_du_fic, "") + 1)

Depuis que je suis oblig&#233; de jongler entre vb6 et vb.net, j'ai tendance &#224; bannir les right et left qui ne sont pas compris par vb.net.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

cs_CanisLupus · Answer

Aie, c'est vrai instrrev n'existe pas en vb5. Comme on oublie vite !

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

cs_CanisLupus · Answer

Oups, pas vu les pr&#233;c&#233;dents posts.
Une autre m&#233;thode, si par hasard tu n'as pas la fonction split non plus :

Dim i As Integer
For i = Len(ligne_du_fic) To 1 Step -1
  If Mid(ligne_du_fic, i, 1) = "" Then
    Exit For
  End If
Next


MsgBox Mid(ligne_du_fic, i + 1)

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

cacalex · Answer

En .NET :

dim nouvelleChaine as string
 nouvelleChaine = _
ligne&#192;lire.substring(ligne&#192;lire.lastindexof(""), ligne&#192;lire.lenght - ligne&#192;lire.lastindexof("") )

&#192; travers le miroir se trouve ma vraie nature...
Dans le miroir se trouve mon reflet...

cacalex · Answer

HUM, C'EST SORTI TOUT CROCHE...

dim nouvelleChaine as string
dim IntPos as integer=ligne&#192;lire.lastindexof("")
Alors :
nouvelleChaine = ligne&#192;lire.substring(IntPos, ligne&#192;lire.lenght - IntPos)

'substring(IndexD&#233;part, longeurvoulue)

&#192; travers le miroir se trouve ma vraie nature...
Dans le miroir se trouve mon reflet...

Galère !!! recup de chaine de caractere...

11 réponses

Discussions similaires