| |
|
|
| | есть поле со значением (именно одно поле, а не строка
"8600 C2Duo E6550 320Gb DVDRW 2Gb GT256Mb CR Vista 6550 C2Duo E 320Gb DVDRW 2Gb 8600GT256Mb CR Vista 550 C2Duo E6 320Gb DVDRW 2Gb 8600GT256Mb CR Vista 320 C2Duo E6550 Gb DVDRW 2Gb 8600GT256Mb CR Vista 600 C2Duo E6550 320Gb DVDRW 2Gb 8 GT256Mb CR Vista 60 C2Duo E6550 320Gb DVDRW 2Gb 8 0GT256Mb CR Vista"
в нём много повторяющихся значений. Например E6550 встречается аж 4 раза.
Возможно как то обработать поле, чтобы осталось только первое E6550, а остальное просто сократить? Это касается и прочих повторений в поле | |
| |
| |
| |
|
|
| | Например:
v = Split("8600 C2Duo E6550 320Gb DVDRW 2Gb GT256Mb CR Vista 6550 C2Duo...", " ")
For i = LBound(v) To Ubound(v)
If i = 0 Then
s = " " & v(i) & " "
ElseIf Not (s Like """* " & v(i) & " *""") Then
s = s & v(i) & " "
End If
Next
s = Trim(s)
|
Не проверял.  | |
| |
| |
| |
|
|
| | не работает. а что делает опператор Split? | |
| |
| |
| |
|
|
| | Как именно не работает? Если у вас не А97 - должно раборать.
Split разделяет строку на массив подстрок, разделенных указанным символом, в данном случае - пробелом.
v - переменная типа Variant | |
| |
| |
| |
|
|
| | Спасибо, заработало :-)
Одну строчку пришлось подправить
ElseIf Not (ReplaceKeyw Like "* " & v(i) & " *") Then
Потому как с дополнительными парными кавычками он выдавал то же, что было и на входе | |
| |
| |
