INVERTER S081120

.
 INVERTER S081120

'Armazenador de Arquivo PLUS S=280518 'Renato Aplicativos 2018 (c) 'OBS: SALVE ESTE ARQUIVO COMO arquivo.vbs E CLIQUE NELE PARA CRIAR O ARQUIVO FINAL. '#FormatoRBL 'INVERTER S081120.zip '504 '09/11/2020 13:29:37 '80 '75 '3 '4 '20 '0 '0 '0 '8 '0 '251 '126 '104 '81 '202 '0 '122 '101 '110 '1 '0 '0 '47 '3 '0 '0 '20 '0 '0 '0 '73 '78 '86 '69 '82 '84 '69 '82 '32 '83 '48 '56 '49 '49 '50 '48 '46 '118 '98 '115 '165 '81 '77 '79 '195 '48 '12 '189 '79 '218 '127 '176 '114 '89 '171 '14 '70 '57 '161 '73 '61 '76 '99 '72 '19 '99 '149 '182 '193 '61 '164 '102 '11 '164 '113 '73 '220 '193 '207 '39 '109 '55 '33 '62 '36 '16 '40 '7 '39 '207 '246 '123 '207 '78 '191 '55 '152 '47 '239 '102 '171 '205 '108 '5 '235 '236 '236 '34 '77 '207 '207 '250 '189 '193 '90 '57 '93 '49 '60 '215 '8 '21 '110 '37 '212 '165 '4 '143 '225 '105 '149 '150 '80 '32 '24 '100 '39 '61 '32 '104 '187 '71 '199 '8 '18 '42 '242 '90 '73 '10 '221 '5 '238 '201 '236 '209 '22 '212 '148 '150 '210 '162 '118 '161 '95 '151 '149 '65 '15 '84 '131 '162 '146 '192 '104 '251 '4 '149 '12 '153 '173 '171 '43 '2 '75 '176 '65 '131 '91 '39 '203 '126 '175 '57 '249 '146 '74 '132 '44 '72 '84 '53 '223 '211 '43 '68 '98 '110 '125 '67 '245 '201 '140 '10 '36 '138 '209 '161 '31 '139 '161 '248 '50 '79 '192 '68 '220 '16 '46 '90 '211 '153 '65 '27 '181 '220 '45 '56 '205 '194 '192 '19 '174 '165 '201 '132 '232 '247 '110 '200 '178 '44 '168 '189 '231 '27 '226 '0 '119 '109 '157 '167 '43 '114 '48 '205 '82 '96 '130 '119 '24 '32 '231 '182 '82 '91 '142 '58 '24 '78 '96 '26 '39 '105 '147 '235 '184 '75 '93 '116 '162 '195 '142 '117 '152 '198 '77 '242 '40 '119 '136 '73 '91 '12 '208 '176 '46 '241 '149 '59 '209 '224 '100 '133 '190 '54 '77 '197 '199 '125 '172 '102 '235 '219 '197 '102 '114 '153 '143 '69 '178 '191 '87 '206 '60 '28 '67 '171 '149 '124 '2 '143 '42 '31 '208 '111 '54 '22 '220 '139 '68 '121 '118 '145 '165 '151 '40 '142 '135 '135 '198 '118 '97 '131 '29 '115 '229 '199 '163 '17 '159 '150 '56 '122 '36 '109 '213 '78 '242 '232 '87 '54 '97 '154 '223 '192 '98 '190 '188 '254 '135 '223 '68 '124 '111 '64 '252 '125 '188 '159 '24 '227 '227 '63 '188 '1 '80 '75 '1 '2 '20 '0 '20 '0 '0 '0 '8 '0 '251 '126 '104 '81 '202 '0 '122 '101 '110 '1 '0 '0 '47 '3 '0 '0 '20 '0 '0 '0 '0 '0 '0 '0 '1 '0 '32 '0 '0 '0 '0 '0 '0 '0 '73 '78 '86 '69 '82 '84 '69 '82 '32 '83 '48 '56 '49 '49 '50 '48 '46 '118 '98 '115 '80 '75 '5 '6 '0 '0 '0 '0 '1 '0 '1 '0 '66 '0 '0 '0 '160 '1 '0 '0 '0 '0 '#FimFormatoRBL Sub CaminhoScript (OCaminho) OCaminho = WScript.scriptFullName End Sub Sub TxtToByte(ArqLeitura,ArqSaida) Dim Fso Dim Ts Dim Ts2 Set Fso = CreateObject("Scripting.FileSystemObject") Set Fso2 = CreateObject("Scripting.FileSystemObject") Set Ts2 = fso.OpenTextFile(ArqLeitura,1) If Err.number <> 0 Then MsgBox(Err.message) Exit Sub End If Dim Letras Letras=0 Dim Atual Atual="" Dim Montado Montado="" Dim Ativado1 Ativado1=False Dim Ativado2 Ativado2=False Dim Linha Linha="" Dim ONome ONome="" Dim C C=0 Dim Tmp1 Tmp1="" Do While Ts2.AtEndOfStream = False Linha= ts2.ReadLine If Linha="'#FimFormatoRBL" then Exit Do end if If Linha="'#FormatoRBL" then Ativado1=True end if If Ativado2=True then Letras=len(Linha) For C= 2 to Letras Atual=Mid(Linha,C,1) Montado=Montado+Atual Next Linha=Montado Montado="" If Linha<>"" Then Ts.Write chr(Linha) End if If Ativado1=True then ONome= ts2.ReadLine OTamanho= ts2.ReadLine AData= ts2.ReadLine Letras=len(ONome) For C=2 to Letras Atual=mid(ONome,C,1) Montado=Montado+atual Next ONome=Montado Montado="" NomeArq=ArqSaida+" - "+ONome Set Ts = fso.createTextFile(NomeArq,true) Ativado1=False Ativado2=True End If Loop Ts.Close Ts2.close End Sub Dim NomeArq NomeArq="" Dim OTamanho OTamanho="" Dim AData AData="" Dim OInicio OInicio=Cstr(Now()) CaminhoScript NomeArq TxtToByte NomeArq,NomeArq MsgBox NomeArq+vbcrlf+vbcrlf+OTamanho+"' Bytes. - "+AData+chr(39)+vbcrlf+vbcrlf+OInicio+vbcrlf+cstr(now())+vbcrlf+vbcrlf+"Renato Aplicativos 2018 (c)",0,"Arquivo criado com sucesso !!!"

Convertendo múltiplos arquivos: (no caso acima é só um arquivo)  
http://aa280518.blogspot.com/2018/12/convertendo-multiplos-textos.html

Armazenador de Arquivo - AA280518

http://publicadosbrasil.blogspot.com/2018/06/armazenador-de-arquivo-aa280518.html 

Postagem no ACERVO / BLOG :
http://aa280518.blogspot.com/

*O script resultado final tem que ser executado com a senha do ADMINISTRADOR DO SISTEMA, para isto depois de já ter selecionado o arquivo .vbs clique em CTRL+ALT+ENTER

OBS:

Como o SCRIPT resultado cria um arquivo o WINDOWS DEFENDER e os ANTIVÍRUS erradamente pensam ser um SCRIPT MALICIOSO, por isto a necessidade de executar como ADMINISTRADOR DO SISTEMA.

Em caso de problemas maiores execute o arquivo .vbs em uma MÁQUINA VIRTUAL do WINDOWS XP.

.

.

...