[Dr. Mabuse]

WinBatch Quick & Dirty Style, ungetestet:

old = FileOpen("C:\DATEN\input.asc", "READ")
new = FileOpen("C:\DATEN\output.qif", "WRITE")

newline = "!Type:Bank"
FileWrite(new, newline)

WHILE @TRUE             
   oldline = FileRead(old)
   IF oldline == "*EOF*" THEN BREAK
   IF StrSub(oldline,27,11) == "Valutadatum" THEN 
      newline = "^"
      FileWrite(new, newline)
      newline = strcat("D",StrSub(oldline, 40, 2),"/",StrSub(oldline, 43, 2),"/",StrSub(oldline, 46, 4))
      FileWrite(new, newline)
   ENDIF
   IF StrSub(oldline,51,6) == "Betrag" THEN 
      newline = strcat("T",StrSub(oldline,58,-1))
      newline = strreplace(newline,"EUR","")
      newline = strreplace(newline," ","")
      newline = strreplace(newline,".","")
      newline = strreplace(newline,",",".")
      FileWrite(new, newline)
   ENDIF
   IF StrSub(oldline,1,12) == "Buchungstext" THEN 
      newline = strcat("P",StrSub(oldline,15,-1))
      FileWrite(new, newline)
   ENDIF
ENDWHILE
FileClose(new)
FileClose(old)