Função GetRandomLine

~~ Function GetRandomLine(FilePath: String; StartingLine, EndingLine, RepeatHowManyTimes: Integer): Boolean; ~~

Bom dia, pessoal! Esses dias eu investi algumas horas para fazer um Script que pegasse X linhas aleatórias de um arquivo .txt.

Facilmente digite /RandomLine [FilePath] [StartingLine] [EndingLine] [NumberOfLines], e a função será ativada! Se o arquivo que deseja estiver na pasta principal do servidor, apenas digite o seu nome (com o .txt). Deixe [EndingLine] como 0 se quiser que o Script percorra até a última linha!

O Script envia as linhas selecionadas para o console (via WriteLn()), e se você habilitar a opção CreateFileForRandomLines, ele criará um arquivo com o mesmo nome que o arquivo de origem com as linhas selecionadas na pasta scripts/GetRandomLine/GeneratedLines. Para desativar essa função, digite False ao invés de True ao lado de CreateFileForRandomLines. No arquivo criado com as linhas aleatórias tem uma estrutura definida. É mais ou menos assim:

This/These is/are the line(s) that was/were generated at Sábado 12:27:00

Linha1

Linha2

...

Eu fiz uns ajustes para que se você for utilizar a função no mesmo arquivo mais de uma vez (com a constante CreateFileForRandomLines ligada), não apague o que já tinha no arquivo copiado antes. Ou seja, você pode usar quantas vezes quiser, o Script só vai pular uma linha e escrever This/These is/are the line(s) that was/were generated at Sábado 12:30:00, e assim por diante.

Esse Script foi uma idéia boa para mim pois eu tenho um arquivo com uns 100 links de imagens para postar no meu blog. Então eu uso esse Script para postar coisas aleatórias desse arquivo :P

~~

Se for usar, mantenha os créditos!