Pergunta : Certificado de VB: Texto específico da saída da lima de texto

Olá! lá, necessidade do

I de modificar o seguinte certificado para extrair o que texto é encontrado no meio: “Parameter um: ” e “”.


SO USANDO A LINHA DE COMANDO: parâmetro 1” >output.txt


FROM do
cscript GetParameter.vbs //NOLOGO “input.txt” do ****** “do do ********** do do ********** do do ********** do do ************************** do
a SEGUINTE LIMA de TEXTO de INPUT.TXT: o line
This do line
whatever do
whatever do ****** do do ********** do do ********** do do ********** do do ************************** do
é um test> e eu significo-o e porque o Parameter 1 do not>: Elevator um é RESULTADO ANALISADO GRAMATICALMENTE/>THE do line


whatever de online=True
whatever DEVE SER: o
Elevator um do ****** do do ********** do do ********** do do ********** do do ************************** do
é o online=True




SCRIPT A MODIFICAR: o
' do ****** do do ********** do do ********** do do ********** do do ************************** do
certifica-se que o nome de arquivo da entrada está especific na linha de comando e se começ do nome de arquivo do it
If (WScript.Arguments.Count > 0) Then
=
Else
WScript.Echo de WScript.Arguments (dos 0) “nenhum nome de arquivo da entrada especific. do “o
'
WScript.Quit
End If
leu a lima de entrada inteira em um únicos fso do variable
Set da corda =
Set de CreateObject (“Scripting.FileSystemObject”) entrados = o
data = input.ReadAll
input. Close
Set entrado = o
' do
' de Nothing
cria o objeto do dicionário ao dict do duplicates
Set do ellininate = do
de CreateObject (“Scripting.Dictionary”) cria o molde da expressão regular aos locae o numbers
Set da ordem com referência a = RegExp
re. Teste padrão = “OrderNum= [0-9] [0-9] [0-9] [0-9] [0-9] [0-9] [0-9]
" />re.IgnoreCase = True
re. Global = o laço através de cada fósforo, número do
' de True
de ordem do grap, e se não já encontrado adiciona ao dictionary
for cada um batido no re. Executar o order=Mid do
(dos dados) (batida. 10, 7) dict do
do valor, se não. Existe (ordem) o dict de Then
. Adicionar a ordem, lista da saída do
' de If
Next
do fim de 0
do now
For que dos números de ordem cada o no CERTIFICADO do o
Next



THIS do dict
Wscript.Echo A SER MODIFICADO É CHAMADO ATUALMENTE pela SEGUINTE LINHA de COMANDO:
cscript GetNumbers.vbs //NOLOGO input.txt >output.txt



Thanks para sua ajuda,
Rene do ****** do do ********** do do ********** do do ********** do do ************************** do
class= > " desobstruído " do
soluções >Related class= href= " /Programming/Languages/Visual_Basic/VB_Script/Q_26339319.html " title= " VBScript do VBScript " do qRelatedChild " do “class=: Necessidade de output somente o resultado required, sem o junk.

Resposta : Certificado de VB: Texto específico da saída da lima de texto

dar-lhe ir
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:

escurecer o nome de arquivo, placeholder, dados, símbolos, subtokens, tok

Se (WScript.Arguments.Count = 2) então
  nome de arquivo = WScript.Arguments (0)
  placeholder = WScript.Arguments (1)
Mais
  Argumentos do enugh de WScript.Echo “não: 2 previstos (nome de arquivo + placeholder).”
  WScript.Quit
Terminar se
 
START_TOKEN = "" & placeholder & ""
END_TOKEN = ““Ajustar o fso = o CreateObject (“Scripting.FileSystemObject”) ajustam a entrada = os dados de fso.OpenTextFile (nome de arquivo) = a entrada de input.ReadAll. Fechar entrada ajustada = nada símbolos = separação (dados, START_TOKEN) para cada tok em subtokens dos símbolos = em separação (tok, END_TOKEN) se UBound (subtokens) > 0 então se os subtokens do "" então WScript.Echo <> dos subtokens (0) (0) terminam se extremidade se em seguida
Outras soluções  
 
programming4us programming4us