Apologies for the delay in answering. I believe I have all the nets but the below referenced:
Code:
For I = 1 To 6
If rU("SINCG " & I) = "METT" Then
rU("SINC" & I) = "5F000-METT-T" & V
ElseIf rU("SINCG " & I) Like "Div*" Then
rU("SINC" & I) = "5800" & I + 1 & "-" & DIV & " " & Right(rU("SINCG " & I), 3) & V
ElseIf rU("SINCG " & I) Like "Bde*" Then
rU("SINC" & I) = BDEs & " " & rU("SINCG " & I) & V
ElseIf rU("SINCG " & I) = "MED" Then
rU("SINC" & I) = "MED" & V
ElseIf rU("SINCG " & I) Like "INF BN #*" Then
NewWave = Right(rU("SINCG " & I), (Len(rU("SINCG " & I)) - 9))
rU("SINC" & I) = Base & " " & NewWave & V
ElseIf rU("SINCG " & I) Like "CAV*" Or rU("SINCG " & I) Like "BEB*" Or rU("SINCG " & I) Like "BSB*" Then
NewWave = Right(rU("SINCG " & I), (Len(rU("SINCG " & I)) - 4))
rU("SINC" & I) = Base & " " & NewWave & V
ElseIf rU("SINCG " & I) = "FA Bn*" Then
NewWave = Right(rU("SINCG " & I), (Len(rU("SINCG " & I)) - 3))
rU("SINC" & I) = Base & " " & NewWave & V
ElseIf rU("SINCG " & I) Like "FIRES ?*" And Not rU("SINCG " & I) Like "FIRES Bn M*" And Not rU("SINCG " & I) Like "*TGT Plt Ops" Then
NewWave = Right(rU("SINCG " & I), (Len(rU("SINCG " & I)) - 6))
rU("SINC" & I) = Base & " " & NewWave & V
ElseIf rU("SINCG " & I) Like "FIRES Bn M*" Then
NewWave = Right(rU("SINCG " & I), (Len(rU("SINCG " & I)) - 6))
rU("SINC" & I) = Base & " " & NewWave & V
ElseIf rU("SINCG " & I) Like "*TGT Plt Ops" Then
rU("SINC" & I) = Base & " TGT ACQ Plt Ops" & V
ElseIf rU("SINCG " & I) Like "BEB BN*" Then
NewWave = Right(rU("SINCG " & I), (Len(rU("SINCG " & I)) - 6))
rU("SINC" & I) = Units & " " & NewWave & V
ElseIf rU("SINCG " & I) Like "BSB*" Then
NewWave = Right(rU("SINCG " & I), (Len(rU("SINCG " & I)) - 6))
rU("SINC" & I) = Base & " " & NewWave & V
ElseIf rU("SINCG " & I) = "Sptd Unit A&L" Then
rU("SINC" & I) = Units & " AL" & V
ElseIf rU("SINCG " & I) <> "" Then
rU("SINC" & I) = Base & " " & rU("SINCG " & I) & V
Else
rU("SINC" & I) = Base & " " & rU("SINCG " & I) & V
End If
Next I
rU("SINC" & I) = Base & " " & NewWave & V would be replaced by another set:
Net = WN & Z & Y & X
rU("SINC" & I) = Net & Q & "-" Netbase & rU("SINCG " & I) & V where Q is the count of:
Q=1
IF Net is the same then
Q=Q+0
if Net <> then
Q=Q+1
or somesuch. However it needs to keep track to see if the net has been used before, if so then it needs to use that Net + Q.
I am not sure if theat clarifieis anything.