ArrayList<String> list = new ArrayList<>();
ArrayList list = new ArrayList()
ArrayList<Object> list = new ArrayList<>()
.Split('"')
разобьется на массив следующего вида:if(min % 2 == 1)
) индексом - слово в кавычках. Алгоритм довольно странный, на мой взгляд. Sub duplicate()
Dim StrIn As String
Dim StrOut As String
Dim Symbol As String
Dim Twice As Boolean
StrIn = "835*23*2"
Symbol = "2"
StrOut = ""
If InStr(StrIn, Symbol) > 0 Then
Twice = True
Else
Twice = False
End If
For i = 1 To Len(StrIn)
Char = Mid(StrIn, i, 1)
Select Case Char
Case Symbol
StrOut = StrOut & Char
Case "*"
StrOut = StrOut
Case Else
StrOut = StrOut & Char
If Twice Then
StrOut = StrOut & Char
End If
End Select
Next i
MsgBox (StrOut)
End Sub