convertir chaine txt en tableau ?

jp magne wrote:

bonjour,

comment creer un tableau avec une chaine de caractéres ?

chaine = "comment creer un tableau avec une chaine de caractéres ?"
tablomots = split(chaine, " ")

au passage, le contraire de split est join.

Antoun

Hello,

Tu peux essayer l'autre solution que j'ai postée...

sinon, on peut utiliser CopyMemory:

Private Declare Sub CopyMemory _
Lib "kernel32" _
Alias "RtlMoveMemory" _
( _
Destination As Any, _
Source As Any, _
ByVal Length As Long)

(et pouf, l'erreur de longueur... et pouf ça plante!)

On peut aussi se casse la tête à la convertir manuellement (non testé et à
ne pas utiliser):
Private Function strToBytes(strIn As String) As Byte()
Dim Result() As Byte
Dim i As Long
ReDim Result(Len(strIn) - 1)

For i = 1 To Len(strIn)
Result(i - 1) = Asc(Mid$(strIn, i, 1))
Next i

strToBytes = Result
End Function

Ou nettement plus simplement, laisser VB accomplir son devoir:
Private Sub test()
Dim strIn As String
Dim strOut() As Byte

strIn = "aa"

strOut = StrConv(strIn, vbFromUnicode) 'stoque la chaine dans un tableau
de bytes
End Sub

--
François Picalausa (MVP VB)
http://faq.vb.free.fr --- http://msdn.microsoft.com
http://apisvb.europe.webmatrixhosting.net

"jp magne" <icareinf@free.fr> a écrit dans le message de
news:uEyyoS2VEHA.2816@TK2MSFTNGP11.phx.gbl

bonjour,

comment creer un tableau avec une chaine de caractéres ?

merci,

jpm

je fais des essais
encore merci à vous et au web !