Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Как найти все возможные варианты суммирования и вычитания, Как найти все возможные варианты суммирования и вычитания нескольких цифр
 
Здравствуйте!

Есть числа 110,110,110,110,10,10,10,10. Нужно между этими числами произвести Все Возможные сложения и вычитания, хоть со всеми, хоть с двумя, с тремя.....

Например  110-110-110+110-10+10+10+10
Или 110-10-10
Или 110+10
Или 110-10-10-10-10

Должно вроде получиться 256 вариантов, если нужны результаты только положительные.
VBA: Применить макрос (обработка не важна) для всех файлов в папке
 
Здравствуйте!
Есть рабочий скрипт. При запуске скрипт требует выбрать файл *.PlayReport, указываем файл, файл преобразуется  в Exel таблицу и открывается в Exel . Затем в ручную сохраняем файл с таким же именем.
Как доработать скрипт, чтобы сразу выбрать несколько  файлов *.PlayReport и без открывания в Exel, все преобразованное  сохранялось в ту же папку. В примере - файл air1_20200501.PlayReport после преобразования сохраняется в  air1_20200501.xlsx
[ Закрыто] Обработать несколько файлов, Обработать несколько файлов скриптом за один раз
 
Здравствуйте!
Есть рабочий скрипт. При запуске скрипт требует выбрать файл *.PlayReport, указываем файл, файл преобразуется  в Exel таблицу и открывается в Exel . Затем в ручную сохраняем файл с таким же именем.
Как доработать скрипт, чтобы сразу выбрать несколько  файлов *.PlayReport и без открывания в Exel, все преобразованное  сохранялось в ту же папку. В примере - файл air1_20200501.PlayReport после преобразования сохраняется в  air1_20200501.xlsx
Скрипт для получения содержимого ячейки.
 
Здравствуйте!

В программе используется скирпт
Код
Dim strIn
Dim strOut
Dim NumRow
Dim NumCol
Dim i
Dim j
Dim MyArrays()
Dim objExcel

Sub doWork(Data,Index)
 Select Case Index
  Case "doOpen"
    Set objExcel = CreateObject("Excel.Application")
    Set objWorkbook = objExcel.Workbooks.Open (Data)
     For i=1 To objWorkbook.Sheets.Count                  'Листы начинаются не с "0", а с "1"
      sys.onRead objWorkbook.Sheets(i).Name               'Выводим имя наружу 
     Next
    sys.onRead 0  
    sys.onOpen 1
  Case "doRead"                               'На вход подаётся строка, содержащая (разделитель -- точка с запятой): НомерСтроки;НомерКолонки;
    strIn = CStr(Data)
    i = InStr(1,strIn,";",0)
    NumRow = CLng(Mid(strIn, 1, i-1))
    NumCol = CLng(Mid(strIn,i+1))
    strOut = objExcel.ActiveSheet.Cells(NumRow, NumCol).Value
    sys.onCells strOut  
  'Считывание таблицы с xls
  Case "doReads"
    strOut = ""
    NumRow = 1
    NumCol = 5
    
    Do While Not IsEmpty(objExcel.ActiveSheet.Cells(NumRow, 1).Value)
       Do While Not IsEmpty(objExcel.ActiveSheet.Cells(NumRow, NumCol).Value)
          strOut = strOut & objExcel.ActiveSheet.Cells(NumRow, NumCol).Value & ";"
          NumCol = NumCol + 1
       Loop
       strOut = strOut & vbCrLf
       NumCol = 5
       NumRow = NumRow + 1
    Loop
                   
    sys.onReads strOut 
    'конец Считывание таблицы xls
        
  Case "doWrite"                              'На вход подаётся строка, содержащая (разделитель -- точка с запятой): НомерСтроки;НомерКолонки;ЗаписываемоеЗначение
    strIn = CStr(Data)
    i = InStr(1,strIn,";",0)
    NumRow = CLng(Mid(strIn, 1, i-1))
    j = InStr(i+1,strIn,";",0)
    NumCol = CLng(Mid(strIn, i+1, j-i-1))
    strIn =  Mid(strIn, j+1)
    objExcel.ActiveSheet.Cells(NumRow, NumCol).Value=strIn
    sys.onRead strIn
   Case "doSheet"                              'На вход подаётся строка, содержащая имя Листа
    objExcel.Sheets(Data).Select
    objExcel.ActiveSheet.Cells(1, 1).Select 
   Case "doArray"
     REDIM MyArrays(10)
     MyArrays = Sys.MyArray
     'MyArrays.Add(666)
     'MyArrays.Set(0, 123)
     'sys.onArray(MyArrays.Count)
     'sys.onArray(MyArrays.Get(0))
     'DIM IPArray()
     'REDIM IPArray(ip1.Count)
     'For I = 0 To (ip1.Count - 1)
     'IPArray(I) = ip1.Get(I)
     'Next I 
   Case "doGetColorIndex"
    strIn = CStr(Data)
    i = InStr(1,strIn,";",0)
    NumRow = CLng(Mid(strIn, 1, i-1))
    NumCol = CLng(Mid(strIn,i+1))
    strOut = CStr(objExcel.ActiveSheet.Cells(NumRow, NumCol).Font.ColorIndex)+";"_
           + CStr(objExcel.ActiveSheet.Cells(NumRow, NumCol).Interior.ColorIndex)
    sys.onGetColorIndex strOut   
   Case "doClose"
    objExcel.Quit
    Set objExcel = Nothing
    sys.onOpen 0    
 End Select

End Sub


Как поправить скрипт чтобы вывести ячейку с сохранением формата значения. Вывести то, что видно когда файл откроешь в Exel? Например в ячейке 00:11:46:03 а через скрипт выводится 114603.  
Округление времени по секундам до целых
 
Здравствуйте! Как то обсуждалась тема ссылка. Из файла air1_20160917.PlayReport получаем файл air1_20160917.xlsx. В столбце С время отображается с округлением, десятые доли секунд не показываются. Как сделать в скрипте округление по секундам до целых, чтобы в столбце С было время уже с округленными секундами?  
Из лог файла в таблицу.
 
Подскажите пожалуйста как сделать?  
Есть лог файл. Из него необходимо в  таблицу вытащить данные. Данные нужны только из строк начинающихся с <item type="Movie".  
В 1й колонке имя файла без пути и расширения.  
Во 2й колонке время выхода файла (time=) с округлением до целых секунд в большую сторону  
В 3й колонке продолжительность файла (duration=)  с округлением до целых секунд в большую сторону  
В 4й колонке (если только error="1" ) реальная продолжительность (realDuration=)с округлением до целых секунд в большую сторону. Если error="0" то ничего.
Страницы: 1
Наверх