diff options
Diffstat (limited to 'src/stv.adb')
-rw-r--r-- | src/stv.adb | 32 |
1 files changed, 32 insertions, 0 deletions
diff --git a/src/stv.adb b/src/stv.adb new file mode 100644 index 0000000..3297da2 --- /dev/null +++ b/src/stv.adb @@ -0,0 +1,32 @@ + + +with Ada.Text_IO; +with Ada.Strings.Unbounded; +with CSV; + + +procedure STV is + + + package My_CSV is new CSV; + + + Result : My_CSV.CSV_Record; + + +begin + + + Result := My_CSV.Parse_Line ("123,4""56,78""9764,3,""4,5"","); + + + for Item of Result loop + Ada.Text_IO.Put_Line (Ada.Strings.Unbounded.To_String (Item)); + end loop; + + + Ada.Text_IO.Put_Line (My_CSV.Unparse_Record (Result)); + +end STV; + + |