Ограничение в OLE

[GuestSS]

Clarion 5.5EE
Доброго времени суток всем!
Есть проблема и ничего не лезет в голову
имеется поле Cstring(1000), так вот при попытке вывода этого поля в word генерит ошибку "слишком длинный строковый параметр"
Посоветуйте как обойти?

[Larion]

Пользуюсь шаблонами SoftMasters при работе c Word
функция Replace имеет ограничение 255 символов
пришлось написать свой метод в классе MSWordClass.ReplaceM
работаю через CLIPBOARD при этом ограничений по размеру нет.
Размер ограничен объемом CLIPBOARD.

нужно добавить эти строки в файл abword.clw

Код: Выделить всё

MSWordClass.ReplaceM               PROCEDURE(STRING Search,STRING Replace)
    CODE
    SETCLIPBOARD(Replace)
    SELF.Search(Search,False,True,False,False,False,False,False,False)
    SELF.Paste()

а в файл abword.inc в описание класса MSWordClass добавить эту строку.

Код: Выделить всё

    ReplaceM              PROCEDURE(STRING Search,STRING Replace),BYTE,VIRTUAL

шаблоны SoftMasters были ftp.

[GuestSS]

Замечательно! То что надо!
а Вы не могли бы скинуть шаблон на samarin26@gmail.com
Заранее спасибо!

[GuestSS]

Все не надо, разобрался без шаблона
вот кусок текста может кому понадобится

feqOLE=create(0,CREATE:Ole)
feqOLE{Prop:Create}='Word.Application'
feqOLE{Prop:ReportException}=TRUE
feqOLE{'Visible'}=1
feqOLE{'Documents.Open("'&clip(loc:WordFileName)&'")'}

loc:FindStr='[метка]'
setclipboard(ПОЛЕ)
feqOLE{'Selection.Find.ClearFormatting'}
feqOLE{'Selection.Find.Replacement.ClearFormatting'}
feqOLE{'Application.Selection.Find.Execute("'&clip(loc:FindStr)&'", , , , , , 1, 1, ,)'}
feqOLE{'Application.Selection.Paste("'&clip(clipboard())&'")'}
...

[Игорь Столяров]

feqOLE{'Application.Selection.Find.Execute("'&clip(loc:FindStr)&'", , , , , , 1, 1, ,)'}

Столкнулся с следующей проблемой.
Если loc:FindStr = 'Название ООО Свисток' - то все работает правильно.
Если loc:FindStr = 'Название ООО "Свисток"' - то операция не работает и это правильно, т.к. кавычки не отрабатываются в строке.

Здесь видимо нужно использовать какой-то символ для замены кавычек на макроподстановку или код, что то вроде {34} или %34% вместо кавычек,
только вот какой ее формат при экспорте в MS Word ? Никто не сталкивался с таким вопросом ?

Заранее спасибо !

[Ал]

что-то такое было - надо рыться, а так помнится - в одном случае заменял на какие-то другие символы - типа ` или ``, причем при выводе в ОО и в ворд отображ по разному; в другом случае просто можно было обойтисьт без xls - делал вывод в cvs/xml и проч.
ps
както так

Код: Выделить всё

CheckNameProduct routine ! обработка " кавычек для OpenOff
 data
ii  long
Simvol  string(1)
 code
 if instring('"',VRD:NameProduct) ! есть хотя бы одни 1 " в наименовании
  loop ii = 1 to len(clip(VRD:NameProduct)) !1024
    Simvol = sub(VRD:NameProduct,ii,1)
    if Simvol = '"'
      VRD:NameProduct[ii] = ''''
      VRD:NameProduct = sub(VRD:NameProduct,1,ii-1)&''''''&sub(VRD:NameProduct,ii+1,1024)
    else
      VRD:NameProduct[ii] = Simvol
    .
    if ~instring('"',VRD:NameProduct) ! есть ещё " в наименовании
      break ! нет - выходим
    .
  .
!  stop(VRD:NameProduct)
 .
 exit

[morkovin]

Здесь видимо нужно использовать какой-то символ для замены кавычек на макроподстановку или код, что то вроде {34} или %34% вместо кавычек,

При работе с MS Word через OfficeTemplates (SoftMaster) всегда использую функцию QuoteOT( входит в OfficeTemplates)
Можно посмотреть и из VSA_STR.CLW (free шаблоны от Vincento Sorrenta, кажется):

Код: Выделить всё

vsStringClass.WrapQuotes             PROCEDURE(*STRING pText)
   CODE
    SELF.StripQuotes(pText)
    IF INSTRING(' ',(pText & ' '),1)<LEN(CLIP(pText)) OR INSTRING('/',pText,1) OR INSTRING('\',pText,1) OR INSTRING('|',pText,1) OR INSTRING(',',pText,1)
       pText = '"' & CLIP(LEFT(pText)) & '"'
       RETURN
    END
    IF NOT(pText)
       pText= '""'
       RETURN
    END

vsStringClass.StripQuotes            PROCEDURE(*STRING pText)
   CODE
   IF pText='""'
      pText=''
      RETURN
   END
   IF SUB(pText,1,1)='"' AND SUB(pText,LEN(CLIP(pText)),1)='"' ! There must be a matching quote
      pText=SUB(pText,2,LEN(CLIP(pText))-2) 
   END

[Игорь Столяров]

К чему эта функция ? Ну убрали кавычки и проставили кавычки. Сущность не меняется - при экспорте в MS Word кавычки приводят к сбою экспорта ...

[morkovin]

При работе с MS Word через OfficeTemplates (SoftMaster) всегда использую функцию QuoteOT

Если не использую QuoteOT - то действительно 100% сбой.

[Игорь Столяров]

А если использовать, то не выводятся кавычки ... ?

[kreator]

Я использую двойные кавычки. Типа loc:FindStr = 'Название ООО ""Свисток""'. Ессно, такую строку надо сделать до вставки в Word. Сейчас подниму текст, выложу.

[Игорь Столяров]

Все супер ! Мне текст не нужен - я его и сам за 5 сек. напишу, мне нужна идея или технология ...
Огромное спасибо ! Это то, что нужно, все работает как и требуется ...

[kreator]

Вдогонку. Из хелпа.

Value parameters are passed to OLE/OCX objects as strings (except Boolean parameters). Since OLE/OCX objects are supposed to cast their input to the correct data types using a VARIANT mechanism (similar to Clarion's data type conversion), this allows the most compatibility with the least work. Any string which requires a double quote mark (") needs to include two ("").