求助：如何将数据域中一列转为一行？

无奈何

[quote]原帖由 "li2002"][/quote 发表：

也谢谢你的回答，可惜我在XP下没有 shell环境。

wmjie

原帖由 "无奈何" 发表：

也谢谢你的回答，可惜我在XP下没有 shell环境。

cygwin :em11:  :em11:  :em11:  :em11:

faintblue

#!/usr/local/bin/ruby

a=gets.chomp.split(/\s*,\s*/)
b=gets.chomp.split(/\s*,\s*/)

a.each_index { |i| print a," ",b,"\n" }

无奈何

原帖由 "wmjie" 发表：

cygwin :em11:  :em11:  :em11:  :em11:

试了几次安装，可我不知道都该安装些什么，并且速度慢的要命，先搜搜了解一番再尝试。

li2002

再用awk写一个:

1. 
   
2. awk -F, '{for(i=1;i<=NF;i++)print NR,i,$i}' a|sort -k2n -k1n|awk 'BEGIN{l=0}{if(
   
3. $2==l)printf(" %s",$3);else {printf("\n%s",$3);l++}}END{printf("\n")}'|sed '1d'
   

复制代码

cygwin很好安装啊,下个非在线安装的

无奈何

原帖由 "wayy2008" 发表：


xp下不用这么麻烦吧?
把源文件转到Excel表格里,然后复制粘贴一下就可以了,
只不过粘贴的时候用选择性粘贴,然后选转置就OK了.

谢谢各位的回答，看来多动脑筋会有很多方法实现的。
我并不是只想手动处理这一个文档。用EmEditor正则表达式替换和列附加粘贴也能很轻松完成。
我是想无干预处理完许多个这样的文本，然后下载这些图片并重命名后分类保存。所以才寻求脚本处理的方式。

wmjie

再来个awk转换的。

1. 
   
2. awk 'BEGIN{FS=",";OFS=","}
   
3.         {for(i=1;i<=NF;i++)
   
4.         {
   
5.                 if(b[i]){b[i]=b[i]OFS$i}
   
6.                 else{b[i]=$i}}
   
7.         }
   
8.     END{
   
9.         for(j=1;j<=i;j++)
   
10.         {
    
11.                 print b[j]
    
12.         }
    
13. }'
    

复制代码

Phoenixingliu

[quote]原帖由 "wmjie"][/quote 发表：



看懂了些,不过在n的循环里为什么不用FNR而用NR?
NR是已读记录数,觉得逻辑上过不去呢~~~~~