Автор Тема: Triabva mi programa koiato...  (Прочетена 2399 пъти)

boril

  • Напреднали
  • *****
  • Публикации: 26
    • Профил
Triabva mi programa koiato...
« -: Mar 18, 2002, 14:36 »
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 '<img'>, 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.
Активен

  • Гост
Triabva mi programa koiato...
« Отговор #1 -: Mar 18, 2002, 17:12 »
Идеален повод да започнеш да учиш някакъв език за програмиране: C, Perl :)
М/у другото това и на script минава: man bash, man awk, man sed ...

Успех
Активен

  • Гост
Triabva mi programa koiato...
« Отговор #2 -: Mar 19, 2002, 23:42 »
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]
Активен

  • Гост
Triabva mi programa koiato...
« Отговор #3 -: Mar 20, 2002, 09:30 »
Бих ти препоръчал да се въздържаш занапред от такива дефиниции "Iavno si i idiot". Много помага да израснеш като един зрял, пълноценен човек.
А дотолкова аз какво съм и какво не съм ... Благодаря винаги съм се стремил да разбера какво мислят хората за мен и какво мога аз да направя по въпроса :)

Успех
Активен

hint

  • Напреднали
  • *****
  • Публикации: 39
    • Профил
Triabva mi programa koiato...
« Отговор #4 -: Mar 20, 2002, 11:29 »
стига сте се карали за глупости - не му е тук мястото
Boril, аз ти написах скрипта в дир.бг-то - не бях видял постинга ти, иначе щях да го постна тука
преди маклко постнах и една коригирана версия - трябва да работи и с повече стрингове

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

dam

  • Напреднали
  • *****
  • Публикации: 37
    • Профил
Triabva mi programa koiato...
« Отговор #5 -: Mar 20, 2002, 13:53 »
Само от любов към спорта, ето програма на 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

  • Напреднали
  • *****
  • Публикации: 43
    • Профил
Triabva mi programa koiato...
« Отговор #6 -: Mar 21, 2002, 03:08 »
mdaaa... kvo da se kaze poveche ...
dobre che Larry ne se beshe zaplesnal po VB ;-)
Активен

HuK

  • Напреднали
  • *****
  • Публикации: 16
    • Профил
Triabva mi programa koiato...
« Отговор #7 -: Mar 30, 2002, 02:12 »
Първо искам да се извиня на всички които ще се засегнат
от това което ще кажа.

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

Подобни теми
Заглавие Започната от Отговора Прегледи Последна публикация
kajete mi programa
Общ форум
malkoto_fasche 0 1162 Последна публикация Nov 23, 2002, 16:55
от malkoto_fasche
Malko HELP mi triabva
Настройка на програми
djicsana 2 965 Последна публикация Jan 30, 2004, 07:33
от kennedy
oh kak mi triabva re4nik
Настройка на програми
jivkoto 2 5879 Последна публикация May 05, 2004, 10:21
от jivkoto
Triabva mi niakoj kojto da instalira Mail server
Настройка на програми
gminev 2 1148 Последна публикация Nov 11, 2005, 17:39
от nix
Restartirvane na programa
Кошче
bobi_sv877 5 1490 Последна публикация Aug 23, 2010, 20:08
от Acho