版塊導航: 正在加載中...

登錄注冊

應《網(wǎng)絡安全法》要求，自2017年10月1日起，未進行實名認證將不得使用互聯(lián)網(wǎng)跟帖服務。為保障您的帳號能夠正常使用，請盡快對帳號進行手機號驗證，感謝您的理解與支持！

24小時熱門版塊排行榜

返回列表

淡藍幽香

新蟲 (初入文壇)

應助: 0 (幼兒園)
金幣: 243.5
散金: 1
帖子: 24
在線: 16.8小時
蟲號: 644125
注冊: 2008-11-03
專業(yè): 生物信息學

[求助] 程序求解：重復的相同數(shù)據(jù)用同樣的代碼取代

小女有如下數(shù)據(jù)，片段截取如下（每列用了制表符分隔）
Col1 Col2 Col3 Col4 Col5 Col6
1 G L 0 0 1 0
1 EL 0 0 2 0
1 (5)W S G L EL 2 0
1 G S 0 0 1 0
1 A S 0 0 2 0
1 (10)A D G S A S 2 0
1 (65)B B D (10)A D 2 0
1 M M K (4)M K (65)B 2 0

2 J K 0 0 1 0
2 A 0 0 2 0
2 P R 0 0 1 0
2 A R 0 0 2 0
2 (59)M Z J K A 2 0
2 (30)M R (8)A R (19)L R 1 0

其中第一列表示組號，希望得到如下的結(jié)果：
1. 在每一組里，不帶有數(shù)字的字母項，用符號表示。其中具有相同字母的項目（沒有數(shù)字的字母列），用相同符號表示，如NA1，如第一行G L————NA1，第三行的G L也是NA1，但是第二行的EL為NA2
2.同一組里，帶有數(shù)字的字母項，字母刪除，只留下數(shù)字

自己嘗試的寫了下，發(fā)現(xiàn)，亂成了一團，緊急求助各位達人，先謝過啦！！！

回復此樓

» 猜你喜歡

312求調(diào)劑已經(jīng)有5人回復
網(wǎng)絡空間安全0839招調(diào)劑已經(jīng)有4人回復
329求調(diào)劑已經(jīng)有3人回復
【2026考研調(diào)劑】制藥工程 284分求相關專業(yè)調(diào)劑名額已經(jīng)有8人回復
085602 289分求調(diào)劑已經(jīng)有7人回復
材料學碩333求調(diào)劑已經(jīng)有4人回復
各位老師您好：本人初試372分已經(jīng)有6人回復
334分一志愿武理-080500 材料求調(diào)劑已經(jīng)有3人回復
0854電子信息求調(diào)劑已經(jīng)有9人回復
347求調(diào)劑已經(jīng)有4人回復

» 本主題相關價值貼推薦，對您同樣有幫助:

解決問題的技巧【轉(zhuǎn)載】【已搜索無重復】已經(jīng)有111人回復
【分享】筆記本電池一段時間后不好用的解決辦法【已搜索無重復】已經(jīng)有5人回復
matlab代碼求解水動力學方程看不懂，請高手指點已經(jīng)有4人回復
【分享】RedCrab ：免費功能極其強大的科學計算器幫你求解高數(shù)難題【已搜索無重復】已經(jīng)有36人回復
用spss處理有重復的正交試驗數(shù)據(jù)，怎么做？已經(jīng)有3人回復
【轉(zhuǎn)貼】材料領域常用的數(shù)據(jù)庫【已搜索無重復】已經(jīng)有22人回復

1樓 2012-07-06 23:25:28

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

jjdg

版主 (知名作家)

程序強帖: 9
應助: 223 (大學生)
貴賓: 3.926
金幣: 51005.2
紅花: 238
帖子: 7227
在線: 474.2小時
蟲號: 27000
注冊: 2003-10-21
專業(yè): 藥物代謝與藥物動力學
管轄: 程序語言

還是不太清楚你的意圖

贊一下

回復此樓

努力學習！以正當途徑！獲得需要的知識！

2樓2012-07-07 01:15:44

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

淡藍幽香

新蟲 (初入文壇)

應助: 0 (幼兒園)
金幣: 243.5
散金: 1
帖子: 24
在線: 16.8小時
蟲號: 644125
注冊: 2008-11-03
專業(yè): 生物信息學

引用回帖:

2樓: Originally posted by jjdg at 2012-07-07 01:15:44
還是不太清楚你的意圖

恩，就是啊，數(shù)據(jù)中第一列表示組號，每個組都希望做到以下的事情，如組一
1.有字母沒有數(shù)字的項目，都替換成NAi，其中i 的取值根據(jù)情況而定. 如第一個碰見的字母組合是G L，那么自然是NA 1，而第一行和第三行的字母相同，都是 G L，那么就用相同的NA1表示，第二行EL則用NA2表示，依次類推。

2.有字母，有數(shù)字的項目，只留下數(shù)字，不要字母。

還有哪里不清楚么？

贊一下

回復此樓

3樓2012-07-07 05:35:57

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

jackie1179

木蟲 (正式寫手)

應助: 11 (小學生)
金幣: 1929.2
紅花: 1
帖子: 460
在線: 47.2小時
蟲號: 1119284
注冊: 2010-10-11
專業(yè): 生物信息學

【答案】應助回帖

感謝參與，應助指數(shù) +1

給你寫了個perl腳本，希望能夠幫到你。
用法：perl ./pro.pl input_file output_file
貼上代碼:
#!/usr/bin/perl -w

unless(@ARGV) {
die "Arguments not enough!$!";
}
$in = $ARGV[0];
$out = $ARGV[1];
open(IN,"$in"

|| die "Cannot open this file!$!";
open(OUT,">$out"

|| die "Cannot write to this file!$!";
undef %string;
$cnt = 0;
while( {
  chomp;
  @array = split /\t/;
  foreach $ele(@array) {
if($ele lt '0' || $ele gt '9') {
   print $ele,"\t";
   if($ele =~ /$(\d+)$/) {
      $ele = $1;
   } else {
      if(!defined $string{$ele}) {

      $cnt++;
      $string{$ele} = $cnt;
      $ele = "NA" . $cnt;
      } else {
      $ele = "NA" . $string{$ele};
      }

   }

}
print OUT "$ele\t";
  }
  print OUT "\n";

}

close IN;
close OUT;

贊一下

回復此樓

4樓2012-07-07 10:08:13

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

xioooli

金蟲 (小有名氣)

程序強帖: 1
應助: 2 (幼兒園)
金幣: 744
帖子: 82
在線: 33小時
蟲號: 940951
注冊: 2010-01-11
性別: GG
專業(yè): 藥化

【答案】應助回帖

感謝參與，應助指數(shù) +1

好吧，來個python版的，使用：
python2 /path/to/your/datafile

CODE:

import sys, re

d = {}

l = []

n = 1

regx0 = re.compile(r'\(([0-9]+)\)[A-Z]+')

regx1 = re.compile(r'[A-Z]+')

repl = lambda g: g.groups()[0]

for line in open(sys.argv[1], 'r'):

    tmpl = []

    if line.startswith('Col'):

        l.append(line.strip())

        continue

    line = regx0.sub(repl, line)

    for i in line.strip().split('\t'):

        if regx1.match(i):

            if not i in d.keys():

                d[i] = 'NA%s' %n

                n += 1

            tmpl.append(d[i])

        else:

            tmpl.append(i)

    l.append('\t'.join(tmpl))

print '\n'.join(l)

贊一下

回復此樓

5樓2012-07-07 11:10:28

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

xioooli

金蟲 (小有名氣)

程序強帖: 1
應助: 2 (幼兒園)
金幣: 744
帖子: 82
在線: 33小時
蟲號: 940951
注冊: 2010-01-11
性別: GG
專業(yè): 藥化

【答案】應助回帖

使用寫錯啦。

保存成xxx.py

然后 python2 xxx.py /path/to/your/datafile

贊一下

回復此樓

6樓2012-07-07 11:13:51

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

anntoy

木蟲 (著名寫手)

應助: 40 (小學生)
金幣: 2318
散金: 962
紅花: 1
沙發(fā): 14
帖子: 1989
在線: 136.3小時
蟲號: 1271536
注冊: 2011-04-20

用c寫了個，第一行那個標題處理不了

CODE:

#include 

#include 

#include 

#define INBUFSIZE 1024

#define OUTBUFSIZE 100

#define MAXLET 50

#define MAXINDEX 50

char table[MAXINDEX][MAXLET];

int maxindex;

int isAllNum(char *p)

{

        while(*p >= '0' && *p <= '9') {

                p++;

        }

        return *p == '\t' || !*p;

}

int isAllLetter(char *p)

{

        while((*p >= 'a' && *p <= 'z')||(*p >= 'A' && *p <= 'Z')) {

                p++;

        }

        return *p == '\t' || !*p;

}

int kickLetter(char *in)

{

        int i = 0;

        char *out = in;

        while(*in){

                if(*in >= '0' && *in <= '9') {

                        *out = *in;

                        out++;

                        i++;

                }

                in++;

        }

        *(out++) = '\t';

        *out = 0;

        return ++i;

}

int getcol(char *in, char *out)

{

        int i = 0;

        while(*(in + i) != '\t' && *(in + i)) {

                *(out + i) = *(in + i);

                i++;

        }        

        *(out + i) = 0;

        return i == 0 ? 0 : i + !!*(in + i);

}

int getIndex(char *p)

{

        int i = maxindex;

        while(i--)

                if(!strcmp(table[i], p))

                        return i;

        maxindex++;

        sprintf(table[maxindex], p);

        return maxindex;

}

int main()

{

        char *inbuf, *outbuf;

        int group = 0, ret, ret2;

        FILE * fpi, *fpo;

        fpi = fopen("in","r");

        fpo = fopen("out","w");

        inbuf = malloc(INBUFSIZE);

        outbuf = malloc(OUTBUFSIZE);

        while(fgets(inbuf, INBUFSIZE, fpi)){

                if(*inbuf == '\n'){

                        fwrite("\n", 1, 1, fpo);

                        continue;

                }                        

                if(inbuf[strlen(inbuf) - 1] == '\t')

                        inbuf[strlen(inbuf) - 1] = 0;

                ret = getcol(inbuf, outbuf);

                if(group != atoi(outbuf)){

                        group = atoi(outbuf);

                        maxindex = 0;

                }

                fwrite(inbuf, ret, 1, fpo);

                while(ret2 = getcol(inbuf + ret, outbuf)){

                        ret += ret2;

                        if(isAllNum(outbuf)){

                                ret2 = sprintf(outbuf, "%s\t", outbuf);

                                fwrite(outbuf, ret2, 1, fpo);

                        } else if(isAllLetter(outbuf)) {

                                ret2 = sprintf(outbuf, "NA%d\t", getIndex(outbuf));

                                fwrite(outbuf, ret2, 1, fpo);

                        } else {

                                ret2 = kickLetter(outbuf);

                                fwrite(outbuf, ret2, 1, fpo);

                        }

                }

                fseek(fpo, -1, SEEK_CUR);

                fwrite("\n", 1, 1, fpo);

        }

        fclose(fpi);

        fclose(fpo);

        free(inbuf);

        return 0;

}

贊一下

回復此樓

7樓2012-07-07 12:29:19

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

淡藍幽香

新蟲 (初入文壇)

應助: 0 (幼兒園)
金幣: 243.5
散金: 1
帖子: 24
在線: 16.8小時
蟲號: 644125
注冊: 2008-11-03
專業(yè): 生物信息學

引用回帖:

4樓: Originally posted by jackie1179 at 2012-07-07 10:08:13
給你寫了個perl腳本，希望能夠幫到你。
用法：perl ./pro.pl input_file output_file
貼上代碼:
#!/usr/bin/perl -w

unless(@ARGV) {
die "Arguments not enough!$!";
}
$in = $ARGV;
$ou ...

要怎么支付你金幣：）

贊一下

回復此樓

8樓2012-07-09 05:38:44

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

jackie1179

木蟲 (正式寫手)

應助: 11 (小學生)
金幣: 1929.2
紅花: 1
帖子: 460
在線: 47.2小時
蟲號: 1119284
注冊: 2010-10-11
專業(yè): 生物信息學

不給也行，我也不知道怎么給金幣！

贊一下

回復此樓

9樓2012-07-09 23:08:16

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

jackie1179

木蟲 (正式寫手)

應助: 11 (小學生)
金幣: 1929.2
紅花: 1
帖子: 460
在線: 47.2小時
蟲號: 1119284
注冊: 2010-10-11
專業(yè): 生物信息學

還有提醒你一下，正如6樓所說的處理不了第一行標題的問題：

$cnt = 0;

while( {
在此兩行代碼間加入：; 這樣一行即可.

贊一下

回復此樓

10樓2012-07-09 23:12:12

已閱回復此樓關注TA 給TA發(fā)消息送TA紅花 TA的回帖

相關版塊跳轉(zhuǎn) 我要訂閱樓主淡藍幽香的主題更新

返回列表

最具人氣熱帖推薦 [查看全部]		作者	回/看	最后發(fā)表

[考研] 359求調(diào)劑 +3	王了個楠 2026-03-25	3/150	2026-03-25 12:50 by Dyhoer
[考研] 0854電子信息求調(diào)劑 324 +4	Promise-jyl 2026-03-23	4/200	2026-03-25 11:36 by Sugarlight
[考研] 材料調(diào)劑 +3	iwinso 2026-03-23	3/150	2026-03-25 11:29 by greychen00
[考研] 271求調(diào)劑 +4	生如夏花… 2026-03-22	4/200	2026-03-25 11:25 by userper
[考研] 求調(diào)劑323材料與化工 +4	1124361 2026-03-24	4/200	2026-03-25 11:19 by shulmg
[考研] 289求調(diào)劑 +10	碩星赴 2026-03-23	10/500	2026-03-25 10:11 by userper
[考研] 0703化學求調(diào)劑 +6	奶油草莓. 2026-03-22	7/350	2026-03-25 10:00 by shangxh
[考研] 289材料與化工（085600）B區(qū)求調(diào)劑 +4	這么名字咋樣 2026-03-22	5/250	2026-03-25 08:20 by mx.yue
[考研] 材料學求調(diào)劑 +6	Stella_Yao 2026-03-20	6/300	2026-03-25 00:37 by baoball
[考研] 招08考數(shù)學 +7	laoshidan 2026-03-20	16/800	2026-03-24 17:52 by 烏拉兒山脈
[考研] 一志愿華東理工大學081700，初試分數(shù)271 +5	kotoko_ik 2026-03-23	6/300	2026-03-24 10:29 by 學術搬磚er
[基金申請] 請教下大家 2026年國家基金申請是雙盲審嗎？ +3	lishucheng1 2026-03-22	5/250	2026-03-24 08:22 by gltch
[考研] 一志愿國科過程所081700，274求調(diào)劑 +3	三水研0水立方 2026-03-23	3/150	2026-03-23 23:11 by MajorWen
[考研] 化學308分求調(diào)劑 +3	你好明天你好 2026-03-23	3/150	2026-03-23 20:11 by macy2011
[考研] 276求調(diào)劑 +3	YNRYG 2026-03-21	4/200	2026-03-23 08:31 by 醉在風里
[考研] 一志愿華中農(nóng)業(yè)071010，總分320求調(diào)劑 +5	困困困困坤坤 2026-03-20	6/300	2026-03-22 17:41 by hxsm
[考研] 266求調(diào)劑 +3	哇呼哼呼哼 2026-03-20	3/150	2026-03-21 16:46 by barlinike
[考研] 一志愿蘇州大學材料求調(diào)劑，總分315（英一） +5	sbdksD 2026-03-19	5/250	2026-03-20 22:10 by luoyongfeng
[考研] 0856調(diào)劑，是學校就去 +8	sllhht 2026-03-19	9/450	2026-03-20 14:25 by 無懈可擊111
[考研] 一志愿福大288有機化學，求調(diào)劑 +3	小木蟲200408204 2026-03-18	3/150	2026-03-19 13:31 by houyaoxu

24小時熱門版塊排行榜

[求助] 程序求解：重復的相同數(shù)據(jù)用同樣的代碼取代

» 猜你喜歡

» 本主題相關價值貼推薦，對您同樣有幫助:

【答案】應助回帖

【答案】應助回帖

【答案】應助回帖

» 本主題相關價值貼推薦，對您同樣有幫助: