1(* Text Importer *) 2 3Begin["System`Convert`TextDump`"] 4 5 6DataImport[stream_]:= 7 Module[{data}, 8 data = ReadList[stream, String]; 9 {"Data" -> data} 10 ] 11 12LinesImport[stream_]:= 13 Module[{lines}, 14 lines = ReadList[stream, String]; 15 {"Lines" -> lines} 16 ] 17 18PlaintextImport[stream_]:= 19 Module[{plaintext}, 20 plaintext = Read[stream, Record, RecordSeparators -> {}]; 21 {"Plaintext" -> plaintext} 22 ] 23 24StringImport[stream_]:= 25 Module[{string}, 26 string = Read[stream, Record, RecordSeparators -> {}]; 27 {"String" -> string} 28 ] 29 30WordsImport[stream_]:= 31 Module[{words}, 32 words = ReadList[stream, Word]; 33 {"Words" -> words} 34 ] 35 36ImportExport`RegisterImport[ 37 "Text", 38 { 39 "Data" :> System`Convert`TextDump`DataImport, 40 "Lines" :> System`Convert`TextDump`LinesImport, 41 "Plaintext" :> System`Convert`TextDump`PlaintextImport, 42 "String" :> System`Convert`TextDump`StringImport, 43 "Words" :> System`Convert`TextDump`WordsImport, 44 System`Convert`TextDump`PlaintextImport 45 }, 46 {}, 47 AvailableElements -> {"Data", "Lines", "Plaintext", "String", "Words"}, 48 BinaryFormat -> True, 49 DefaultElement -> "Plaintext", 50 FunctionChannels -> {"Streams"}, 51 Options -> {"CharacterEncoding"} 52] 53 54 55End[] 56