版塊導(dǎo)航: 正在加載中...

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

24小時(shí)熱門(mén)版塊排行榜

返回列表

淡藍(lán)幽香

新蟲(chóng) (初入文壇)

應(yīng)助: 0 (幼兒園)
金幣: 243.5
散金: 1
帖子: 24
在線(xiàn): 16.8小時(shí)
蟲(chóng)號(hào): 644125
注冊(cè): 2008-11-03
專(zhuān)業(yè): 生物信息學(xué)

[求助] 程序求解：重復(fù)的相同數(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

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

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

回復(fù)此樓

» 猜你喜歡

一志愿廈門(mén)大學(xué)化學(xué)學(xué)碩307求調(diào)劑已經(jīng)有4人回復(fù)
材料學(xué)碩297已過(guò)四六級(jí)求調(diào)劑推薦已經(jīng)有13人回復(fù)
一志愿西北大學(xué) 總分282 英語(yǔ)一62 求調(diào)劑已經(jīng)有6人回復(fù)
一志愿西北大學(xué) ，070300化學(xué)學(xué)碩，總分287，雙非一本，求調(diào)劑。已經(jīng)有5人回復(fù)
0856求調(diào)劑已經(jīng)有9人回復(fù)
一志愿南京郵電大學(xué) 288分材料考研求調(diào)劑已經(jīng)有3人回復(fù)
材料與化工304求B區(qū)調(diào)劑已經(jīng)有5人回復(fù)
一志愿北京化工大學(xué)材料與化工（085600）296求調(diào)劑已經(jīng)有5人回復(fù)
275求調(diào)劑已經(jīng)有7人回復(fù)
274求調(diào)劑已經(jīng)有19人回復(fù)

» 本主題相關(guān)價(jià)值貼推薦，對(duì)您同樣有幫助:

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

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

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

jjdg

版主 (知名作家)

程序強(qiáng)帖: 9
應(yīng)助: 223 (大學(xué)生)
貴賓: 3.926
金幣: 51005.2
紅花: 238
帖子: 7227
在線(xiàn): 474.2小時(shí)
蟲(chóng)號(hào): 27000
注冊(cè): 2003-10-21
專(zhuān)業(yè): 藥物代謝與藥物動(dòng)力學(xué)
管轄: 程序語(yǔ)言

還是不太清楚你的意圖

贊一下

回復(fù)此樓

努力學(xué)習(xí)！以正當(dāng)途徑！獲得需要的知識(shí)！

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

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

淡藍(lán)幽香

新蟲(chóng) (初入文壇)

應(yīng)助: 0 (幼兒園)
金幣: 243.5
散金: 1
帖子: 24
在線(xiàn): 16.8小時(shí)
蟲(chóng)號(hào): 644125
注冊(cè): 2008-11-03
專(zhuān)業(yè): 生物信息學(xué)

引用回帖:

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

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

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

還有哪里不清楚么？

贊一下

回復(fù)此樓

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

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

jackie1179

木蟲(chóng) (正式寫(xiě)手)

應(yīng)助: 11 (小學(xué)生)
金幣: 1929.2
紅花: 1
帖子: 460
在線(xiàn): 47.2小時(shí)
蟲(chóng)號(hào): 1119284
注冊(cè): 2010-10-11
專(zhuān)業(yè): 生物信息學(xué)

【答案】應(yīng)助回帖

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

給你寫(xiě)了個(gè)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;

贊一下

回復(fù)此樓

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

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

xioooli

金蟲(chóng) (小有名氣)

程序強(qiáng)帖: 1
應(yīng)助: 2 (幼兒園)
金幣: 744
帖子: 82
在線(xiàn): 33小時(shí)
蟲(chóng)號(hào): 940951
注冊(cè): 2010-01-11
性別: GG
專(zhuān)業(yè): 藥化

【答案】應(yīng)助回帖

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

好吧，來(lái)個(gè)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)

贊一下

回復(fù)此樓

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

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

xioooli

金蟲(chóng) (小有名氣)

程序強(qiáng)帖: 1
應(yīng)助: 2 (幼兒園)
金幣: 744
帖子: 82
在線(xiàn): 33小時(shí)
蟲(chóng)號(hào): 940951
注冊(cè): 2010-01-11
性別: GG
專(zhuān)業(yè): 藥化

【答案】應(yīng)助回帖

使用寫(xiě)錯(cuò)啦。

保存成xxx.py

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

贊一下

回復(fù)此樓

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

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

anntoy

木蟲(chóng) (著名寫(xiě)手)

應(yīng)助: 40 (小學(xué)生)
金幣: 2318
散金: 962
紅花: 1
沙發(fā): 14
帖子: 1989
在線(xiàn): 136.3小時(shí)
蟲(chóng)號(hào): 1271536
注冊(cè): 2011-04-20

用c寫(xiě)了個(gè)，第一行那個(gè)標(biāo)題處理不了

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;

}

贊一下

回復(fù)此樓

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

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

淡藍(lán)幽香

新蟲(chóng) (初入文壇)

應(yīng)助: 0 (幼兒園)
金幣: 243.5
散金: 1
帖子: 24
在線(xiàn): 16.8小時(shí)
蟲(chóng)號(hào): 644125
注冊(cè): 2008-11-03
專(zhuān)業(yè): 生物信息學(xué)

引用回帖:

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

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

要怎么支付你金幣：）

贊一下

回復(fù)此樓

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

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

jackie1179

木蟲(chóng) (正式寫(xiě)手)

應(yīng)助: 11 (小學(xué)生)
金幣: 1929.2
紅花: 1
帖子: 460
在線(xiàn): 47.2小時(shí)
蟲(chóng)號(hào): 1119284
注冊(cè): 2010-10-11
專(zhuān)業(yè): 生物信息學(xué)

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

贊一下

回復(fù)此樓

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

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

jackie1179

木蟲(chóng) (正式寫(xiě)手)

應(yīng)助: 11 (小學(xué)生)
金幣: 1929.2
紅花: 1
帖子: 460
在線(xiàn): 47.2小時(shí)
蟲(chóng)號(hào): 1119284
注冊(cè): 2010-10-11
專(zhuān)業(yè): 生物信息學(xué)

還有提醒你一下，正如6樓所說(shuō)的處理不了第一行標(biāo)題的問(wèn)題：

$cnt = 0;

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

贊一下

回復(fù)此樓

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

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

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

返回列表

普通表情龍兔虎貓

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

[考研] 315分求調(diào)劑 +5	26考研上岸版26 2026-03-26	5/250	2026-03-26 12:11 by laoshidan
[考研] 309求調(diào)劑 +4	gajsj 2026-03-25	5/250	2026-03-26 00:27 by Dyhoer
[考研] 07化學(xué)303求調(diào)劑 +5	睿08 2026-03-25	5/250	2026-03-25 22:46 by 418490947
[考研] 材料求調(diào)劑 +4	.m.. 2026-03-25	4/200	2026-03-25 21:30 by peike
[考研] 招08考數(shù)學(xué) +8	laoshidan 2026-03-20	17/850	2026-03-25 17:52 by 一個(gè)紅太陽(yáng)
[考研] 284求調(diào)劑 +15	Zhao anqi 2026-03-22	15/750	2026-03-25 12:51 by wht0531
[考研] 085601求調(diào)劑總分293英一數(shù)二 +3	鋼鐵大炮 2026-03-24	3/150	2026-03-24 22:03 by bingxueer79
[考研] 化工專(zhuān)碩求調(diào)劑 +3	question挽風(fēng) 2026-03-24	3/150	2026-03-24 18:48 by jhhcooi
[考研] 材料考研調(diào)劑生 +3	黃粱一夢(mèng)千年 2026-03-24	3/150	2026-03-24 17:00 by barlinike
[考研] 材料292調(diào)劑 +8	橘頌思美人 2026-03-23	8/400	2026-03-24 16:33 by laoshidan
[考研] 277分求調(diào)劑，跨調(diào)材料 +3	考研調(diào)劑lxh 2026-03-24	3/150	2026-03-24 13:52 by JourneyLucky
[考研] 環(huán)境學(xué)碩288求調(diào)劑 +8	皮皮皮123456 2026-03-22	8/400	2026-03-23 23:47 by 熱情沙漠
[考研] 一志愿重慶大學(xué)085700資源與環(huán)境，總分308求調(diào)劑 +7	墨墨漠 2026-03-23	8/400	2026-03-23 20:36 by Creta
[考研] 336化工調(diào)劑 +4	王大坦1 2026-03-23	5/250	2026-03-23 18:32 by allen-yin
[考研] 350求調(diào)劑 +6	weudhdk 2026-03-19	6/300	2026-03-23 15:47 by tangyuan0840221
[考研] 接收2026碩士調(diào)劑(學(xué)碩+專(zhuān)碩) +4	allen-yin 2026-03-23	6/300	2026-03-23 15:04 by 汪！？！
[考研] 初試 317 +7	半拉月丙 2026-03-20	7/350	2026-03-21 22:26 by peike
[考研] 一志愿東華大學(xué)控制學(xué)碩320求調(diào)劑 +3	Grand777 2026-03-21	3/150	2026-03-21 19:23 by 簡(jiǎn)之-
[考研] 求調(diào)劑 +3	.m.. 2026-03-21	4/200	2026-03-21 16:25 by barlinike
[考研] 求調(diào)劑 +3	白QF 2026-03-21	3/150	2026-03-21 13:12 by zhukairuo

24小時(shí)熱門(mén)版塊排行榜

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

» 猜你喜歡

» 本主題相關(guān)價(jià)值貼推薦，對(duì)您同樣有幫助:

【答案】應(yīng)助回帖

【答案】應(yīng)助回帖

【答案】應(yīng)助回帖

» 本主題相關(guān)價(jià)值貼推薦，對(duì)您同樣有幫助: