Работа с Excel и Thunderbird - VBA

Узнай цену своей работы

Формулировка задачи:

Есть код, который отправляет конкретный файл, конкретному человеку (или нескольким)
Как сделать так, чтоб отправлялось больше 1 файла и увеличить длину переменной "stroka".

Решение задачи: «Работа с Excel и Thunderbird»

textual
Листинг программы
'Определение максимального количества аргументов методом эксперимента (подбор половинным делением)
option explicit
 
Const CriticalMAX = 10000
 
dim Home, oStream, Str, nCheck, curMAX, curMIN, nOK
 
Home = WScript.ScriptFullName
Home = left(Home, instrrev(Home, "\") - 1)
 
nCheck = CriticalMAX
curMAX = CriticalMAX
curMIN = 0
 
Do
 
  set oStream = Createobject("WScript.Shell").Exec(Home & "\MaxArgTest.cmd" & replace(string(nCheck, "A"), "A", " A"))
  Str = oStream.StdOut.ReadAll()
  set oStream = Nothing
 
  if len(Str) - (nCheck - 1) - 2 <> nCheck Then ' - (nCheck - 1) ' кол-во пробелов между аргументами ' - 2 'CrLf
    curMAX = nCheck - 1
  else
    nOK = nCheck
    curMIN = nCheck + 1
  end if
 
  nCheck = (curMAX - curMIN) \ 2 + curMIN
 
  msgbox "MIN = " & cstr(curMIN) & "   " & "MAX = " & cstr(curMAX) & "    " & "Len of String = " & cstr(len(Str)) & _
vbcrlf & "Now Checking " & cstr(nCheck)
 
Loop until curMIN >= curMAX
 
msgbox "MAX possible is " & cstr(nOK)

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

15   голосов , оценка 4.2 из 5