Изпечатай

[boril]

Imam slednia problem: Imam 3 faila dos txt format, v vseki fail na otdelni redove sa zapisani dve chisla i text po slednia nachin:
{123}{456}txtxtxtxtx
 Triabva mi programa koiato da chete chislata da gi subira s vuvedeno ot men chislo i da proizvezda fail s novopomenenite chisla kato ne promenia strukturata na faila. Primer:
fail 1.txt :
{111}{222}txtxtxtxt
{333}{444}xtxtxtxtx
.
.
.
vuvezdam: 2222 i pluchavam fail 1.1.txt :
{2333}{2444}txtxtxtxt
{2555}{2666}xtxtxtxtx
.
.
.
Shte sum mnogo blagodaren ako niakoi programist mi pomogne, uchil sum edno vreme samo BASIC ako ste go chuvali i to v uchilishte, izobshto ne sum programist '>, a tezi failove sa po 2-3000 reda vseki i smiataneto s kalkulator i pisaneto shte mi otneme strasho mnogo vreme. Imam RH7.2, Atlon, 128 MB.
Blagodaria predvaritelno za otzivchivosta koiato niakoi porgramist moze da proiavi.

Идеален повод да започнеш да учиш някакъв език за програмиране: C, Perl :)
М/у другото това и на script минава: man bash, man awk, man sed ...

Успех

Iavno si i idiot, s izvinenie za drugite deto shte prochetat tova. Az mnogo dobre razbiram neshtata koito rabotia, znam gi s podrobnosti nedostupni za obiknovennia potrebitel, i gledam da ne rabotia neshta koito ne razbiram. Sled kato sum napisal che ne sum programist znachi tova e taka, sledovatelno shte potursia pomosh ot specialist v programiraneto t.e. programist, kakuvto ti ne si, iavno. A pomosh veche poluchih, samo dtriabva da se doizkusuri. edin dobur chovek s nik Bash_maistora mi napisa script za bash. Ostava da opravim edin neznachitelen bug. A eto i skripta ako niakoi iska da pomogne:

#!/bin/bash
if (test $# = 3); then
INPT=`cat $1`
for i in $INPT; do
ONPT=`echo $i | sed s/}/" "/`
ONPT=`echo $ONPT | sed s/}/" "/`
OTXT=""
for j in $ONPT; do
 if [ `echo $j | grep "{"` ]; then
 j=`echo $j | sed s/{/" "/`
 let j+=$3
 OTXT=$OTXT"{"$j"}"
 else
 OTXT=$OTXT$j
 fi
done
echo $OTXT | tee -a $2
done

else
echo Use: $0 input_file output_file number
fi#!/bin/bash
if (test $# = 3); then
INPT=`cat $1`
for i in $INPT; do
ONPT=`echo $i | sed s/}/" "/`
ONPT=`echo $ONPT | sed s/}/" "/`
OTXT=""
for j in $ONPT; do
 if [ `echo $j | grep "{"` ]; then
 j=`echo $j | sed s/{/" "/`
 let j+=$3
 OTXT=$OTXT"{"$j"}"
 else
 OTXT=$OTXT$j
 fi
done
echo $OTXT | tee -a $2
done

else
echo Use: $0 input_file output_file number
fi

[CODE]

Бих ти препоръчал да се въздържаш занапред от такива дефиниции "Iavno si i idiot". Много помага да израснеш като един зрял, пълноценен човек.
А дотолкова аз какво съм и какво не съм ... Благодаря винаги съм се стремил да разбера какво мислят хората за мен и какво мога аз да направя по въпроса :)

Успех

[hint]

стига сте се карали за глупости - не му е тук мястото
Boril, аз ти написах скрипта в дир.бг-то - не бях видял постинга ти, иначе щях да го постна тука
преди маклко постнах и една коригирана версия - трябва да работи и с повече стрингове

А колкото до Sudo - прав е. Ако често ти трябват такива скриптове, по-добре се захвани да разучих bash-a, остави го тоя VBasic. Не е толкова трудно, а е доста полезно за такива малки задачки

[dam]

Само от любов към спорта, ето програма на Perl, която изпълнява задачата.  Стартира се като `add 200 < input-file > output-file'. Не съм я тествал.

#/usr/bin/perl -w
use strict;
use Getopt::Long;

my $inc = shift(@ARGV);

die "increment not specified\n" unless defined($inc);

while ( <> )
{
  m/\{\d*\}\{\d*\}.*/ or warn "Invalid line: $_";
  $1 += $inc;
  $2 += $inc;
  print "{$1}{$2}$3";
}

[mil_dim]

mdaaa... kvo da se kaze poveche ...
dobre che Larry ne se beshe zaplesnal po VB ;-)

[HuK]

Първо искам да се извиня на всички които ще се засегнат
от това което ще кажа.

Пич за субтитри си има доста програмки под WIN
намери си някои свестен конвертор хем ще имаш повече възможности .