Чтение неисправностей в шахматном формате в произвольном формате

Question

Мне нужно прочитать это, используя некоторые указатели и вырезать скобки позже. В течение некоторого времени у меня возникают проблемы с деревом логики, которое сообщает программе перейти на разные уровни и соответствующим образом применить вход.

Вот небольшой образец файла данных:

Уровни 1- 6 старт в положениях 1, 10, 19, 28, 37, и 46, соответственно. enter link description here Вот мой код:

Data peg; 
    infile Pegasus dlm= ' '; 
    length Job_Title $23 Employee_Name $20; 
    input Level & @; 
    if Level="(Level1)" then 
    input @10 Job_Title & @34 Employee_Name & @108 Salary dollar8. ; 
    else if Level="(Level2)" then 
    input @19 Job_Title & Employee_Name & @108 Salary dollar8. ; 
    else if Level="(Level3)" then 
    input @28 Job_Title & Employee_Name & @108 Salary dollar8. ; 
    else if Level="(Level4)" then 
    input @37 Job_Title & Employee_Name & @108 Salary dollar8. ; 
    else if Level="(Level5)" then 
    input @46 Job_Title & Employee_Name & @108 Salary dollar8. ; 
    else if Level="(Level6)" then 
    input @55 Job_Title & Employee_Name & @108 Salary dollar10.; 
run; 

Это то, что происходит, когда я запускаю приведенный выше код.

Answer 1

Ваш код, вероятно, будет работать, если вы удалите опцию DSD в инструкции INFILE и удалите формат из первого INPUT и добавили трейлинг @, чтобы удерживать строку для условно сгенерированного INPUT. Значение Employee_Name будет иметь() вокруг него, но вы можете удалить их позже.

infile Pegasus truncover ; 
length Level $8 Job_Title $23 Employee_Name $20 Salary 8; 
input Level @; 

Но вам не нужны условно сгенерированные операторы INPUT с жестко закодированными местоположениями столбцов. Вы должны просто игнорировать отступ. Прочитайте в строке и проанализируйте значения, основанные на местоположениях ().

Эти данные выглядят достаточно чистыми, чтобы вы могли просто читать поля напрямую с помощью модификатора &, если вы сообщите SAS о том, чтобы обработать () в качестве дополнительных разделителей в дополнение к стандартным разделителям по умолчанию символа пробела.

data want; 
    infile cards dlm='()' truncover; 
    length Level $8 Job_Title $23 Employee_Name $20 Salary 8 ; 
    informat salary comma. ; 
    format salary dollar12. ; 
    input (Level -- Salary) (&) ; 
cards;                                 
(Level1) Chief Executive Officer (Anthony Miller)              $433,800      
     (Level2) Chief Sales Officer (Harry Highpoint)             $243,190      
        (Level3) Vice President (Henri Le Bleu)            $194,885      
          (Level4) Director (Reginald Steiber)           $156,065      
            (Level5) Sales Manager (Dennis Lansberry)        $84,260      
              (Level6) Sales Rep. I (Saunders Briggi)      $26,335      
;  

Вот что первые несколько значений выглядит следующим образом:

Если это не работает, то читать его в переменную и использовать SCAN() разобрать его.

input string $107. salary; 
    level = scan(string,1,'()'); 
    job_title = left(scan(string,2,'()')); 
    employee_name = left(scan(string,3,'()'));