|
いつもお世話になっております。
下記の文字列Aを文字列Bとして出力したいのですが、
上手くいきません。
どなたかアドバイス頂ける方、ご教授願えませんでしょうか?
文字列A:N20,(Z-2.4),N20,(Z-5.0),N30,(Z-2.4),N30,(Z-5.0)
文字列B:N20,(Z-5.0),N30,(Z-5.0)
規則は、それぞれのナンバーの最大マイナス値になります。
N20の最大マイナスは(Z-5)で、N30の最大マイナスも(Z-5)なので、
文字列Bこれになります。
以前も皆様に教えていただき、現状は下記のコードにしていますが、
現状だとN20(Z-2.4),N30(Z-5.0)と出力されてしまいます。
Private Sub CommandButton1_Click()
Dim isy As Long
Dim m1Dic As Object
Dim v As Variant
Dim tmp As String
Dim B As String
tmp = "N20,(Z-2.4),N20,(Z-5.0),N30,(Z-2.4),N30,(Z-5.0)"
v = Split(tmp, ",")
Set m1Dic = CreateObject("Scripting.Dictionary")
For isy = UBound(v) To LBound(v) Step -1
If Not IsEmpty(v(isy)) Then
If Not m1Dic.Exists(v(isy)) Then
B = v(isy) & "," & B
m1Dic(v(isy)) = v(isy)
End If
End If
Next
MsgBox B
Set m1Dic = Nothing
End Sub
|
|