VB Logic

[kirubagari]

Need some help

I have 2 string

String 1: A-B-C-D

String 2: A-B-C

If the string have 4 token

i need take A and concenate with D

A-D

if i have 3 token like A-B-C

i need take the 1st token A

Please help on this.

[zmbd]

kirubagari,

You've made absolutly no sense to me and I'd like to believe that I am a reasonably intelligent person...

So, do yo want to try that again?

[kirubagari]

Hi zmbd ,
Let me explain again.
I have 2 string.

TFSGNT-SAH-CMP-PreMeas
ILD-SAH-CMP-Meas-5P25K

If the string have 3 dash in between, i need to grab the 1st value before the first dash

TFSGNT-SAH-CMP-PreMeas

TFSGNT

ILD-SAH-CMP-Meas-5P25K

If the string have 4 dash in between, i need to grab first string and Concatenate
with last string as below

ILD-5P25K

[aliyalcin]

Hi kirubagari,
You can use the following function.

    Public Function stringProcessor(ByVal inputString As String) As String
        Dim result As String = String.Empty
        Dim stringList As List(Of String) = inputString.Split("-"c).ToList()
        If stringList.Count > 0 AndAlso stringList.Count = 5 Then
            result = stringList(0) & "-" & stringList(stringList.Count-1)
        ElseIf stringList.Count > 0 AndAlso stringList.Count = 4 Then
            result = stringList(0)
        End If
        Return result
    End Function

[zmbd]

There are a number of ways to solve this:
Split function comes to mind first http://msdn.microsoft.com/en-us/libr...(v=vs.80).aspx. With three hyphens in string you will never return more than four sections so check the return for item count.
Second is the recursive instr to return positions.
Third is a midstring,
and so on with the string functions.http://msdn.microsoft.com/en-us/library/dd789093.aspx... I like the filter; however, I'm old school and arrays were the bread and butter of programming.

[LeoT]

Public Function FinalStr() As String
    Dim a As String
    Dim b As String
    a = "TFSGNT-SAH-CMP-PreMeas"
    b = "ILD-SAH-CMP-Meas-5P25K"
    
    Dim ar
    Dim br
    Dim intcnt As Integer
    Dim firstStr As String
    Dim secondStr As String
    
    ar = Split(a, "-")
    If UBound(ar) = 3 Then
        firstStr = ar(0)
    End If
    
    br = Split(b, "-")
    If UBound(br) = 4 Then
        secondStr = br(4)
    End If
    'MsgBox firstStr & "-" & secondStr
    
    FinalStr = firstStr & "-" & secondStr
    
End Function

[kirubagari]

Hi Experts ,

Thanks.Able to solve the problem

Private Sub Command1_Click()
Dim a As String
Dim b As String
' = "TFSGNT-SAH-CMP-PreMeas"
a = "ILD-SAH-CMP-Meas-5P25K"

Dim ar
'Dim br
Dim intcnt As Integer
Dim firstStr As String
Dim secondStr As String
Dim abc As String

ar = Split(a, "-")
If UBound(ar) = 3 Then
FinalStr = ar(0)
ElseIf UBound(ar) = 4 Then
secondStr = ar(4)
firstStr = ar(0)
abc = firstStr & "-" & secondStr
End If

End Sub