Oi,
Tenho um arquivo, abc.txt. como

abc.txt
\u003d\u003d\u003d\u003d\u003d\u003d\u003d
KOKRS EL01 RLDNR M2 RRCTY 1
Empresa Código 100
Ano Fiscal de 2007
Versão PW3
Moeda USD
1 2 3 4
1 2 3 4
BA Conta número Lucro Ctr ARM jan-fev-TC TC
Um 93.010.000 1530 152 1429793
A 93010000 9999 403 0 0 0
A 93010000 9999 404 -142
A 93010000 9999 411 0 0 0
A 93010000 9999 465 214538 214538 6114330
A 93010000 9999 487 0 -207918
Um 93010000 471 502 0 0 0
A 93010000 9999 502 0 0 0

KOKRS EL01 RLDNR M2 RRCTY 1
Empresa Código 152
Ano Fiscal de 2007
Versão PW3
Moeda GBP
1 2 3 4
1 2 3 4
BA Conta número Lucro Ctr ARM jan-fev-TC TC
Um 93.010.000 1200 152 0 0 0
Um 93.010.000 9999 152 -57.885 -16.511 -537.549
KOKRS EL01 RLDNR M2 RRCTY 1
.......
..... 500 linhas como este

Eu tenho que cair este arquivo em vários arquivos de acordo com a empresa código.

ex:

abc_COMCODE_100.txt
\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d
KOKRS EL01 RLDNR M2 RRCTY 1
Empresa Código 100
Ano Fiscal de 2007
Versão PW3
Moeda USD
1 2 3 4
1 2 3 4
BA Conta número Lucro Ctr ARM jan-fev-TC TC
Um 93.010.000 1530 152 1429793
A 93010000 9999 403 0 0 0
A 93010000 9999 404 -142
A 93010000 9999 411 0 0 0
A 93010000 9999 465 214538 214538 6114330
A 93010000 9999 487 0 -207918
Um 93010000 471 502 0 0 0
A 93010000 9999 502 0 0 0


abc_COMCODE_152.txt
\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d
KOKRS EL01 RLDNR M2 RRCTY 1
Empresa Código 152
Ano Fiscal de 2007
Versão PW3
Moeda GBP
1 2 3 4
1 2 3 4
BA Conta número Lucro Ctr ARM jan-fev-TC TC
Um 93.010.000 1200 152 0 0 0
Um 93.010.000 9999 152 -57.885 -16.511 -537.549



Kindly sugerir-me como é derramado por shell Unix programa.

Thanks in advance!

nawk-f deep.awk abc.txt

deep.awk:

BEGIN {
  FS=RS=""

  prefix=substr(FILENAME, 1, index(FILENAME, ".")-1)
}
{
   root="unknown"
   for(i=1; i<=NF; i++)
      if ($i ~ "Company Code") {
         n=split($2, a, " ")
         root=a[n]
         break
      }
   out= prefix "_COMCODE_" root ".txt"
   print > out
   close(out)
}

Oi.

Comando csplit foi desenhado para isso:

#!/usr/bin/env sh

# @(#) s1       Demonstrate context split, csplit.

set -o nounset
echo

debug=":"
debug="echo"

## Use local command version for the commands in this demonstration.

echo "(Versions displayed with local utility \"version\")"
version >/dev/null 2>&1 && version bash csplit

echo

# Remove debris files.
rm -f xx*

FILE=${1-data1}

csplit --keep-files -z $FILE "/Company Code/-1" {*}

echo
echo " Files created:"
ls xx*

SAMPLE=xx01
echo
echo " Sample $SAMPLE:"
cat -n $SAMPLE

exit 0

% ./s1

(Versions displayed with local utility "version")
GNU bash 2.05b.0
csplit (coreutils) 5.2.1

1
379
218
81

 Files created:
xx00  xx01  xx02  xx03

 Sample xx01:
     1  KOKRS EL01 RLDNR M2 RRCTY 1
     2  Company Code 100
     3  Fiscal Year 2007
     4  Version PW3
     5  Currency USD
     6  1 2 3 4
     7  1 2 3 4
     8  BA Account number Profit Ctr MRA Jan-TC Feb-TC
     9  A 93010000 1530 152 1429793
    10  A 93010000 9999 403 0 0 0
    11  A 93010000 9999 404 -142
    12  A 93010000 9999 411 0 0 0
    13  A 93010000 9999 465 214538 214538 6114330
    14  A 93010000 9999 487 0 -207918
    15  A 93010000 471 502 0 0 0
    16  A 93010000 9999 502 0 0 0
    17

deve ser uma GNU-ed csplit - não voar no Solaris.
Plus as convenções de nomenclatura para arquivos criados não é o que o OP queria.
Cool ideia embora - como ela!

Oi, vgersh99.
Thanks for the heads-up. Sim, é GNUcoreutils - csplit. Tenho certeza que quando eu estava usando Solaris diária que csplit estava disponível. Se isso não funcionar, como o fez falhar?

Eu testei-o em um FreeBSD 4/11 sistema, e ele tem apenas um anêmico divisão com um padrão de correspondência adicionada, mas não csplit (nem existem no OS X). O GNUlongo opções geralmente podem ser substituídos por um único traço opções.

Seria necessário um outro processo para extrair o texto para tornar o nome do arquivo, mas isso é um bom exercício para o PO ... cheers, DRL

Oi Amigos,
Obrigado por sua ajuda.
Sou iniciante em Unix. Estou trabalhando em ksh e csh.
agora youuplease pode explicar a forma de executar isso.
abc.txt é o meu nome de arquivo.

DRL sua solução parece ser bem. mas não sou capaz de executá-lo.

Outra:

awk 'FNR == 1 {
	pfx = substr(FILENAME, 1, 3) "_COMCODE_"
	}	
/^KOKRS/ {
	fn = 0
}
/^Company Code/ {
	close(fn)
	fn = pfx $3 ".txt"
	$0 = prev RS $0
	}
fn {
	print > fn
}
{
	prev = $0
}' abc.txt

awk 'FNR == 1 {
	pfx = substr(FILENAME, 1, 3) "_COMCODE_"
	}	
/^KOKRS/ {
	fn = 0
}
/^Company Code/ {
	close(fn)
	fn = pfx $3 ".txt"
	$0 = prev RS $0
	}
fn != 0 {
	print > fn
}
{
	prev = $0
}' abc.txt