Нельзя преобразовать тип string к real как исправить

begin
  S := 1; // Неизвестное имя S
end.

begin
  var S: integer 
  S := 1;         // Компилятор здесь скажет: Ожидалась ; — имеется ввиду предыдущая строка!
end.

begin
  var S := 1 
  S := S + 1  // Аналогично: проблема на предыдущей строке, а на текущей нет, потому что после неё идёт end.
end.

begin
  var S: integer := 1.3; // Нельзя преобразовать тип real к integer
end.

begin
  var S := 1.3; // Тип real будет выведен компилятором автоматически
end.

begin
  var x := 2;   // x получает тип integer
  var y := 3;   // y получает тип integer
  writeln('Результат сложения равен =, x + y); // Не хватает закрывающего апострофа
end.

begin
  var x := 2;   // x получает тип integer
  var y := 3;   // y получает тип integer
  writeln(x, '+,' y, '=', x+y); // Неверная расстановка запятых и апострофов
end.

begin
  var x: integer;
  read(x); // введите блаблабла и посмотрите, что получится
end.

begin
  var x := ReadInteger;
end.

begin
  var x: integer;
  // Забыли инициализировать или ввести x
  var r := x * x;  // r получает тип integer
  writeln('Квадрат числа ', x, ' = ', r);
end.

begin
  var x := 0;
  var c := 666 div x; // Здесь происходит деление на 0
end.

begin
  writeln(sqrt(-1)); // Корень из отрицательного числа 
end.

Ответы и объяснения 1

Знаете ответ? Поделитесь им!

Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.

У меня есть CSV-файл, который имеет первые 7 столбцов как varchar (строка), в то время как остальные из них имеют тип данных ‘Real’. Я считаю, что .NET-эквивалент Real — Single.

В любом случае, я попробовал следующее на основе предложения:

,(Import-Csv -Path ".Fact.csv") | Write-SqlTableData -ServerInstance "server.db.com" -DatabaseName
 "TestDB" -SchemaName "dbo" -TableName "Fact" -Force

И я получил эту (ожидаемую) ошибку:

Write-SqlTableData : The given value of type String from the data source cannot be converted to type real of the specified target column.

Вопрос в том, как заставить эту утилиту принимать реальные типы данных?

Пример файла csv:

BGSC,MYTrim Code,CC,OC,Ctry Of Prod,Report Year,Scenario,Volume,Gross Revenue ,SA ,ANSR, TM  ,TL,"P and Warranty, others",CM ,Total Variable,Variable Profit , EBIT  
TOTAL_CKD,TOTAL_MODEL_YEAR_AND_GLOBAL_TRIM,COS_AU,4F80, ,2015,Current, -   , -   , -   , -   , -   , -   , -   , -   , -   , -   ," (136,748)"
CXXXXXXXXXX,TOTAL_MODEL_YEAR_AND_GLOBAL_TRIM,COS_AU,4F80, ,2013,Current, -   , -   , -   , -   , -   , -   , -   , -   , -   , -   ," 1,647 "
CXXXXXXXXXX,TOTAL_MODEL_YEAR_AND_GLOBAL_TRIM,COS_AU,4F80, ,2014,Current, -   ," 16,098 ", (0)," 16,098 ", 1 , -   , 8 ," 16,090 ", -   ," 16,090 "," 61,219 "
CXXXXXXXXXX,TOTAL_MODEL_YEAR_AND_GLOBAL_TRIM,COS_AU,4F80, ,2015,Current, -   ," (12,496)", -   ," (12,496)"," (13,386)", -   , -   , 890 , -   , 890 , (192)

Я согласен с Томасом, что ваш CSV-файл находится в очень плохом состоянии. Заголовки окружены пробелами, а также данными. Некоторые числовые значения заключены в квадратные скобки, а другие — нет, и могут включать или не включать символ разделителя тысяч , (в вашей локали).

Я бы предложил кое-что почистить так:

$csv = Import-Csv -Path ".Fact.csv"
# clean up the CSV
# get the header names from the first row, trim whitespaces and surround with quotes
$headers = ($csv[0].PSObject.Properties.Name.Trim()  | ForEach-Object { '"{0}"' -f $_ }) -join ','

# loop through all data rows in the csv. (each row is a PSObject with properties)
$data = foreach($item in $csv) {
    # loop through all properties (fields) in the item
    $row = foreach($field in $item.PSObject.Properties.Value) {
        '"{0}"'-f ($field -replace '[s(),]' -replace '-', '0')
    }

    $row -join ','
}
# recombine the headers with the data
$newCsv = $headers, $data

# output on screen if you like
$newCsv | Format-Table -AutoSize

# save to a new file and use that for writing to the sql table
$newCsv | Export-Csv -Path ".Fact2.csv" -NoTypeInformation
,(Import-Csv -Path ".Fact2.csv") | Write-SqlTableData -ServerInstance "server.db.com" -DatabaseName "TestDB" -SchemaName "dbo" -TableName "Fact" -Force

Вот как будет выглядеть CSV после очистки:

"BGSC","MYTrim Code","CC","OC","Ctry Of Prod","Report Year","Scenario","Volume","Gross Revenue","SA","ANSR","TM","TL","P and Warranty, others","CM","Total Variable","Variable Profit","EBIT"
"TOTAL_CKD","TOTAL_MODEL_YEAR_AND_GLOBAL_TRIM","COS_AU","4F80","","2015","Current","0","0","0","0","0","0","0","0","0","0","136748"
"CXXXXXXXXXX","TOTAL_MODEL_YEAR_AND_GLOBAL_TRIM","COS_AU","4F80","","2013","Current","0","0","0","0","0","0","0","0","0","0","1647"
"CXXXXXXXXXX","TOTAL_MODEL_YEAR_AND_GLOBAL_TRIM","COS_AU","4F80","","2014","Current","0","16098","0","16098","1","0","8","16090","0","16090","61219"
"CXXXXXXXXXX","TOTAL_MODEL_YEAR_AND_GLOBAL_TRIM","COS_AU","4F80","","2015","Current","0","12496","0","12496","13386","0","0","890","0","890","192"

И не должно быть проблем с преобразованием этих значений в тип ‘Real’

^{Файл CSV не определяет тип значения. Он имеет только заголовки и поля данных. При импорте все данные имеют тип String. Write-SqlTableData командлет (пытается) преобразовать эти значения в тип данных, как определено в таблице}

Следующий код преобразует ваши «числа» в целые числа. Я определил функцию для очистки ваших числовых строк. Затем я использовал Select-Object, чтобы переопределить некоторые из ваших свойств:

function Sanitize-String {
    param(
        $String
    )

    if ($String -match '^-s*$') {
        return "0"
    } else {
        return (($String -replace '["s,]', '') -replace '((d+))', '-$1')
    }
}

Import-Csv -Path ".Fact.csv" | Select-Object -Property BGSC, 
    'MYTrim Code', 
    CC, 
    OC, 
    'Ctry Of Prod', 
    'Report Year', 
    Scenario, 
    @{Name='Volume';Expression={[int](Sanitize-String -String $_.Volume)}}, 
    @{Name='Gross Revenue';Expression={[int](Sanitize-String -String $_.'Gross Revenue ')}},
    @{Name='SA';Expression={[int](Sanitize-String -String $_.'SA ')}},
    @{Name='ANSR';Expression={[int](Sanitize-String -String $_.ANSR)}},
    @{Name='TM';Expression={[int](Sanitize-String -String $_.'TM ')}},
    @{Name='TL';Expression={[int](Sanitize-String -String $_.'TL')}},
    @{Name='P and Warranty, others';Expression={[int](Sanitize-String -String $_.'P and Warranty, others')}},
    @{Name='CM';Expression={[int](Sanitize-String -String $_.'CM ')}},
    @{Name='Total Variable';Expression={[int](Sanitize-String -String $_.'Total Variable')}},
    @{Name='Variable Profit';Expression={[int](Sanitize-String -String $_.'Variable Profit ')}},
    @{Name='EBIT';Expression={[int](Sanitize-String -String $_.'EBIT ')}}

Это работает, но, честно говоря, ваш CSV-файл беспорядок. Можно иметь свойства, включая пробелы. Но действительно ли вам нужно (несколько) начальных или конечных пробелов в имени свойства? Кроме того, попытайтесь вставить числа как можно более сырыми. Не вставляйте кавычки, скобки, пробелы вокруг ваших чисел. Вставьте 0 напрямую вместо -.

Более автоматизированный способ:

function Sanitize-String {
    param(
        $String
    )

    if ($String -match '^-s*$') {
        return "0"
    } else {
        return (($String -replace '["s,]', '') -replace '((d+))', '-$1')
    }
}

$csvContent = Import-Csv -Path ".Fact.csv" 

$results = @()
foreach ($line in $csvContent) {
    $i = 0
    $result = New-Object -TypeName psobject
    foreach ($prop in $line.PSObject.Properties) {
        if ($i -lt 7) {
            $result | Add-Member -MemberType $prop.MemberType -Name $prop.Name -Value $prop.Value
        } else {
            $result | Add-Member -MemberType $prop.MemberType -Name $prop.Name -Value ([int](Sanitize-String -String $prop.Value))
        }
        $i++
    }
    $results += $result
}
$results # pipe to your DB for example

Пожалуйста, выделяйте текст программы тегом [сode=pas] … [/сode]. Для этого используйте кнопку [code=pas] в форме ответа или комбобокс, если нужно вставить код на языке, отличном от Дельфи/Паскаля.

Следующие вопросы задаются очень часто, подробно разобраны в FAQ и, поэтому, будут безжалостно удаляться:
1. Преобразовать переменную типа String в тип PChar (PAnsiChar)
2. Как «свернуть» программу в трей.
3. Как «скрыться» от Ctrl + Alt + Del (заблокировать их и т.п.)
4. Как прочитать список файлов, поддиректорий в директории?
5. Как запустить программу/файл?
… (продолжение следует) …

Вопросы, подробно описанные во встроенной справочной системе Delphi, не несут полезной тематической нагрузки, поэтому будут удаляться.
Запрещается создавать темы с просьбой выполнить какую-то работу за автора темы. Форум является средством общения и общего поиска решения. Вашу работу за Вас никто выполнять не будет.

Внимание
Попытки открытия обсуждений реализации вредоносного ПО, включая различные интерпретации спам-ботов, наказывается предупреждением на 30 дней.
Повторная попытка — 60 дней. Последующие попытки бан.
Мат в разделе — бан на три месяца…

Перевод из Real в String

Chow	Сообщ. #2 , 29.09.03, 12:48
	FloatToStr() ?

0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)

0 пользователей: