Массивы строк в nncron

Обсуждение программ nnCron и nnCron LITE

Re: Массивы строк в nncron

Postby VoidVolker » Sun, 14 Mar 2010, 20:07

Dark_Jones wrote:Файл sleep - придётся скачать из инета: он добавляет паузу в секундах.

Пауза делается так:
Code: Select all
ping -n 1 127.0.0.0

Да и зачем все так усложнять-то?
Neud wrote:А точно нельзя как-нибудь по-простому взять случайную строку из файла и положить ее в переменную?

Для удобства оформил в виде плагина:
Code: Select all
\ File: file-random-string.spf
\ Date: 14/03/10 20:03
MODULE: RND-FSTR_MODULE

  USER-CREATE str-array 5120 ALLOT  \ Массив на 1280 строк
  USER file-snum

EXPORT

  : crlf-remove   \ ( a u -- a u1 )
    BEGIN 2DUP + 1- C@ DUP 0x0D = SWAP 0x0A = OR WHILE
      1-
    REPEAT
    2DUP + 0 SWAP C!
  ;

  : FILE-RANDOM-STR   \ ( a u -- a1 u1 )
    str-array 5120 ERASE
    0 ROT ROT
    FILE  OVER + SWAP DUP str-array ! OVER >R
    DO
      I C@ 0x0D =
      I 1+ C@ 0x0A = AND
        IF
          1+
          I 2+ OVER CELLS str-array + !
        THEN
    LOOP
    DUP CELLS str-array + R> SWAP !

    ?DUP
      IF
        RANDOM CELLS str-array + DUP @   \ ar1 a1
        SWAP CELL+ @  \ a1 ar2
        OVER -
        crlf-remove
      ELSE
        DROP S" "
      THEN
  ;

;MODULE

Далее так:
Code: Select all
#( Задача_2004140310
NoActive
2VARIABLE my-2var
Action:
S" C:\file.txt" FILE-RANDOM-STR
my-2var 2!
)#


Neud wrote:После отката с беты на релиз программу VoidVolker я таки смог запустить, прекрасно работает.

У меня на b10 все отлично работает.
Neud wrote:чтобы в ней было присваивание переменной (например, v) случайного значения массива str-array

Рекомендую обратить особое внимание на красный линк в подписи, а потом таки объяснить общую задачу.
95% вопросов уже обсуждались на форуме или ответы на них есть в мануале.        nnCron 1.93 b15.exe
Как правильно задавать вопросы.
User avatar
VoidVolker
Site Admin
 
Posts: 2898
Joined: Tue, 25 Apr 2006, 17:56

Re: Массивы строк в nncron

Postby sournk » Tue, 10 Aug 2010, 12:51

А не покажете пример использования слова FILE-READ-LINE-N, например, вывести через MSG 3-ю строку файла c:\test.txt
sournk
 
Posts: 22
Joined: Fri, 15 Jan 2010, 14:31

Re: Массивы строк в nncron

Postby SeMa » Tue, 10 Aug 2010, 13:20

sournk wrote:А не покажете пример использования слова FILE-READ-LINE-N, например, вывести через MSG 3-ю строку файла c:\test.txt

Не надо дублировать сообщения в несколько тем.
Компьютер ─ устройство, разработанное для ускорения и автоматизации человеческих ошибок
User avatar
SeMa
 
Posts: 637
Joined: Fri, 15 Apr 2005, 12:49
Location: Украина

Re: Массивы строк в nncron

Postby spronkin » Fri, 30 Nov 2012, 14:57

Пауза делается так:
Code: Select all
ping -n 1 127.0.0.0

А по-моему так:
Code: Select all
ping -n 2 127.0.0.0
User avatar
spronkin
 
Posts: 86
Joined: Sun, 15 Jan 2012, 13:56

Re: Массивы строк в nncron

Postby SeMa » Fri, 30 Nov 2012, 17:42

Кто тут?! :shock:
Компьютер ─ устройство, разработанное для ускорения и автоматизации человеческих ошибок
User avatar
SeMa
 
Posts: 637
Joined: Fri, 15 Apr 2005, 12:49
Location: Украина

Previous

Return to nnCron forum (Russian)

Who is online

Users browsing this forum: Google [Bot] and 2 guests

cron