Visual Basic

LongName = Members(0).Name
LengthOfLongestName = Len(Members(0).Name)

LongName = Members(0).Name
LengthOfLongestName = Len(LongName)

    Private Sub btnLongName_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLongName.Click
        Dim LongName As String
        Dim LengthOfLongestName As Integer
        LongName = Members(0).Name
        LengthOfLongestName = Len(LongName)
        If LongName Then
        End If
        txtResult.Text = "The longest name is " & LongName & " ."
    End Sub
End Class

Henry Minute wrote:

Once you ... got at least part of it working, come back if you get stuck.

Private Sub subLongest()
      Dim arr(100) As String

      arr(0) = "aa"
      arr(1) = "bbb"
      arr(2) = "cc"
      arr(3) = "ddddd"
      arr(4) = "aa"
      arr(5) = "bbb"
      arr(6) = "cc"


      Dim maxLenIndex As Int16 = 0
      Dim maxLen As Int16 = arr(0).Length
      For ii As Int16 = 1 To 100
          If arr(ii) IsNot Nothing Then
              If arr(ii).Length > maxLen Then
                  maxLen = arr(ii).Length
                  maxLenIndex = ii
              End If
          End If
      Next
      MsgBox("Longest element is " & arr(maxLenIndex))
  End Sub

vijay2482 wrote:

If m <> -1 Then   
   If m = -1 

Then

m = name.IndexOf("Groupe")
                        If m <> -1 Then
                            sw.WriteLine(LTrim(name))
                        End If

vijay2482 wrote:

f the index "Groupe" is found in name,i want to write the line altering the name by shifting it left by 2 places...

vijay2482 wrote:

If m = -1 Then