ProcessText

Získá veškeré texty z procesu

Popis

declare function GetProcessTextCount dll "ActualDocument" (String, Pointer): Integer
declare function GetProcessText dll "ActualDocument" (String, Integer, String, String, String, Pointer): String
declare procedure GetEnter dll "ActualDocument" (string)

script TEST_ProcessTexts (): Boolean
var
  iIdx, iCount: Integer
  sEnter, sDocID, sText, sAllTexts: String
  sOperator, sCreationDate, sCreationTime: String

begin
  // pokud je naplnen ActualDocument lze namisto ID procesu pouzit klicove
  // slovo "ActualDocument" pro aktualni proces
  sDocID := "ENTEAM_00000cy"
  GetEnter(sEnter)
  iCount := GetProcessTextCount(sDocID, ActualDocument) // zjištění počtu textů v procesu

  for iIdx := 0 to iCount - 1 do
    sText := GetProcessText(sDocID, iIdx, sOperator, sCreationDate, sCreationTime, ActualDocument)
    sAllTexts += "[" + sOperator + ", " + sCreationDate + " " + sCreationTime + "]" + sEnter + sText + sEnter
  end

  write(sAllTexts)
end