[Griboed0ff]

Пока только получилось сохранить данные в файл csv и после импорта уже разбирать его.

Скрипт

Код:

$datasource = "D:\base_dw.db"
$file = "D:\123.csv" 
[string]$time= "Table_" + [int64](([datetime]::UtcNow)-(get-date "1/1/1970")).TotalSeconds

$comand = @"
drop table qqqqqqq;
create global temporary table qqqqqqq
( ncount number,
  rerror varchar (1000))
  on commit delete rows; 
DECLARE 
rrrr  rta.list.request_id%TYPE;
begin    
   dbms_output.enable (buffer_size => NULL);  
  FOR jj IN (select distinct result_detail from rta.list where system_date>='16.02.2022' and operation_error='ERROR')
  loop 
      select count(result_detail) into rrrr from rta.list where result_detail=jj.result_detail and system_date>='16.02.2022';
      Insert into qqqqqqq(ncount,rerror) values (rrrr,jj.result_detail);
      --dbms_output.put_line(rrrr||'::::'||jj.result_detail);
   end loop;
end;
/
select * from qqqqqqq;
"@


$comand | D:\sqlcl\bin\sql.exe -silent -oci **** | Where {$_} |Out-File $file

    # Создаем столбцы и указываем типы данных
     $table = New-Object system.Data.DataTable 'TestDataTable1'
     $newcol = New-Object system.Data.DataColumn SYSDATETIME,([datetime]); 
     $table.columns.add($newcol)
     $newcol = New-Object system.Data.DataColumn COUNT_ERROR,([int]); 
     $table.columns.add($newcol)
     $newcol = New-Object system.Data.DataColumn BODY_ERROR,([string]); 
     $table.columns.add($newcol)
     
        
     # Записываем инфу в ранее созданные столбцы из CSV
     $csv = Import-CSV $file -delimiter "," 
     $csv | ForEach-Object {
         $row = $table.NewRow()
         $row.SYSDATETIME= (get-date).ToString()  #('HH:00:00')
         $row.COUNT_ERROR= ($_.COUNT_ERROR)
         $row.BODY_ERROR= ($_.BODY_ERROR)
         $table.Rows.Add($row)   }

Invoke-SQLiteBulkCopy -DataTable $table  -DataSource $DataSource  -Table "count_error" -force

Может кто знает как можно обойтись без экспорта и импорта файла? Решить все в теле скрипта?

[Sham]

есть ConvertFrom-Csv. Можно попробовать через переменную.

Код:

$arr = $comand .... (без Out-File)
$csv = $arr -join "`r`n" | ConvertFrom-Csv -Delimiter ','

[Griboed0ff]

Я ранее пробовал ConvertTo-Csv, но всегда получал, что-то типа:

Код:

"Length"
"40"
"291"
"45"
"211"
"301"
"45"
"209"

А до этого пытался сохранить xml и разобрать его, но он не так прост оказался.

$arr -join "`r`n" | ConvertFrom-Csv -Delimiter ',' »

Не понял что за магия с джоинами, но работает! Спасибо!

[Griboed0ff]

Осталось победить кодировку. Она ломается два раза, сначала при выгрузке из одной базы, а потом уже после загрузки в другую. В самом PL/SQL Developer все круто, но консольные утилиты все ломают.
Что изначально:

Код:

ERROR:РТТ:StatusLastOperation=RequestError Подробная ошибка=' ERROR: StatusLastOperation=ErrorReadingStreamException  Exception при чтении ответа сервера РТТ. Exception=System.Net.WebException: The remote server returned an error: (400) Bad Request.
   at System.Net.HttpWebRequest.GetResponse()
   at SecureHttp.SecureHttpRequest.PostHttpData(String url, String postData, X509Certificate2 certificate) in y:\HttpRequest.cs:line 718'

После получения данных в PowerShell:

Код:

ERROR:РњTТ:StatusLastOperation=RequestError Подробная ошибка=' ERROR: StatusLastOperation=ErrorReadingStreamException  Exception РїСЂРё чтении ответа сервера РњРўРЎ. Exception=System.Net.WebException: The remote server returned an error: (400) Bad Request.
   at System.Net.HttpWebRequest.GetResponse()
   at SecureHttp.SecureHttpRequest.PostHttpData(String url, String postData, X509Certificate2 certificate) in y:\HttpRequest.cs:line 718'

В итоговой базе:

Код:

ERROR:╨ЬTТ:StatusLastOperation=RequestError ╨Я╨╛╨┤╤А╨╛╨▒╨╜╨░╤П ╨╛╤И╨╕╨▒╨║╨░=' ERROR: StatusLastOperation=ErrorReadingStreamException  Exception ╨┐╤А╨╕ ╤З╤В╨╡╨╜╨╕╨╕ ╨╛╤В╨▓╨╡╤В╨░ ╤Б╨╡╤А╨▓╨╡╤А╨░ ╨Ь╨в╨б. Exception=System.Net.WebException: The remote server returned an error: (400) Bad Request.
   at System.Net.HttpWebRequest.GetResponse()
   at SecureHttp.SecureHttpRequest.PostHttpData(String url, String postData, X509Certificate2 certificate) in y:\HttpRequest.cs:line 718'

[Griboed0ff]

Кодировка побеждена

Код:

function ConvertTo-Encoding ([string]$From, [string]$To){
	Begin{
		$encFrom = [System.Text.Encoding]::GetEncoding($from)
		$encTo = [System.Text.Encoding]::GetEncoding($to)
	}
	Process{
		$bytes = $encTo.GetBytes($_)
		$bytes = [System.Text.Encoding]::Convert($encFrom, $encTo, $bytes)
		$encTo.GetString($bytes)
	}
}

В ISE

Код:

$arr = $comand ....| ConvertTo-Encoding UTF-8 windows-1251

В консоли

Код:

$arr = $comand ....| ConvertTo-Encoding UTF-8 cp866

[Sham]

что за магия с джоинами »

Сами же пишите, что изначально в массиве неправильный csv. Чтобы правильно распарсить csv-строки по объектам ему нужен исходный текст целиком с переносами строк.