[Данные, строки] Как добавить/удалить символы в строке
- Автор темы Atall
- Дата начала
Atall
Можно так
Можно так
Код:
#Region Includes
#EndRegion Includes
#NoTrayIcon
$sStringOld = "1234-1234-12345-1234"
$aStringSplit = StringSplit($sStringOld, "-")
Dim $sStringNew = ""
For $s = 1 To 2
$sStringNew &= $aStringSplit[$s] & "-"
Next
$sStringNew &= "000" & $aStringSplit[3] & "-4"
MsgBox(0, "", "$sStringOld = " & $sStringOld & @CRLF & "$sStringNew = " & $sStringNew)
- Сообщения
- 8,673
- Репутация
- 2,486
CreatoR сказал(а):
Да наверное условия нужно было прописать...
Есть файл с большим количеством таких вот номеров.
Количество разделителей "-" всегда одинаково.
Количество знаков между разделителями может варьироваться.
Известно только что между разделителями цифры.
- Сообщения
- 8,673
- Репутация
- 2,486
Atall [?]
Тогда вот:
Хорошо, значит нули нужно добавлять у третьего набора знаков, а у четвёртого набора убирать все цифры кроме последней, я верно понял?
Тогда вот:
Код:
$sString = "1234-1234-12345-1234"
$sRet = StringRegExpReplace($sString, "\b(\d{4}-\d{4}-)(\d{5,7}-)\d?\d?\d?(\d)\b", "${1}000$2$3")
ConsoleWrite($sRet & @LF)CreatoR [?]
суть в том что в файле может повторяться один и тот же номер, но с разным количеством нулей после третьего и четвертого разделителей
например: 1234-1234-12345-0004
и его аналог но уже в другом формате: 1234-1234-0012345-4
задача отследить оба.
На самом деле условие посложнее будет, но так как я хотел сам додуматься то сразу его не написал. Но если поможете будет здорово
суть в том что в файле может повторяться один и тот же номер, но с разным количеством нулей после третьего и четвертого разделителей
например: 1234-1234-12345-0004
и его аналог но уже в другом формате: 1234-1234-0012345-4
задача отследить оба.
- Сообщения
- 8,673
- Репутация
- 2,486
madmasles [?]
Atall [?]
Ну в моём примере по крайней мере ничего не обрезается, я к тому и клонил, что если не подходит под формат, то не должно ничего заменять.
Atall [?]
Мой пример это и делает, он добавлят нули к 0012345 (во втором случае), если нужно удалять нули, то это ещё одно условие.
Код:
;$sString = "1234-1234-12345-0004"
$sString = "1234-1234-0012345-4"
$sRet = StringRegExpReplace($sString, "\b(\d{4}-\d{4}-)0*(\d{5,7}-)\d?\d?\d?(\d)\b", "${1}000$2$3")
ConsoleWrite($sRet & @LF)
