Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Владимир Сергеев
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
замена части текста в ячейке по маске
 
#
21.05.2015 18:41:51
Да, извиняюсь работает, но все одно это суровый костыль, не факт что заменены будут все пробелы  и именно те что нужно, как бы с регулярками это сделать?
("text":") от сюда
("}) до сюда
все что внутри проверить на содержание кавычек и если есть заменить на пустоту
Изменено: Владимир Сергеев - 21.05.2015 19:05:26
 
Перейти    
замена части текста в ячейке по маске
 
#
21.05.2015 17:51:48
не работает с кавычками "найти"
Изменено: Владимир Сергеев - 21.05.2015 17:53:38 (вставьте в ячейку пример и проверьте , может я чтото не так делаю)
 
Перейти    
замена части текста в ячейке по маске
 
#
21.05.2015 17:04:10
Здравствуйте, у меня следующий вопрос.
есть много строк JSON след вида
{"pages":[{"objects":[{"id":"company_name","obj_type":"text","text":"Автосервис "Милор" "},{"id":"company_adres","obj_type":"text","text":"Ул. Генерала Тюленева 2С1"},{"id":"phone","obj_type":"text","text":"89653561815"}]}}

и мне нужно делать проверку на содержание не нужных кавычек, в полях(нодах) text и если таковые есть удалять
"text":"Автосервис "Милор" "
должно остаться
"text":"Автосервис Милор "

полей text в строке несколько(динамическое колво)
Изменено: Владимир Сергеев - 21.05.2015 17:06:24
 
Перейти    
Разборка параметров url
 
#
26.02.2014 13:12:53
Спасибо  egonomist   ,  Kuzmich буду определяться,
пока склонен к варианту от Kuzmich
 
Перейти    
Разборка параметров url
 
#
26.02.2014 07:37:06
пока решил вот так, но не уверен что столько split'ов это правильно, и еще если искомый параметр отсутствует выдается ошибка error 2042, как сделать чтобы просто возвращалось Cells(4, 3)=""
Код
Sub spliteItem()
Dim strValue, strParam, page, value, param, a, SplitURL, SplitRavno, Element, _
ArrayValue, ArrayParam, OneElement, OneElementStr, strParamResults  As String
Dim strParamText, strParamPage As String
Dim i, countAmp As Integer
a = "http://www.softodrom.ru/%D0%9F%D0%BE%D0%B8%D1%81%D0%BA/?text=portable&where=soft" _
& "&results=50&soft_index=descr&news_index=descr&games_index=descr&blogs_index=description&page=1"
    countAmp = Len(a) - Len(Replace(a, "&", ""))
    SplitURL = Split(a, "&")  

' извлекаем 1 параметр (text=portable)

    OneElement = Split(SplitURL(0), "?")
    OneElementStr = OneElement(1)  

' приводим к общему виду и создаем первые элементы массивов
    SplitRavno = Split(OneElementStr, "=") 
    ArrayParam = SplitRavno(0)
    ArrayValue = SplitRavno(1)  

'формируем массивы (пареметры и значения)
For i = 1 To countAmp
    Element = SplitURL(i)
        SplitRavno = Split(Element, "=")
        

    ArrayParam = ArrayParam & "," & SplitRavno(0)
    ArrayValue = ArrayValue & "," & SplitRavno(1)

Next i
param = ArrayParam
value = ArrayValue
strValue = Split(value, ",")
strParam = Split(param, ",")
strParamPage = Application.match("page", strParam, 0)
Cells(4, 2) = strValue(strParamPage - 1)
strParamText = Application.match("text", strParam, 0)
Cells(4, 3) = strValue(strParamText - 1)
strParamResults = Application.match("results", strParam, 0)
Cells(4, 4) = strValue(strParamResults - 1)

End Sub
Изменено: Владимир Сергеев - 26.02.2014 08:10:42
 
Перейти    
Разборка параметров url
 
#
25.02.2014 20:59:31
есть url и нужно выдернуть из него некоторые параметры, допустим: text, page и results
как я думаю сначала сплитом разбить на параметры со значением
Код
SplitURL= _ 
 Split("http://www.softodrom.ru/%D0%9F%D0%BE%D0%B8%D1%81%D0%BA/?text=portable&where=soft _ 
&results=50&soft_index=descr&news_index=descr&games_index=descr&blogs_index=description&page=1", "&"  )
а потом затем разбить на два массива, один с именами параметров, другой со значениями
Код
param=" where,results,soft_index,news_index,games_index,blogs_index,page"
value="soft,50,descr,descr,descr,description,1"
и в итоге для каждого нужного параметра применить конструкцию
Код
Dim strValue, strParam, page, value, param  As String
param = "where,results,soft_index,news_index,games_index,blogs_index,page"
value = "soft,50,descr,descr,descr,description,1"
strValue = Split(value, ",")
strParam = Split(param, ",")
strParam = Application.match("page", strParam, 0)
page = strValue(strParam - 1)
Sheets("Обработаные запросы").Cells(4, 2) = page
Но вот как создать два этих массива (param и value ) и убрать " http://www.softodrom.ru/%D0%9F%D0%BE%D0%B8%D1%81%D0%BA/?" ?
Или есть способ проще?

P.S.
некоторые искомые параметры могут отсутствовать, а ненужные могут добавляться или наоборот исчезать, порядок тоже неизвестен
Изменено: Владимир Сергеев - 25.02.2014 21:14:26
 
Перейти    
разборка массива из ячейки
 
#
24.02.2014 16:03:29
Спасибо Казанскому, выкрутился вот так:
Код
Sub spliteItem()
Dim str, flag, Razmer, r  As String
Dim countRazm, i As Integer
countRazm = (Len(Sheets("Готовые товары").Cells(7, 14)) _
- Len(Replace(Sheets("Готовые товары").Cells(7, 14), "Размер", ""))) / Len("Размер")
str = Split(Sheets("Готовые товары").Cells(7, 15), ",")
flag = Split(Sheets("Готовые товары").Cells(7, 14), ",")
flag = Application.match("Размер", flag, 0)
Razmer = ""
For i = 0 To countRazm - 1
If i = 0 Then
r = ""
Else
r = ","
End If
Razmer = Razmer & r & str(flag + i - 1)
Sheets("Обработаные запросы").Cells(4, 2) = Razmer
Next i
End Sub
Если будут поправки приму с благодарностью
 
Перейти    
разборка массива из ячейки
 
#
24.02.2014 14:32:52
Цитата
Казанский пишет:
Они всегда идут подряд (блоком), или между true могут быть false?
всегда в таком порядке сначала месево из ненужной информации(false)  потом цвет, потом размер (цв.,разм- true)
 
Перейти    
разборка массива из ячейки
 
#
24.02.2014 14:04:35
Здравствуйте, у меня следующий вопрос:
Существуют ячейки с массивами данных, каждому элементу массива из 1 ячейки соответствует элементы с таким же порядковым номером в 2х других.
Размерность массива изменяется(но соответствие элементов остается), цветам и размеру(яч (1,1))соответствует запись true в яч(1,3) всегда, остальным элементам(кроме цв и размера) всегда false
Пример:

cells(1,1)=место,блюдо,форма,время,птицы,цвет,цвет.размер,размер,размер,размер,размер
cells(1,2)=первое,второе,куб,весна,грачи,Черный,Синий,S,M,L,XL,XXL
cells(1,3)=false,false,false,false,false,false,true,true,true,true,true,true,true

Как создать ячейки cells(1,4)=Черный,Синий и cells(1,5)=S,M,L,XL,XXL
то есть в одной цвета, в др. размеры, остальное опускаем
 
Перейти    
библиотека cDataSet json, не могу распарсить json
 
#
28.12.2013 10:26:48
существует библиотека cDataSet для эксель позволяющая парсить джсон без проблем(скачать можно здесь http://ramblings.mcpher.com/Home/excelquirks/downloads), но у меня не типичный вид :

Код
 [
{
"href":"ХХХ",
"title":"AAA",
"atpanel":"OOO",
"img":"PPP"

}
,
{
"href":"NNN",
"title":"JJJ",
"atpanel":"KKK",
"img":"TTT"

}  
 
........ ..... 
........  
,
{
"href":"RRR",
"title":"LLL",
"atpanel":"BBB",
"img":"MMM"

}  
]
представленные там готовые примеры не подходят.
если у кого то есть опыт работы с этой библиотекой, то буду благодарен за помощь в решении этой задачи
 
Перейти    
импорт данных из множества xml файлов
 
#
19.04.2012 19:44:57
кроме игоря никого не интересует?
 
Перейти    
импорт данных из множества xml файлов
 
#
19.04.2012 19:11:36
предложение в силе
 
Перейти    
импорт данных из множества xml файлов
 
#
19.04.2012 17:52:48
{login=EducatedFool}  
сбросьте свое предложение на icq 634866275
 
Перейти    
импорт данных из множества xml файлов
 
#
19.04.2012 17:48:44
все xml в один файл xls
 
Перейти    
импорт данных из множества xml файлов
 
#
19.04.2012 17:16:45
Есть несколько xml файлов(файлы будут заменяться на новые-это карточки товара)  
необходимо все данные из файлов перенести в таблицы excel  
вознаграждение 500руб на киви или сотовый
 
Перейти    
Перемещение ячеек по условию
 
#
10.04.2012 12:21:07
-=mk=-  
Спасибо огромное, отлично работает
 
Перейти    
Перемещение ячеек по условию
 
#
10.04.2012 02:24:25
Спасибо за ответ.  
но только макросом, там по другому слишком много возни.
 
Перейти    
Перемещение ячеек по условию
 
#
09.04.2012 23:39:28
Здравствуйте  
у  меня неразрешимая задача в таблице есть ключевое поле и в нем есть попарные совпадения необходимо из одной строки с одинаковым id перенести(добавить) две ячейки к другой строке с таким же id, а строку удалить
 
Перейти    
объединение столбцов
 
#
18.09.2010 20:07:31
вобщем справился таким вот образом  
Sub Test()  
Dim iCell As Range  
Dim totalrows, totalcolumns  
totalrows = ActiveSheet.UsedRange.Rows.Count  
totalcolumns = ActiveSheet.UsedRange.Columns.Count  
Dim x As Long  
x = 1  
For Each iCell In Range(Cells(1, 1), Cells(totalrows, totalcolumns))  
Cells(x, totalcolumns + 1) = iCell  
x = x + 1  
Next  
End Sub  
только вот если ячейка пуста, он ее вносит в новый столбец, может какоето условие поставить; если ячейка пуста не вносить в объединенный столбец, или после окончания формирования столбца удалить пустые ячейки
 
Перейти    
объединение столбцов
 
#
18.09.2010 18:36:04
у меня задача объединить столбцы в один  
есть диапазон A1:C3  
на выходе нужно получить новый лист с диапазоном  
A1:A9  
диапазон может изменяться A1:M20, A1:L43 и т.д.,количество записей в столбцах тоже может быть разным пример в стобце A 20 записей, в B 34, в С 48 и т.д.
 
Перейти    
Страницы: 1
Наверх