Judith's questions

Tenho 200 arquivos com linhas de texto que podem se parecer com qualquer um destes padrões:

{hello} "this is an example" {{ config(alias="customertable") }}
{{hello}} "this is an example" {{ config ( alias = 'monthly revenue') }}
{ { config ( alias = 'record 3 breaking news') } } {{hello}} "this is an example"
{{hello}} 'this is an example' { { config( alias = "designer bags 4 u") }} {{hello}} "this is an example"

A string após a palavra alias está sempre entre aspas simples ou duplas. Quero colocar _link no final dessa string, para que fique assim: "customertable_link" ou 'monthly revenue_link' e quero usar o powershell. Quero que a linha inteira seja retornada, então o quarto exemplo deve retornar isso:

{{hello}} 'este é um exemplo' { { config( alias = "bolsas de grife para u_link") }} {{hello}} "este é um exemplo"

Por exemplo, procure o alias da string em uma linha e adicione _link à esquerda da segunda instância de " ou ' .

Isto é o que tenho até agora:

$string -replace 'alias=(?:[^"]*"){2}', '$0_link'

E isso funciona quase para o primeiro exemplo (só a citação está no lugar errado), mas não consigo fazer direito. Qualquer ajuda seria muito apreciada!

Quero ler uma planilha Excel e exibir o conteúdo com vbscript. Também quero que o usuário possa escolher o diretório de origem, daí a adição de hta furteron. O provedor ACE OLEDB deve ser usado (por favor, não pergunte, eu sei que isso é o fim da vida útil e não é sustentável, etc., mas não posso mudar isso agora), então instalei o Microsoft Access Database Engine 2016 Redistributable (accessdatabaseengine_X64.exe ) aqui: https://www.microsoft.com/en-us/download/details.aspx?id=54920 . Além disso, tenho o Microsoft 365 Apps for Enterprise instalado (x64) em meu laptop com Windows 11. Criei um arquivo Excel com 1 planilha, 2 colunas e algumas linhas de conteúdo como este:

e nomeou o bloco destacado como 'namenblok' e salvou o arquivo como test.xlsx . Em seguida, criei um arquivo chamado test.vbs no mesmo diretório com este conteúdo:

Option Explicit

Dim fso         : set fso = CreateObject("Scripting.FileSystemObject")
Dim g_sCfg      : g_sCfg        = fso.GetFolder(fso.GetAbsolutePathName(".")) & "\" & "test.xlsx"
Dim connectString : connectString  =  "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & g_sCfg & ";Extended Properties=""Excel 12.0;HDR=Yes;"";"

Const adOpenStatic = 3
Const adLockOptimistic = 3
Const adUseClient = 3
Dim objConnection, objRecordset
Set objConnection = CreateObject("ADODB.Connection")
Set objRecordset  = CreateObject("ADODB.Recordset")
objConnection.Open connectString
' wscript.sleep 1000
             
objRecordset.CursorLocation = adUseClient
On Error Resume Next

objRecordset.Open "SELECT * FROM namenblok" , objConnection, adOpenStatic, adLockOptimistic ' namenblok is een op naam gedefinieerde blok aan cellen

If Err.Number <> 0 Then
    'error handling:
    WScript.Echo Err.Number & " Srce: " & Err.Source & " Desc: " &  Err.Description
    Err.Clear
End If

Do While Not(objRecordset.EOF)
 wscript.echo objRecordset("id") & " " & objRecordset("naam")
 objRecordset.MoveNext
Loop

objRecordset.Close
objConnection.Close

Quando executo isso (por exemplo, clique duas vezes nele), ele exibe todas as linhas da planilha do Excel, uma por uma, assim:

Mas quando alterado para um .hta (aplicativo html) e adicionando apenas as partes do script assim:

<script language="VBScript">
Option Explicit
…
…
objConnection.Close
</script> 

diz quando executado: "O provedor não pode ser encontrado. Ele pode não estar instalado corretamente." e aponta para a linha 15 com: objConnection.Open connectString:

Provavelmente terei que ajustar a parte html devido às alterações nas restrições de html, mas não consigo descobrir como e o que exatamente. Qualquer ajuda seria apreciada!