I copied the contents of this script into the scratch window of JHS and ran
it and the grid works just fine there as well as in GTK
fd=: 0 : 0
NB. a \t 1 \t 2 \t 3
NB. b \t \t 5 \t 6
NB. c \t 7 \t \t 9
NB. d \t 10 \t 11 \t 12
NB. \t 13 \t 14 \t 15
)
[fd2=:fd rplc '\t \t';'\t NA \t'
[fd3=:fd2 rplc 'NB. \t';'NB. <NA> \t'
[fd4=:fd3 rplc '\t';TAB
[fd5=:fd4 rplc 'NB.';'x',TAB
[fd6=:('12345')(I.'x' = fd5) } fd5
load'grid'
grid >cut &.> (<;._2) fd6
2012/11/11 Björn Helgason <[email protected]>
> fd=:'mytestfile.txt' NB. TAB text file
> NB. a \t 1 \t 2 \t 3
> NB. b \t \t 5 \t 6
> NB. c \t 7 \t \t 9
> NB. d \t 10 \t 11 \t 12
> NB. \t 13 \t 14 \t 15
>
> 1 a 1 2 3
> 2 b NA 5 6
> 3 c 7 NA 9
> 4 d 10 11 12
> 5 <NA> 13 14 15
>
>
> fd=: 0 : 0
> NB. a \t 1 \t 2 \t 3
> NB. b \t \t 5 \t 6
> NB. c \t 7 \t \t 9
> NB. d \t 10 \t 11 \t 12
> NB. \t 13 \t 14 \t 15
> )
>
> [fd2=:fd rplc '\t \t';'\t NA \t'
> NB. a \t 1 \t 2 \t 3
> NB. b \t NA \t 5 \t 6
> NB. c \t 7 \t NA \t 9
> NB. d \t 10 \t 11 \t 12
> NB. \t 13 \t 14 \t 15
>
> [fd3=:fd2 rplc 'NB. \t';'NB. <NA> \t'
> NB. a \t 1 \t 2 \t 3
> NB. b \t NA \t 5 \t 6
> NB. c \t 7 \t NA \t 9
> NB. d \t 10 \t 11 \t 12
> NB. <NA> \t 13 \t 14 \t 15
>
> [fd4=:fd3 rplc '\t';TAB
> NB. a 1 2 3
> NB. b NA 5 6
> NB. c 7 NA 9
> NB. d 10 11 12
> NB. <NA> 13 14 15
>
> [fd5=:fd4 rplc 'NB.';'x',TAB
> x a 1 2 3
> x b NA 5 6
> x c 7 NA 9
> x d 10 11 12
> x <NA> 13 14 15
>
> [fd6=:('12345')(I.'x' = fd5) } fd5
> 1 a 1 2 3
> 2 b NA 5 6
> 3 c 7 NA 9
> 4 d 10 11 12
> 5 <NA> 13 14 15
>
>
>
>
> >cut &.> (<;._2) fd6
> ┌──┬────┬─┬──┬─┬──┬─┬──┐
> │1 │a │ │1 │ │2 │ │3 │
> ├──┼────┼─┼──┼─┼──┼─┼──┤
> │2 │b │ │NA│ │5 │ │6 │
> ├──┼────┼─┼──┼─┼──┼─┼──┤
> │3 │c │ │7 │ │NA│ │9 │
> ├──┼────┼─┼──┼─┼──┼─┼──┤
> │4 │d │ │10│ │11│ │12│
> ├──┼────┼─┼──┼─┼──┼─┼──┤
> │5 │<NA>│ │13│ │14│ │15│
> └──┴────┴─┴──┴─┴──┴─┴──┘
>
> 2012/11/7 kamakura <[email protected]>
>
>> Hi
>>
>> I would like to know J's manipulation for reading text file.
>>
>> fd=:'mytestfile.txt' NB. TAB text file
>> NB. a \t 1 \t 2 \t 3
>> NB. b \t \t 5 \t 6
>> NB. c \t 7 \t \t 9
>> NB. d \t 10 \t 11 \t 12
>> NB. \t 13 \t 14 \t 15
>>
>> fd2=:'mytestfile.csv' NB. CSV test file
>>
>> load'files misc'
>> freads fd2
>> a,1,2,3
>> b,,5,6
>> c,7,,9
>> d,10,11,12
>> ,13,14,15
>>
>>
>> freadr fd ;0 1
>> a 1 2 3
>>
>> freadr fd ;1 1
>> b 5 6
>>
>> freadr fd ;2 1
>> 7 9
>> d
>> freadr fd ;3 1
>> 10 11 1
>> freadr fd ;4 1
>>
>> 13 14
>>
>> The 3rd and 4th rows are read differently. I expect that the following
>> line will come out.
>>
>> freadr fd ;2 1
>> c 7 9
>>
>>
>>
>> u=:'m' fread fd
>> u
>> a 1 2 3
>> b 5 6
>> c 7 9
>> d 10 11 12
>> 13 14 15
>>
>> TAB chop "1 u
>> +--+--+-----+----+
>> |a |1 |2 |3 |
>> +--+--+-----+----+
>> |b |5 |6 | |
>> +--+--+-----+----+
>> |c |7 | |9 |
>> +--+--+-----+----+
>> |d |10|11 |12 |
>> +--+--+-----+----+
>> |13|14|15 | |
>> +--+--+-----+----+
>>
>>
>> How can I get the following table?
>>
>> +--+--+-----+----+
>> |a |1 |2 |3 |
>> +--+--+-----+----+
>> |b |NA|5 |6 |
>> +--+--+-----+----+
>> |c |7 |9 |NA |
>> +--+--+-----+----+
>> |d |10|11 |12 |
>> +--+--+-----+----+
>> |NA|13|14 |15 |
>> +--+--+-----+----+
>>
>> R reads this text file as follows:
>>
>> > u=read.table("mytestfile.txt",header=F,na.strings="",sep="\t")
>> > u
>> V1 V2 V3 V4
>> 1 a 1 2 3
>> 2 b NA 5 6
>> 3 c 7 NA 9
>> 4 d 10 11 12
>> 5 <NA> 13 14 15
>>
>> Do you have any convenient utility function for reading text files?
>>
>>
>>
>> +++++++++++++++++++++++++++++
>> Toshinari Kamakura
>>
>> Chuo University
>> 1-13-27 Kasuga
>> Bunkyo-ku
>> Tokyo 112-8551, Japan
>> ++++++++++++++++++++++++++++++
>>
>>
>>
>> ----------------------------------------------------------------------
>> For information about J forums see http://www.jsoftware.com/forums.htm
>>
>
>
>
> --
> Björn Helgason, Verkfræðingur
> Fornustekkum II
> 781 Hornafirði,
> t-póst: [email protected]
> gsm: +3546985532
> twitter: @flugfiskur
> http://groups.google.com/group/J-Programming
>
>
> Tæknikunnátta höndlar hið flókna, sköpunargáfa er meistari einfaldleikans
>
> góður kennari getur stigið á tær án þess að glansinn fari af skónum
> /|_ .-----------------------------------.
> ,' .\ / | Með léttri lund verður |
> ,--' _,' | Dagurinn í dag |
> / / | Enn betri en gærdagurinn |
> ( -. | `-----------------------------------'
> | ) | (\_ _/)
> (`-. '--.) (='.'=) ♖♘♗♕♔♙
> `. )----' (")_(") ☃☠
>
--
Björn Helgason, Verkfræðingur
Fornustekkum II
781 Hornafirði,
t-póst: [email protected]
gsm: +3546985532
twitter: @flugfiskur
http://groups.google.com/group/J-Programming
Tæknikunnátta höndlar hið flókna, sköpunargáfa er meistari einfaldleikans
góður kennari getur stigið á tær án þess að glansinn fari af skónum
/|_ .-----------------------------------.
,' .\ / | Með léttri lund verður |
,--' _,' | Dagurinn í dag |
/ / | Enn betri en gærdagurinn |
( -. | `-----------------------------------'
| ) | (\_ _/)
(`-. '--.) (='.'=) ♖♘♗♕♔♙
`. )----' (")_(") ☃☠
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
