ieumemo

@JGabrielCC , veja se isso fica legal:

echo off
:inicio
echo titulo (Obs: nao use espaco)
set /p titulo=
echo o titulo e : %titulo%
echo comece a anotar(Obs: pode usar espacos)
set /p anotacao=
echo %date% 
echo %time%
  
echo %anotacao% >> %titulo%.anot.txt 


echo Continuar[s/n] ?
set /p continuar=
if "%continuar%" == "s" goto inicio

echo. 

for %%G IN ("*.anot.txt") DO (
    echo %%G: 
    type %%G 
    echo.
) 

Você não instalou o Service Pack 1 do Windows 7.

def palavra_repetida(palavra):
    n = ""            
    for i in range(len(palavra)):
       if not palavra[i:i+2] in n: 
           n += palavra[i]
    return n
    
palavra = input("digite a palavra:")
print(palavra_repetida(palavra))

O problema é que o contador está indo até o tamanho total das duas variáveis.

Se, por exemplo, p1 é "teste" (5 caracteres) e p2 é "codigo" (6 caracteres), o tamanho fica igual a 11. O erro ocorre na hora em que o contador = 5. A posição 5 em p1 não existe (p1 vai de 0 a 4).

Pergunta: o que você está tentando fazer? Mostre alguns exemplos para p1 e p2 e o resultado esperado. 

7 minutos atrás, tecnorenato disse:

Achei isso aqui. Mas como fazer com que o numero traga junto uma pergunta?

Não entendi. Como assim "número"? Com esse código que eu te passei, a cada Enter uma pergunta aleatória é exibida.

Em 02/11/2016 às 23:35, tecnorenato disse:

Gostaria de criar um .bat que no momento em que apertasse enter ou outro botão ele desse uma pergunta diferente sem repetir. Preciso também que elas se embaralhe.

Há exemplo de código para extração de ícones em arquivos executáveis em http://www.vbaccelerator.com/home/NET/Utilities/Icon_Extractor/article.html. 

 Salve este código como pergunta_aleatoria.vbs

Dim MeuArquivo
MeuArquivo = "C:\caminho\do\meu\arquivo\de\perguntas.txt" ' <--- Modifique aqui pelo seu arquivo de perguntas

Dim fso, file, perguntas
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.OpenTextFile(MeuArquivo)

perguntas = Split(file.ReadAll, vbCrlf)
max = Ubound(perguntas)
min = 1
Do While sair = False
    Randomize
    posicao = Int((max-min+1)*Rnd+min)
    If UCase(Right( WScript.FullName, 12)) = "\CSCRIPT.EXE" Then
        WScript.Echo "------------------------"
        WScript.Echo perguntas(posicao) 
        WScript.Echo "-----------------" 
        Wscript.Echo "Aperte Enter para próxima pergunta. Digite 0 e Enter para sair"  & vbcrlf
        sair = WScript.StdIn.ReadLine = "0"
    Else
        sair = MsgBox(perguntas(posicao), vbOkCancel) = vbCancel
    End If  
Loop

Você pode executar clicando duas vezes no arquivo ou executar pelo prompt de comando:

cscript //Nologo c:\local\onde\voce\salvou\o\pergunta_aleatoria.vbs

Clicando duas vezes, será exibida uma mensagem no estilo padrão do Windows para cada pergunta. No prompt de comando, as perguntas são exibidas no próprio console.

Até mais

Insira esta linha no início de seu programa:

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Modifique o procedimento 'Regressiva':

Sub Regressiva()
    Do While Tempo > TimeValue("00:00:01") And Rodando = True
        Tempo = Tempo - TimeValue("00:00:01")
        Label1.Caption = Tempo
        DoEvents         ' Impede que o processo fique travado
        Call Sleep(1000) ' Dorme por 1000 milissegundos (= 1 segundo)
        Call Me.Repaint  ' Evita que os botões fiquem afundados o tempo todo ao clicar
    Loop
End Sub

Veja se funciona.