Tipulatoid
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
igor_andreev
И все-таки остались косячки
вот пример файла stock.txt:
Код: SAGA 6,42 9,24 10,55 1,23
PlayGirl 8,92 15,57 20,56 4,39
Уфа -0,59 0,00 -7,54 0,00
BSC КФХ Славинка 8,60 14,78 19,31 4,02
Raul Gonsalez 8,69 14,23 18,00 2,48
Last champion 8,90 14,77 18,85 2,75
|
после запуска этого кода:
Код: Set fso = CreateObject("Scripting.FileSystemObject")
Set fs = fso.OpenTextFile("stock.txt", 1, false)
Set f = fso.OpenTextFile("new_stock.txt", 2, true)
fsContent = fs.ReadAll
fs.Close
Set regEx = New RegExp
regEx.Pattern = "\D*([0-9\,\-\s]*)$"
regEx.MultiLine = True
regEx.Global = True
Set Matches = regEx.Execute(fsContent)
For Each Match in Matches
RetStr = RetStr & Match.Value & vbCRLF
RetStr = regEx.Replace(RetStr, "$1")
Next
f.Write RetStr
f.Close |
получается new_stock.txt:
Код: 6,42 9,24 10,55 1,23
8,92 15,57 20,56 4,39
0,59 0,00 -7,54 0,00
8,60 14,78 19,31 4,02
8,69 14,23 18,00 2,48
8,90 14,77 18,85 2,75
|
Т.е. он обрезает минус (дефис) у того числа, которое стоит рядом со словом. Помогите с этим, плиз |
.
: 
, в реестер пишется как надо, но обновление не действует... 
