Lima de grupo - extrair números de uma lima de texto - Problemas e soluções para questões relacionadas com a Software

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:

'Certificar-se que o nome de arquivo da entrada está especific na linha de comando e começ d
Se (WScript.Arguments.Count > 0) então
  nome de arquivo = WScript.Arguments (0)
Mais
  WScript.Echo “nenhum nome de arquivo da entrada especific.”
  WScript.Quit
Terminam se
 
'Ler a lima de entrada inteira em uma única variável de corda
Ajustar o fso = o CreateObject (“Scripting.FileSystemObject”)
Ajustar a entrada = o fso.OpenTextFile (o nome de arquivo)
dados = input.ReadAll
entrada. Fim
Ajustar a entrada = nada
 
'Criar o objeto do dicionário às duplicatas do ellininate
Ajustar o dict = o CreateObject (“Scripting.Dictionary”)
 
'Criar o molde da expressão regular aos locae os números de ordem
Ajustar com referência a = RegExp novo
re. Teste padrão = “OrderNum= [0-9] [0-9] [0-9] [0-9] [0-9] [0-9] [0-9] &”
re.IgnoreCase = retificam
re. Global = retificar
 
'Dar laços através de cada fósforo, número de ordem do grap, e se não já encontrou para adicionar ao dicionário
para cada um batido no re. Executar (dados)
   order=Mid (batida. Valor, 10, 7)
   Se não dict. Existe (ordem) então
      dict. Adicionar a ordem, 0
   Terminar se
Em seguida
 
'Output a lista de números de ordem originais agora
Para cada o no dict
   Wscript.Echo o
Em seguida

Pergunta : Lima de grupo - extrair números de uma lima de texto

Resposta : Lima de grupo - extrair números de uma lima de texto