Connecting Tech Pros Worldwide Forums | Help | Site Map

Add prefix to arry of string

Newbie
 
Join Date: Aug 2006
Posts: 3
#1: Aug 27 '06
Hello,
I'm new to VB, and I realy don't get the arrays. I have to write a program that takes an arry of string as a parameter and adds "sir" to each string. I need to use "get upper bound."
Can anyone help? I'm desperate, I tried eveything and nothing works.

Newbie
 
Join Date: Aug 2006
Posts: 8
#2: Aug 27 '06

re: Add prefix to arry of string


how about this... :)

Private Sub AddPrefixToArray(ByRef arr() As String)
Dim i As Integer
For i = 1 To UBound(arr)
arr(i - 1) = "Sir " & Trim(arr(i - 1))
Next i
End Sub
Newbie
 
Join Date: Aug 2006
Posts: 3
#3: Aug 27 '06

re: Add prefix to arry of string


Hi,
I did try and Its still not working, I can not get it to display anything in the listbox, Thank you for your help.
:confused:

Private Sub Button1_Click(......ByVal e ....) Handles Button1.Click

Dim List() As String = {"", "Kill", "Zav", "SAV", "Jan"}
ListBox1.Items.Clear()
ListBox1.Items.Add(AddTitle)
End Sub

Private Sub AddTitle(ByRef arr() As String)
Dim i As Integer
For i = 1 To UBound(arr)
arr(i - 1) = "Sir " & Trim(arr(i - 1))
Next i
End Sub
Newbie
 
Join Date: Aug 2006
Posts: 8
#4: Aug 28 '06

re: Add prefix to arry of string


TRY THIS..........

Private Sub Command1_Click()
Dim arr(4) As String

arr(0) = ""
arr(1) = "Kill"
arr(2) = "Zav"
arr(3) = "SAV"
arr(4) = "Jan"

AddTitle arr

End Sub

Private Sub AddTitle(ByRef arr() As String)
Dim i As Integer
ListBox1.Clear
For i = 1 To UBound(arr)
ListBox1.AddItem "Sir " & Trim(arr(i - 1))
Next i
ListBox1.AddItem ""
ListBox1.AddItem "ENJOY CODIN :)"
End Sub
Newbie
 
Join Date: Aug 2006
Posts: 8
#5: Aug 28 '06

re: Add prefix to arry of string


you shouldnt put a procedure name on listbox.additem since the syntax only requires a variable or a string value, besides sub procedures doesnt return a value, use functions instead of procedures it will work then.
Newbie
 
Join Date: Aug 2006
Posts: 3
#6: Aug 29 '06

re: Add prefix to arry of string


Thank you so much,
I got it, this realy works.


Private Sub Button1_Click Handles Button1.Click
Dim arr() As String = {"", "Kill", "Zav", "SAV", "Jan"}

AddTitle(arr)

End Sub


Private Sub AddTitle(ByRef arr() As String)
Dim add As String = ("Sir. ")
Dim i As Integer
ListBox1.Items.Clear()
For i = 1 To arr.GetUpperBound(0)
ListBox1.Items.Add(add & Trim(arr(i)))
Next i
End Sub
Reply