Правила форума
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
if match(lfile,'[\/:*?"<>|]',Match:Regular)
loop ch1#=1 to len(checkstr)
loop ch2#=1 to len(clip(lfile))
if lfile[ch2#]=checkstr[ch1#]
lfile[ch2#]='_'
end
end
end
end
XLSX:Normalize PROCEDURE(STRING In_,BYTE valchar_)
CODE
l#=len(In_)
loop i#=1 to l#
if instring(In_[i#],'/\[]:*?')
In_[i#]=chr(valchar_)
end
end
if l#>31
return In_[1:31]
end
return In_
XLSX:Normalize PROCEDURE(STRING In_,BYTE valchar_)
CODE
l#=len(In_)
if l# > 31 Then
l# = 31
end
loop i#=1 to l#
if instring(In_[i#],'/\[]:*?')
In_[i#]=chr(valchar_)
end
end
return In_[1:l#]
Последний раз редактировалось Губин Игорь 19 Февраль 2019, 11:02, всего редактировалось 1 раз.
Это я только кажусь дураком! На самом деле я полный идиот!
XLSX:Normalize PROCEDURE(STRING In_,BYTE valchar_)
CODE
l#=len(In_)
if l# > 31
l# = 31
end
if instring(chr(valchar_),'/\[]:*?')
valchar_ = 95
end
loop i#=1 to l#
if instring(In_[i#],'/\[]:*?')
In_[i#]=chr(valchar_)
end
end
return In_[1:l#]
Последний раз редактировалось Губин Игорь 19 Февраль 2019, 11:01, всего редактировалось 1 раз.
Это я только кажусь дураком! На самом деле я полный идиот!
По преданию, Рафаэль Санти (XVI век) сам делал копии своих знаменитых полотен с мадоннами и продавал
их за бесценок … просто, что бы другие живописцы в желании подзаработать не исказили настоящее искусство …
Игорь Столяров писал(а): ↑18 Февраль 2019, 17:00По преданию, Рафаэль Санти (XVI век) сам делал копии своих знаменитых полотен с мадоннами и продавал
их за бесценок … просто, что бы другие живописцы в желании подзаработать не исказили настоящее искусство …
Я, в данной ситуации, предпочитаю считать себя реинкарнацией Хана Ван Мегина
Это я только кажусь дураком! На самом деле я полный идиот!
Что в общем-то и сделал: экспорт разделителей, чисел по формату, картинок вписанных в квадрат с отступами,
установка высоты строки для объединённых ячеек по длине текста и т.д.
Но есть тонкая грань - что действительно нужно в базовом классе, а что локальные надуманные доделки …
Кстати, а в последних версиях ms office файлики нормально читаются? Я полгода назад одному товарищу отправлял, у него вылезали разные сообщения об ошибках, хотя открыть он смог. При этом в опенах все открывалось без проблем. Какое там состояние на сегодня?