Quantcast
Channel: Windows PowerShell Forum
Viewing all articles
Browse latest Browse all 2314

nochmal :-( es läuft und läuft und läuft ....

$
0
0

Ich finde den Fehler nicht ....

Bitte schaut mal drüber ...

$file = GC "D:\BM-3N_Export_aus_m4\Beispielprozess_BM_3N_Medikamenteneinnahme\Medikamenteneinnahme_SAS_Names.csv"
$delimiter = "|" 
$content = @()
#Einlesen der Spaltenüberschriften
$spalten= ($file[0].split($delimiter) | Select-Object  -First 225 ) -Join "|"
$vorne = ($spalten.split($delimiter) | Select-Object  -First 23) -Join "|"
$hinten = ($spalten.split($delimiter) | Select-Object  -Last 26) -Join "|"
$content += $vorne+$hinten
echo $content
# Durchgehen der Zeilen 
for($i = 1; $i -lt $file.count; $i++){
    #Zaehler für die Medikamente 1-12 am Index 7-23-39 ...
    for ($k=1; $k-le 12; $k++){
    $ind = 7
    $medikament = $file[$i].split($delimiter) | Select-Object -Index $ind
    $ind=$ind+16
        #überprüft ob in Medikament 1-12 ein Eintrag steht , wenn ja dann liest er die Patientendaten 
        if ($medikament -ne ""){
            $patnr = $file[$i].split($delimiter) | Select-Object -Index 0
            $dok = $file[$i].split($delimiter) | Select-Object -Index 1
            $cont = $file[$i].split($delimiter) | Select-Object -Index 2
            $erfas = $file[$i].split($delimiter) | Select-Object -Index 3
            $erfas_cont = $file[$i].split($delimiter) | Select-Object -Index 4
            $cont_ind = $file[$i].split($delimiter) | Select-Object -Index 5
            $kein_med = $file[$i].split($delimiter) | Select-Object -Index 6
            $content += "$patnr | $dok | $cont | $erfas | $erfas_cont | $cont_ind | $kein_med|" 
            for($j=7; $j -le 199; ){
                $med_name = $file[$i].split($delimiter) | Select-Object -Index $j
                $j++
                $med_wirk = $file[$i].split($delimiter) | Select-Object -Index $j
                $j++
                $med_darr = $file[$i].split($delimiter) | Select-Object -Index $j
                $j++
                $med_darr_txt = $file[$i].split($delimiter) | Select-Object -Index $j
                $j++ 
                $med_dos = $file[$i].split($delimiter) | Select-Object -Index $j
                $j++
                $med_einz_dos = $file[$i].split($delimiter) | Select-Object -Index $j
                $j++ 
                $med_einh_sonst = $file[$i].split($delimiter) | Select-Object -Index $j
                $j++
                $med_freq = $file[$i].split($delimiter) | Select-Object -Index $j
                $j++
                $med_freq_einh = $file[$i].split($delimiter) | Select-Object -Index $j
                $j++
                $med_freq_sonst = $file[$i].split($delimiter) | Select-Object -Index $j
                $j++
                $Med_start_day = $file[$i].split($delimiter) | Select-Object -Index $j
                $j++
                $Med_start_mon = $file[$i].split($delimiter) | Select-Object -Index $j
                $j++
                $Med_start_year = $file[$i].split($delimiter) | Select-Object -Index $j
                $j++
                $Med_start_hour = $file[$i].split($delimiter) | Select-Object -Index $j
                $j++
                $Med_start_min = $file[$i].split($delimiter) | Select-Object -Index $j
                $j++
                $Med_start_dat = $file[$i].split($delimiter) | Select-Object -Index $j
                $j++ 
      $content += "$med_name | $med_wirk | $med_darr | $med_darr_txt | $med_dos | $med_einz_dos |$med_einh_sonst| $med_freq | $med_freq_einh |$med_freq_sonst |
      $Med_start_day | $Med_start_mon | $Med_start_year|$Med_start_hour| $Med_start_min| $Med_start_dat"     
            } 
            }else{
            $patnr = $file[$i].split($delimiter) | Select-Object -Index 0
            $dok = $file[$i].split($delimiter) | Select-Object -Index 1
            $cont = $file[$i].split($delimiter) | Select-Object -Index 2
            $erfas = $file[$i].split($delimiter) | Select-Object -Index 3
            $erfas_cont = $file[$i].split($delimiter) | Select-Object -Index 4
            $cont_ind = $file[$i].split($delimiter) | Select-Object -Index 5
            $kein_med = $file[$i].split($delimiter) | Select-Object -Index 6
            $content += "$patnr | $dok | $cont | $erfas | $erfas_cont | $cont_ind | $kein_med|" 
            } 
        }
    } 
echo $content
$content | Out-File D:\BM-3N_Export_aus_m4\Beispielprozess_BM_3N_Medikamenteneinnahme\Medis_tauschen.csv  


Viewing all articles
Browse latest Browse all 2314


<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>