View.Set ("Text")

var String : string := "%Music:HotNCold.Mp3,Picture:Backround.jpg"
var SentInfo : array 1 .. 10 of
    record
        String, LoadFile : string
        Type : int
    end record

var num : int := 0
/*For variable i, 1 to the length of the variable String*/
for i : 1 .. length (String)
    /*If Char (i) of String is = to th char "," or the loop just starts, then*/
    if String (i) = "," or i = 1 then
        /*Increases the Count*/
        num += 1
        /*Sets the Default Value*/
        SentInfo (num).String := ""
        /*for the variable p, the value of i +1  to the length of the variable String*/
        for p : (i + 1) .. length (String)
            /*Exits the for loop when Char (p) of String is = to ","*/
            exit when String (p) = ","
            /*Adds the the (p) char from the variable String to the information String*/
            SentInfo (num).String += String (p)
            /*If the information string is of type "Music" then */
            if SentInfo (num).String = "Music:" then
                /*Sets an initial value to the information variable*/
                SentInfo (num).String := ""
                /*for the variable z, the value of the variable p + 1 to the length of the variable String*/
                for z : (p + 1) .. length (String)
                    /*Exits the for loop when Char (z) of String is = to ","*/
                    exit when String (z) = ","
                    /*Adds the the (z) char from the variable String to the information String*/
                    SentInfo (num).String += String (z)
                end for
                /*If the information string is of type "Picture" then*/
            elsif SentInfo (num).String = "Picture:" then
                /*Sets an initial value to the information variable*/
                SentInfo (num).String := ""
                /*for the variable z, the value of the variable p + 1 to the length of the variable String*/
                for z : (p + 1) .. length (String)
                    /*Exits the for loop when Char (z) of String is = to ","*/
                    exit when String (z) = ","
                    /*Adds the the (z) char from the variable String to the information String*/
                    SentInfo (num).String += String (z)
                end for
            end if
        end for
    end if
end for

put num
put "The error is tht it adds it's self even though the count is only two. Any help?"
put SentInfo (1).String
put SentInfo (2).String

var SentInfo : array 1 .. 10 of
        record
            String : string
            Type : int
        end record

proc Split (String : string)
        var num : int := 0
        for i : 1 .. 10
            SentInfo (i).String := ""
            SentInfo (i).Type := 0
        end for
        for i : 1 .. length (String)
            if String (i) = "," or i = 1 then
                num += 1
                for p : (i + 1) .. length (String)
                    exit when String (p) = ","
                    SentInfo (num).String += String (p)
                    if SentInfo (num).String = "Music:" then
                        SentInfo (num).String := ""
                        SentInfo (num).Type := 1
                        for z : (p + 1) .. length (String)
                            exit when String (z) = ","
                            SentInfo (num).String += String (z)
                        end for
                        exit
                    elsif SentInfo (num).String = "Picture:" then
                        SentInfo (num).String := ""
                        SentInfo (num).Type := 2
                        for z : (p + 1) .. length (String)
                            exit when String (z) = ","
                            SentInfo (num).String += String (z)
                        end for
                        exit
                    end if
                end for
            end if
        end for

        for i : 1 .. num
            put SentInfo (i).String
        end for
end Split