Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Удаление кавычек - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удаление кавычек (Макросы Sub)
Удаление кавычек
cobra77777 Дата: Вторник, 05.11.2013, 21:36 | Сообщение № 1
Группа: Заблокированные
Ранг: Участник
Сообщений: 68
Репутация: -14 ±
Замечаний: 80% ±

Excel 2013
Здравствуйте!

Не пинайте сильно я только учусь, скажите плиз как удалить кавычки.

Есть код который формирует txt файл (см.ниже):[vba]
Код
"<?xml version=""1.0"" encoding=""windows-1251"" ?>"
<pkiUser>
"<subject>CN=13506000052,title=РУКОВОДИТЕЛЬ,O=ППО РОГА И КОПЫТА""ОАО,streetAddress=1111111,Москва Г,Коломенская УЛ,2,,,ST=16 Москва,L=Москва,C=RU,Email=,INN=2222222222222,SN=Иванов А. К.,OGRN=12222222222222</subject>"
<subjectAltName>
<surname>Иванов А. К.</surname>
"<organizationName>ППО РОГА И КОПЫТА""ОАО</organizationName>"
</subjectAltName>
<Policy>
<OID>1.2.643.100.113.2</OID>
</Policy>
<Extension>
<OID>1.2.643.100.111</OID>
<Type>ASN1_UTF8STRING</Type>
"<Value>111</Value>"
</Extension>
<UsagePeriod>
<CertLifeTime>60</CertLifeTime>
<KeyLifeTime>15</KeyLifeTime>
</UsagePeriod>
</pkiUser>
[/vba]Как удалить кавычки с тэгов:
1."" - удалить кавычки в начале и в конце и по одной кавычке ""windows-1251""
2."ППО РОГА И КОПЫТА""ОАО" - удалить кавычки в начале и в конце
 
Ответить
СообщениеЗдравствуйте!

Не пинайте сильно я только учусь, скажите плиз как удалить кавычки.

Есть код который формирует txt файл (см.ниже):[vba]
Код
"<?xml version=""1.0"" encoding=""windows-1251"" ?>"
<pkiUser>
"<subject>CN=13506000052,title=РУКОВОДИТЕЛЬ,O=ППО РОГА И КОПЫТА""ОАО,streetAddress=1111111,Москва Г,Коломенская УЛ,2,,,ST=16 Москва,L=Москва,C=RU,Email=,INN=2222222222222,SN=Иванов А. К.,OGRN=12222222222222</subject>"
<subjectAltName>
<surname>Иванов А. К.</surname>
"<organizationName>ППО РОГА И КОПЫТА""ОАО</organizationName>"
</subjectAltName>
<Policy>
<OID>1.2.643.100.113.2</OID>
</Policy>
<Extension>
<OID>1.2.643.100.111</OID>
<Type>ASN1_UTF8STRING</Type>
"<Value>111</Value>"
</Extension>
<UsagePeriod>
<CertLifeTime>60</CertLifeTime>
<KeyLifeTime>15</KeyLifeTime>
</UsagePeriod>
</pkiUser>
[/vba]Как удалить кавычки с тэгов:
1."" - удалить кавычки в начале и в конце и по одной кавычке ""windows-1251""
2."ППО РОГА И КОПЫТА""ОАО" - удалить кавычки в начале и в конце
Автор - cobra77777
Дата добавления - 05.11.2013 в 21:36
Alex_ST Дата: Вторник, 05.11.2013, 21:47 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3209
Репутация: 609 ±
Замечаний: 0% ±

2003
А как по-Вашему мы сможем помочь исправить процедуру, если Вы выложили не её код, а только результат её работы?


С уважением,
Алексей
MS Excel 2003 - the best!!!
 
Ответить
СообщениеА как по-Вашему мы сможем помочь исправить процедуру, если Вы выложили не её код, а только результат её работы?
Автор - Alex_ST
Дата добавления - 05.11.2013 в 21:47
cobra77777 Дата: Вторник, 05.11.2013, 21:49 | Сообщение № 3
Группа: Заблокированные
Ранг: Участник
Сообщений: 68
Репутация: -14 ±
Замечаний: 80% ±

Excel 2013
Цитата Alex_ST, 05.11.2013 в 21:47, в сообщении № 2
А как по-Вашему мы сможем помочь исправить процедуру, если Вы выложили не её код, а только результат её работы?


Вот код:[vba]
Код
Sub Proc()
Dim i As Integer
Dim nmf As String
Dim myPath As String
Dim dra As String

i = 1
nmf = ActiveWorkbook.Name

Do While Worksheets("Data").Cells(i, 1) <> ""
myPath = ThisWorkbook.Path & "\"
Worksheets(2).Cells(3, 1) = Left(Worksheets(2).Cells(3, 1), 9) & Worksheets("data").Cells(i, 8) & Right(Worksheets(2).Cells(3, 1), 10)
Worksheets(2).Cells(5, 1) = Left(Worksheets(2).Cells(5, 1), 9) & Worksheets("data").Cells(i, 6) & Right(Worksheets(2).Cells(5, 1), 10)
Worksheets(2).Cells(6, 1) = Left(Worksheets(2).Cells(6, 1), 18) & Worksheets("data").Cells(i, 3) & Right(Worksheets(2).Cells(6, 1), 19)
dra = myPath & Worksheets("data").Cells(i, 1)
Worksheets(2).Activate
ActiveWorkbook.SaveAs Filename:=dra, FileFormat:=xlTextWindows, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
i = i + 1
Loop

End Sub
[/vba][admin]Оформляйте коды тегами![/admin]
 
Ответить
Сообщение
Цитата Alex_ST, 05.11.2013 в 21:47, в сообщении № 2
А как по-Вашему мы сможем помочь исправить процедуру, если Вы выложили не её код, а только результат её работы?


Вот код:[vba]
Код
Sub Proc()
Dim i As Integer
Dim nmf As String
Dim myPath As String
Dim dra As String

i = 1
nmf = ActiveWorkbook.Name

Do While Worksheets("Data").Cells(i, 1) <> ""
myPath = ThisWorkbook.Path & "\"
Worksheets(2).Cells(3, 1) = Left(Worksheets(2).Cells(3, 1), 9) & Worksheets("data").Cells(i, 8) & Right(Worksheets(2).Cells(3, 1), 10)
Worksheets(2).Cells(5, 1) = Left(Worksheets(2).Cells(5, 1), 9) & Worksheets("data").Cells(i, 6) & Right(Worksheets(2).Cells(5, 1), 10)
Worksheets(2).Cells(6, 1) = Left(Worksheets(2).Cells(6, 1), 18) & Worksheets("data").Cells(i, 3) & Right(Worksheets(2).Cells(6, 1), 19)
dra = myPath & Worksheets("data").Cells(i, 1)
Worksheets(2).Activate
ActiveWorkbook.SaveAs Filename:=dra, FileFormat:=xlTextWindows, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
i = i + 1
Loop

End Sub
[/vba][admin]Оформляйте коды тегами![/admin]
Автор - cobra77777
Дата добавления - 05.11.2013 в 21:49
Alex_ST Дата: Вторник, 05.11.2013, 21:58 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3209
Репутация: 609 ±
Замечаний: 0% ±

2003
Ну, теперь осталось от Вас ещё и файл-пример получить и "золотой ключик у нас в руках".
(Вы что, предполагаете, что для того, чтобы понять что у Вас не так работает, мы сами будем листы книги заполнять "рогами и копытами" в нужных местах?)


С уважением,
Алексей
MS Excel 2003 - the best!!!
 
Ответить
СообщениеНу, теперь осталось от Вас ещё и файл-пример получить и "золотой ключик у нас в руках".
(Вы что, предполагаете, что для того, чтобы понять что у Вас не так работает, мы сами будем листы книги заполнять "рогами и копытами" в нужных местах?)
Автор - Alex_ST
Дата добавления - 05.11.2013 в 21:58
cobra77777 Дата: Вторник, 05.11.2013, 22:10 | Сообщение № 5
Группа: Заблокированные
Ранг: Участник
Сообщений: 68
Репутация: -14 ±
Замечаний: 80% ±

Excel 2013
Цитата Alex_ST, 05.11.2013 в 21:58, в сообщении № 4
Ну, теперь осталось от Вас ещё и файл-пример получить и "золотой ключик у нас в руках".
(Вы что, предполагаете, что для того, чтобы понять что у Вас не так работает, мы сами будем листы книги заполнять "рогами и копытами" в нужных местах?)

Ок вот файл.
К сообщению приложен файл: 111.xls (36.0 Kb)
 
Ответить
Сообщение
Цитата Alex_ST, 05.11.2013 в 21:58, в сообщении № 4
Ну, теперь осталось от Вас ещё и файл-пример получить и "золотой ключик у нас в руках".
(Вы что, предполагаете, что для того, чтобы понять что у Вас не так работает, мы сами будем листы книги заполнять "рогами и копытами" в нужных местах?)

Ок вот файл.
Автор - cobra77777
Дата добавления - 05.11.2013 в 22:10
AndreTM Дата: Среда, 06.11.2013, 01:51 | Сообщение № 6
Группа: Друзья
Ранг: Старожил
Сообщений: 1762
Репутация: 500 ±
Замечаний: 0% ±

2003 & 2010
cobra77777, вообще-то, нигде в вашем "коде" не обнаружилось ни наименований предприятий, ни записи тэгов. По одной простой причине - вы кинулись в нас не тем куском данных... и куском кода... и в нём наблюдается, что в процессе сохранения участвует ещё один рабочий лист. Который, между прочим, и сохраняется.

Могу вам сказать одно - откажитесь от использования .SaveAs FileFormat:=xlTextWindows и напишите небольшую собственную процедуру (пример) для сохранения данных (тем более, что у вас, судя по всему, это и предполагается - текст в сохраняемом листе весь вписывается в ячейки первого столбца - из которых вы легко сформируете единую символьную переменную). Впрочем, как замечалось, даже этот метод для работы с xml не очень подходит (но он лучше вашего :) ).

Skype: andre.tm.007
Donate: Qiwi: 9517375010
 
Ответить
Сообщениеcobra77777, вообще-то, нигде в вашем "коде" не обнаружилось ни наименований предприятий, ни записи тэгов. По одной простой причине - вы кинулись в нас не тем куском данных... и куском кода... и в нём наблюдается, что в процессе сохранения участвует ещё один рабочий лист. Который, между прочим, и сохраняется.

Могу вам сказать одно - откажитесь от использования .SaveAs FileFormat:=xlTextWindows и напишите небольшую собственную процедуру (пример) для сохранения данных (тем более, что у вас, судя по всему, это и предполагается - текст в сохраняемом листе весь вписывается в ячейки первого столбца - из которых вы легко сформируете единую символьную переменную). Впрочем, как замечалось, даже этот метод для работы с xml не очень подходит (но он лучше вашего :) ).
Автор - AndreTM
Дата добавления - 06.11.2013 в 01:51
cobra77777 Дата: Среда, 06.11.2013, 11:08 | Сообщение № 7
Группа: Заблокированные
Ранг: Участник
Сообщений: 68
Репутация: -14 ±
Замечаний: 80% ±

Excel 2013
Да дело в том что я не занимаюсь макрасами, хотел просто узнать почему так получается "криво" .
 
Ответить
СообщениеДа дело в том что я не занимаюсь макрасами, хотел просто узнать почему так получается "криво" .
Автор - cobra77777
Дата добавления - 06.11.2013 в 11:08
cobra77777 Дата: Среда, 06.11.2013, 14:18 | Сообщение № 8
Группа: Заблокированные
Ранг: Участник
Сообщений: 68
Репутация: -14 ±
Замечаний: 80% ±

Excel 2013
Мог бы кто нибудь помочь доработать данный код? AndreTM дал совет по другому сохранять.

[vba]
Код
Sub Proc()
Dim i As Integer
Dim nmf As String
Dim myPath As String
Dim dra As String

i = 1
nmf = ActiveWorkbook.Name

Do While Worksheets("Data").Cells(i, 1) <> ""
myPath = ThisWorkbook.Path & "\"
Worksheets(2).Cells(3, 1) = Left(Worksheets(2).Cells(3, 1), 9) & Worksheets("data").Cells(i, 8) & Right(Worksheets(2).Cells(3, 1), 10)
Worksheets(2).Cells(5, 1) = Left(Worksheets(2).Cells(5, 1), 9) & Worksheets("data").Cells(i, 6) & Right(Worksheets(2).Cells(5, 1), 10)
Worksheets(2).Cells(6, 1) = Left(Worksheets(2).Cells(6, 1), 18) & Worksheets("data").Cells(i, 3) & Right(Worksheets(2).Cells(6, 1), 19)
dra = myPath & Worksheets("data").Cells(i, 1)
Worksheets(2).Activate
ActiveWorkbook.SaveAs Filename:=dra, FileFormat:=xlTextWindows, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
i = i + 1
Loop

End Sub
[/vba]


Сообщение отредактировал Serge_007 - Среда, 06.11.2013, 14:21
 
Ответить
СообщениеМог бы кто нибудь помочь доработать данный код? AndreTM дал совет по другому сохранять.

[vba]
Код
Sub Proc()
Dim i As Integer
Dim nmf As String
Dim myPath As String
Dim dra As String

i = 1
nmf = ActiveWorkbook.Name

Do While Worksheets("Data").Cells(i, 1) <> ""
myPath = ThisWorkbook.Path & "\"
Worksheets(2).Cells(3, 1) = Left(Worksheets(2).Cells(3, 1), 9) & Worksheets("data").Cells(i, 8) & Right(Worksheets(2).Cells(3, 1), 10)
Worksheets(2).Cells(5, 1) = Left(Worksheets(2).Cells(5, 1), 9) & Worksheets("data").Cells(i, 6) & Right(Worksheets(2).Cells(5, 1), 10)
Worksheets(2).Cells(6, 1) = Left(Worksheets(2).Cells(6, 1), 18) & Worksheets("data").Cells(i, 3) & Right(Worksheets(2).Cells(6, 1), 19)
dra = myPath & Worksheets("data").Cells(i, 1)
Worksheets(2).Activate
ActiveWorkbook.SaveAs Filename:=dra, FileFormat:=xlTextWindows, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
i = i + 1
Loop

End Sub
[/vba]
Автор - cobra77777
Дата добавления - 06.11.2013 в 14:18
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удаление кавычек (Макросы Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!