Imports System  

Public Module Module1

    Public Sub Main()

        'presupunem ca avem un vector de celule care au urmatoarele valori

        Dim celulaA(29)  as String

        celulaA(0)="Randurile 108 -939 si 139"

        celulaA(1)="Randurile 263 -712 si 635"

        celulaA(2)="Randurile 812 -766 si 690"

        celulaA(3)="Randurile 950 -630 si 295"

        celulaA(4)="Randurile 499 -266 si 633"

        celulaA(5)="Randurile 639 -296 si 250"

        celulaA(6)="Randurile 678 -786 si 239"

        celulaA(7)="Randurile 278 -943 si 327"

        celulaA(8)="Randurile 717 -607 si 749"

        celulaA(9)="Randurile 596 -235 si 429"

        celulaA(10)="Randurile 958 -587 si 763"

        celulaA(11)="Randurile 832 -943 si 599"

        celulaA(12)="Randurile 944 -782 si 926"

        celulaA(13)="Randurile 820 -275 si 445"

        celulaA(14)="Randurile 883 -518 si 471"

        celulaA(15)="Randurile 814 -868 si 579"

        celulaA(16)="Randurile 193 -487 si 995"

        celulaA(17)="Randurile 531 -839 si 217"

        celulaA(18)="Randurile 512 -444 si 674"

        celulaA(19)="Randurile 421 -341 si 954"

        celulaA(20)="Randurile 500 -937 si 563"

        celulaA(21)="Randurile 385 -618 si 528"

        celulaA(22)="Randurile 303 -298 si 797"

        celulaA(23)="Randurile 269 -280 si 652"

        celulaA(24)="Randurile 377 -563 si 650"

        celulaA(25)="Randurile 601 -495 si 375"

        celulaA(26)="Randurile 932 -664 si 296"

        celulaA(27)="Randurile 382 -425 si 929"

        celulaA(28)="Randurile 559 -896 si 411"

        celulaA(29)="Randurile 151 -581 si 837"

        Dim celulaB(29)  as Integer

        Dim celulaC(29)  as Integer

        Dim celulaD(29)  as Integer

        Dim i as Integer = 0

        For Each element As String in celulaA

            Dim buffer() as String = getIntegersAsString(element, " ")

            celulaB(i) = CInt(buffer(0))

            celulaC(i) = CInt(buffer(1))

            celulaD(i) = CInt(buffer(2))

            i =  i + 1

        Next

    'test rezultat

    For i = 0 to celulaB.Length-1

    Console.WriteLine(String.format("B{0}={1}   C{0}={2}    D{0}={3}", i, celulaB(i), celulaC(i), celulaD(i)))

    Next i

    End Sub

​

Function getIntegersAsString(ByVal source as String, ByVal token as Char) As String()

    Dim data() as Char = source.ToCharArray()

    Dim s1 as String = ""

    For Each c as Char in data

        if ( (c >= "0" And c <= "9") Or (c = "-") Or(c = token)) then

            s1 += c

        end if

    Next

    Dim s2() as String = s1.Split(token)

    s1 = ""

    For Each s as String in s2 

        if(s.Length <> 0) then

            s1 += s + token

        end if

    Next

    return s1.Split(token)

End Function

End Module

​