;; ============================================ ;; Script: convert-csv.r ;; downloaded from: www.REBOL.org ;; on: 28-Mar-2024 ;; at: 10:39:04.267629 UTC ;; owner: bohdan [script library member who can ;; update this script] ;; ============================================ ;; =================================================== ;; email address(es) have been munged to protect ;; them from spam harvesters. ;; If you were logged on the email addresses would not ;; be munged ;; =================================================== REBOL [ Title: "Comma-Seperated-Values to REBOL converter" Date: 16-Jun-1999 File: %convert-csv.r Author: "Bohdan Lechnowsky" Purpose: "^/ Convert CSV files to REBOL blocks^/ " Email: %bo--rebol--com library: [ level: 'intermediate platform: none type: 'tool domain: [file-handling DB text-processing] tested-under: none support: none license: none see-also: none ] ] csv: read/lines to-file ask "Filename to convert from CSV: " block: make block! 100 headings: parse/all first csv "," foreach line next csv [append block parse/all line ","] save to-file ask "Filename to save to: " head insert/only block headings