Замена текста в NotePad++ в файле CSV

Пользователь

Сообщений: 44 Регистрация: 26.12.2012

15.03.2013 17:48:24

Есть файл CSV в котором есть несколько ячеек с кодом:

Код
<p align=\^justify\^><span style=\^margin-left: 50px\#\^>

Перед и после этого кода тоже есть текст. Нужно удалить все что после этого кода в каждой строке (если открывать через notepad++)

Хочу воспользоваться именно нотпадом потомучто в екселе заменит нельяз т.к. в ячейке очень много символов, а у екселя есть свой предел. Буда рада любым советам.

Прилагаю файл. Там схематические данные

Прикрепленные файлы

pl.csv (37.54 КБ)

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	#2 15.03.2013 18:03:57 А при чем тут форум по Эксель? Я сам - дурнее всякого примера! ...

Hugo

Пользователь

Сообщений: 26335 Регистрация: 22.12.2012

15.03.2013 18:21:04

Причём тут Notepad++? :)

Код

Sub tt()
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set ts = fso.OpenTextFile("C:\Temp\pl.csv", 1)
    arrstr = Split(ts.ReadAll, vbCrLf)
    ts.Close

    Set outFile = fso.CreateTextFile("C:\Temp\pl.csv")

    For i = 0 To UBound(arrstr)
        If Len(arrstr(i)) Then
            outFile.WriteLine Split(arrstr(i), "<p align=\^justify\^><span style=\^margin-left: 50px\#\^>", 2)(0) & "<p align=\^justify\^><span style=\^margin-left: 50px\#\^>"
        End If
    Next

    outFile.Close

    MsgBox "OK", vbInformation
End Sub

ЯНа

Пользователь

Сообщений: 44 Регистрация: 26.12.2012

15.03.2013 19:37:41

Спасибо. Мне нужно чтобы того кода тоже не было при замене. Можете изменить макрос, пожалуйста. И скажите где что изменить если ме понадобится другой текст заменить и например в другой ячейке .

Изменено: ЯНа - 15.03.2013 19:43:06

Kuzmich Пользователь Сообщений: 8190 Регистрация: 21.12.2012	#5 15.03.2013 19:43:21 А ваш файл в C:\Temp\pl.csv ?

ЯНа Пользователь Сообщений: 44 Регистрация: 26.12.2012	#6 15.03.2013 19:51:30 Спасибо. Мне нужно чтобы того кода тоже не было при замене. Можете изменить макрос, пожалуйста. И скажите где что изменить если ме понадобится другой текст заменить и например в другой ячейке .

Читают тему