Soru Textbox veriyi Dizi ye çevirmek

[k0081]

Merhaba arkadaşlar;

Textbox dan veri değişkenine tire ile ayrılmış data alıyorum.

String veri = 1-2-3-4-5-6-7-8-9-10-11.25-12.60-13.85

gibi..

yapmak istediğim bu verileri bir diziye aktarmak. Bu dizinin tipide double olmalı.

bunu nasıl yapabilirim ?

yardımcı arkadaşa şimdiden teşekkürler.

 

[Haluk]

Sub Test()
    Dim veri As String, arrVeri As Variant
    veri = "1 - 2 - 3 - 4 - 5 - 6 - 7 - 8 - 9 - 10 - 11.25 - 12.6 - 13.85"
    
    veri = Replace(veri, " ", "")
    arrVeri = Split(veri, "-")
    
    MsgBox arrVeri(12)
End Sub

.

 

[k0081]

@Haluk ;


Hocam arrVeri değişkeni double dizi olmalı. yani bu verileri - yi baz alarak dizi ye aktarmam gerekiyor.

 

[Haluk]

Sonuçlar zaten double gelir..... olmaz mı?

.

 

[k0081]

geliyor da tek olarak... bana hepsi lazım. ayrı ayrı yani.

 

[Haluk]

Zaten hepsi "arrVeri" içinde duruyor..... ben örnek olarak bir tanesini msgbox ile gösterdim.

****************************


Ya da aşağıdakini kullanın,

Sub Test2()
    Dim veri As String, arrVeri As Variant, arrVeri2() As Double
    veri = "1 - 2 - 3 - 4 - 5 - 6 - 7 - 8 - 9 - 10 - 11.25 - 12.6 - 13.85"
    
    veri = Replace(veri, " ", "")
    arrVeri = Split(veri, "-")
    
    For i = 0 To UBound(arrVeri)
        ReDim Preserve arrVeri2(0 To i)
        arrVeri2(i) = arrVeri(i)
    Next
    
    MsgBox arrVeri2(12)
End Sub

.

 

[k0081]

hocam burada sanıyorum foreach yada for döngüsünü kullanarak işlem yapacağız

 

[Haluk]

Yaptık zaten ....

İsteğiniz üzerine "Double" tipindeki "arrVeri2" dizisine aktardık.

.

 

[k0081]

görmeden yazmıştım... Teşekkürler hocam.