Optimal Join of a text to string with Logic

[sryair]

I need to Join together By Logic some Attributes (Delimited with “ | “


SHORT NAME: MODULE,DISCRETE
TYPE: OUTPUT
SIZE: 100MM
POWER SUPPLY: 24VDC
POWER RATING: 100W
NUMBER OF INPUTS: 16 DIGITAL
NUMBER OF OUTPUTS: 16 ANALOG
MOUNTING: PLUG-IN
APPLICATION: COMPUTER
FREQUENCY: 50HZ

The max length of the join string is 50 characters
The first two attributes must be in the join string

The Other Attributes by the Sequence

Then required to optimize and check if the join length of the string is the max possible

the string look like:MODULE,DISCRETE | OUTPUT | 100MM | ETC....

Any ideas how to do this with VBA code in Excel?

 

[hippiehacker]

Sub sryair()For Each cell In Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
 t = InStr(1, cell.Value, ": ") + 2
 txt = Mid(cell.Value, t, Len(cell.Value) - t)
 If tmp = "" Then
 tmp = txt
 Else
 tmp = tmp & "|" & txt
 End If
Next cell
tmp = Left(tmp, 50)
MsgBox tmp
End Sub

 

[sryair]

Thank you for your comment

should connect the text values in column "B"
The rules are:
the maximum length of the join string 50
Do not cut any value during the optimization (ie, the value appears or does not appear)
If a certain value is too long is required to check if you can connect the following value