String ->Struct

'imam struktuka
Type tx
a as string * 4
b as string * 6
end type

'i posle
Sub bla_bla()
dim x as tx
dim strX as string

'i primerno...
strX="1234okokok"
'iskam x.a da stane "1234", x.b "okokok"

'tova ne stava:
x=strX '!!! :(

'ima li neshto takova ili triabva da pisha:
x.a=mid(strX,1,4)
x.b=mid(strX,5,6)

'po princip struktorata mi e mnogo goliama, no vsi4ko v neia e String * n
'na C e mnogo lesno, ne moje na VB da niama niakoi po-lesen na4in :))))

end sub

"Нема начин да нема начин!"

Хакни тоя код в една форма и се "спасявай" след това:


Option Explicit
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDest As Any, pSource As Any, ByVal cb As Long)

Private Type tx
a As String * 4
b As String * 6
End Type

Private Sub Form_Load()
Dim strX As String
strX = "1234okokok"

Dim t As tx
CopyMemory t, ByVal strX, Len(t)
Debug.Print t.a
Debug.Print t.b
End Sub

Бии, за да те уважават!

10x
idealno e :)))))