Есть таблица с данными, можно ли сгруппировать так чтобы на выходе получилось как в текстовом файле? Например есть заголовок Art and entertainment из первого столбца, надо чтобы он был в кавычках с новой строки и под ним данные из второго столбца как в файле текстовом. Далее смотрим следующий столбец в нем Art теперь заголовок в кавычках и с новой строки должен быть и под ним данные из третьего столбца от Art and culture до Sculpture, и так далее.
Есть таблица с данными, можно ли сгруппировать так чтобы на выходе получилось как в текстовом файле? Например есть заголовок Art and entertainment из первого столбца, надо чтобы он был в кавычках с новой строки и под ним данные из второго столбца как в файле текстовом. Далее смотрим следующий столбец в нем Art теперь заголовок в кавычках и с новой строки должен быть и под ним данные из третьего столбца от Art and culture до Sculpture, и так далее.Beazehuginn
Beazehuginn, а хде директивы #NAME, #INDEX_LANGUAGE, #CONTENTS_LANGUAGE ? или вы собираетесь подключать к основному файлу через #INCLUDE? Хде закрывашка [/m]?
а Notepad++ показывает, что файл нашпигован нуль-символами через каждый символ
есть не совсем адекватная мысль по поводу трансформации с помощью xslt, но есть сомнения, что это возможно
Beazehuginn, а хде директивы #NAME, #INDEX_LANGUAGE, #CONTENTS_LANGUAGE ? или вы собираетесь подключать к основному файлу через #INCLUDE? Хде закрывашка [/m]?
krosav4ig, для словарей пользуюсь Golgendict. [/m] не обязательно, хотя по хорошему можно добавить. Я собираюсь добавит это все в основной словарь, где по последнему заголовку, например Art and entertainment - Art - Art and culture будет уже переходить к списку слов. Но для того чтобы просто посмотреть что получается в итоге достаточно подключить как словарь dsl файл который приложен, имена и тп не нужны.
а Notepad++ показывает, что файл нашпигован нуль-символами через каждый символ
Для открытия текстовых файлов я пользуюсь AkelPad, EmEditor. Там нолей никаких нет.
Pelena, нужно сгруппировать данные в Excel, чтобы потом в итоге получился такой текстовый файл, который нужен программе.
krosav4ig, для словарей пользуюсь Golgendict. [/m] не обязательно, хотя по хорошему можно добавить. Я собираюсь добавит это все в основной словарь, где по последнему заголовку, например Art and entertainment - Art - Art and culture будет уже переходить к списку слов. Но для того чтобы просто посмотреть что получается в итоге достаточно подключить как словарь dsl файл который приложен, имена и тп не нужны.
Вам скриншот экрана Notepad++ прислать или так поверите? Если я не проверяю, я так и пишу.
Действительно? На что спорим, что я сходу найду не меньше пяти Ваших постов, не соответствующих этому утверждению? А если как следует поищу, то значительно больше. По-моему первый и единственный раз "я так и пишу" был в посте http://www.excelworld.ru/forum/10-40243-266753-16-1545905352
А у меня в Фотошопе или Аксе тоже не открывается, прислать скрин? Однако Lingvo я покупать не бросился почему-то.
Вам скриншот экрана Notepad++ прислать или так поверите? Если я не проверяю, я так и пишу.
Действительно? На что спорим, что я сходу найду не меньше пяти Ваших постов, не соответствующих этому утверждению? А если как следует поищу, то значительно больше. По-моему первый и единственный раз "я так и пишу" был в посте http://www.excelworld.ru/forum/10-40243-266753-16-1545905352_Boroda_
Это по-Вашему, Вы ж все мои псто не просматривали А так, если интересно, искать по фразе "но это не точно" (хотя тут могут быть ложноположительные результаты) и "не провер"
На что спорим, что я сходу найду не меньше пяти Ваших постов, не соответствующих этому утверждению?
Ну как минимум один я и сам найду. А на что — не знаю, разве что на "бе-бе-бе " ибо на минус в репу с Вами спорить стрёмно, где моя и где Ваша И да, обещание прислать скрин относилось к "не проверял". Или Вам и в самом деле о многом говорит результат открытия файла в Notepad++ и Вы понимаете, как его совместить с Экселем? Тогда без иронии — поделитесь, надеюсь снова узнать от Вас что-то новое. И вообще, Александр, давайте не будем ругаться под праздник
Это по-Вашему, Вы ж все мои псто не просматривали А так, если интересно, искать по фразе "но это не точно" (хотя тут могут быть ложноположительные результаты) и "не провер"
На что спорим, что я сходу найду не меньше пяти Ваших постов, не соответствующих этому утверждению?
Ну как минимум один я и сам найду. А на что — не знаю, разве что на "бе-бе-бе " ибо на минус в репу с Вами спорить стрёмно, где моя и где Ваша И да, обещание прислать скрин относилось к "не проверял". Или Вам и в самом деле о многом говорит результат открытия файла в Notepad++ и Вы понимаете, как его совместить с Экселем? Тогда без иронии — поделитесь, надеюсь снова узнать от Вас что-то новое. И вообще, Александр, давайте не будем ругаться под праздник StoTisteg
Интуитивно понятный код - это когда интуитивно понятно, что это код.
Вы не поверите, но я, впрочем, как и остальные модераторы, просматриваю не только Ваши, но вообще ВСЕ посты на форуме. Без исключения. Именно поэтому и уверен в своих словах
Вы не поверите, но я, впрочем, как и остальные модераторы, просматриваю не только Ваши, но вообще ВСЕ посты на форуме. Без исключения. Именно поэтому и уверен в своих словах
With ActiveSheet.UsedRange fs.WriteText Chr(9) & "[m1][b][c red]<<""" & .Cells(1) & """>>[/c][/b]" & vbCrLf For Each col In .Resize(, .Columns.Count - 1).Columns
Select Case col.Column Case 1: sColor = "green" Case 2: sColor = "dodgerblue" End Select 'col.Column
For Each ar In col.SpecialCells(2, 23).Areas Set c = IIf(ar.Cells.Count = 1, ar, ar.End(xlDown)(1, 1)) If HasChild(c) Then fs.WriteText vbCrLf & """" & c & """" & vbCrLf For Each c1 In Range(c(2, 2), c.End(xlDown).Offset(-1, 1)).SpecialCells(2, 23).Cells fs.WriteText Chr(9) & "[m1][b][c " & IIf(HasChild(c1), sColor, _ "blueviolet") & "]<<""" & c1 & """>>[/c][/b]" & vbCrLf Next c1 End If 'HasChild(c) Next ar, col End With 'ActiveSheet.UsedRange
fs.SaveToFile sFilePath, 2: fs.Close: Set fs = Nothing End Sub Private Function HasChild(r As Range) As Boolean HasChild = IsEmpty(r(2)) And Not IsEmpty(r(2, 2)) End Function
[/vba]
на выходных написал, да как-то выложить забыл, на счет кодировки не уверен
[vba]
Код
Sub ExportDSL() Dim col As Range, ar As Range, c As Range, c1 As Range Dim fs As Object, i&, sColor$, sFilePath$
With ActiveSheet.UsedRange fs.WriteText Chr(9) & "[m1][b][c red]<<""" & .Cells(1) & """>>[/c][/b]" & vbCrLf For Each col In .Resize(, .Columns.Count - 1).Columns
Select Case col.Column Case 1: sColor = "green" Case 2: sColor = "dodgerblue" End Select 'col.Column
For Each ar In col.SpecialCells(2, 23).Areas Set c = IIf(ar.Cells.Count = 1, ar, ar.End(xlDown)(1, 1)) If HasChild(c) Then fs.WriteText vbCrLf & """" & c & """" & vbCrLf For Each c1 In Range(c(2, 2), c.End(xlDown).Offset(-1, 1)).SpecialCells(2, 23).Cells fs.WriteText Chr(9) & "[m1][b][c " & IIf(HasChild(c1), sColor, _ "blueviolet") & "]<<""" & c1 & """>>[/c][/b]" & vbCrLf Next c1 End If 'HasChild(c) Next ar, col End With 'ActiveSheet.UsedRange
fs.SaveToFile sFilePath, 2: fs.Close: Set fs = Nothing End Sub Private Function HasChild(r As Range) As Boolean HasChild = IsEmpty(r(2)) And Not IsEmpty(r(2, 2)) End Function