drakut,
  set filename = "blabla.csv"
  set stream = ##class(%Stream.FileCharacter).%New()
  set stream.StreamFormatWrite = 0
  set status=stream.LinkToFile(filename)    
  if $$$ISOK(status) {
    do  {
      set str = $ZSTRIP($ZSTRIP(stream.ReadLine(,.status),"<>W"),"<>C") quit:$$$ISERR(status)  
      if $extract(str,1) = "#" {continue  } /// Комментарии
      if str = "" {continue  }
        
      set str = $replace(str,"""","")
        
      set strlist = $listfromstring(str,";")            
          
    }while ('stream.AtEnd)
  }
  set stream = "" Модератор: поправил код

только prevstr там конечно же нет, забыл убрать