我已将数据从一个源提取到.txt文件。 Source是某种地址簿,我使用宏录制器进行提取。现在我有几个文件正好以下一种方式形成(例如4个联系人):
Abbrucharbeiten
ATR Armbruster
Werkstr. 28
78727 Oberndorf
Tel. 0175 7441784
Fax 07423 6280
Abbrucharbeiten
Jensen & Sohn, Karl
Schallenberg 6A
25587 Münsterdorf
Tel. 04821 82538
Fax 04821 83381
Abbrucharbeiten
Kiwitt, R.
Auf der Heide 54
48282 Emsdetten
Tel. 02572 88559
Tel. 0172 7624359
Abbrucharbeiten, Sand und Kies, Transporte, Kiesgruben, Erdbau
Josef Grabmeier GmbH
Reitgesing 1
85560 Ebersberg
Tel. 08092 24701-0
Fax 08092 24701-24
第1行总是bussines的字段(名称) 第2行始终是公司/公司的名称 第3排总是街头地址 第4行始终是邮政编码和地方 然后 第5行和下几行(有时是两行,有时更多)是eithar Tel。或传真。
我想格式化它,就像excel表格一样:
Branche: Name: Address: Place: contact1: contact2:
1st row 2nd row 3rd row 4th row 5th row 6th row.....
现在主要的问题是我有超过500.000个联系人,我的主要问题是最后的字段,这些字段并不总是相同的数字......我不想手动做,请帮助我... < / p>
答案 0 :(得分:2)
既不python
也不visual basic
,但不应该很难翻译成这些语言。这是perl
。
perl -lne '
## Print header. Either the header and data will be separated with pipes.
## Contacts(contact1, contact2, etc) are not included because at this
## moment I can not know how many there will be. It could be done but script
## would be far more complex.
BEGIN {
push @header, q|Branche:|, q|Name:|, q|Address:|, q|Place:|;
printf qq|%s\n|, join q{|}, @header;
}
## Save information for each contact. At least six lines. Over that only
## if lines begins with strings "Tel" or "Fax".
if ( $line < 6 || m/\A(?i)tel|fax/ ) {
push @contact_info, $_;
++$line;
## Not skip the printing of last contact.
next unless eof;
}
## Print info of contact, initialize data structures and repeat process
## for the next one.
printf qq|%s\n|, join q{|}, @contact_info;
$line = 0;
undef @contact_info;
push @contact_info, $_;
++$line;
' infile
这是一个单行(我知道它似乎没有,但你可以删除注释并删除新行来获取它),所以直接从你的shell运行它。它产生:
Branche:|Name:|Address:|Place:
Abbrucharbeiten|ATR Armbruster|Werkstr. 28|78727 Oberndorf |Tel. 0175 7441784|Fax 07423 6280
Abbrucharbeiten|Jensen & Sohn, Karl|Schallenberg 6A|25587 Münsterdorf|Tel. 04821 82538|Fax 04821 83381
Abbrucharbeiten|Kiwitt, R.|Auf der Heide 54|48282 Emsdetten|Tel. 02572 88559|Tel. 0172 7624359
Abbrucharbeiten, Sand und Kies, Transporte, Kiesgruben, Erdbau|Josef Grabmeier GmbH|Reitgesing 1|85560 Ebersberg|Tel. 08092 24701-0|Fax 08092 24701-24
考虑到我没有打印完整的标题,并且这些字段是用管道分隔的。我认为在Excel中导入它不会有问题。