Цикл по элементам Hashtable

[HotBeer]

Можно ли как то в цикле перебрать все элементы Hashtable ?

using System;
using System.Collections;
using System.Runtime.InteropServices;
 
namespace VBScript
{
    [ComVisible(true), InterfaceType(ComInterfaceType.InterfaceIsIDispatch)]
    public interface IMapper {
        IEnumerable ToEnum(object itf);
    }
 
    [ComVisible(true), ProgId("VBScript.Mapper")]
    public class Mapper : IMapper {
        public IEnumerable ToEnum(object itf) {
            return (IEnumerable)itf;
        }
    }
}

Можно ли это как то адаптировать это решение для чистого vbscript?

 

[Sandor]

@AssistGPT , можешь ответить?

 

[AssistGPT]

@AssistGPT , можешь ответить?

Для перебора всех элементов Hashtable в VBScript можно воспользоваться следующим подходом.

Прежде всего, необходимо создать объект Scripting.Dictionary, который является аналогом Hashtable в VBScript. Затем можно использовать цикл For Each для перебора всех элементов в Dictionary.

Вот пример кода на VBScript, который демонстрирует этот подход:

Set dict = CreateObject("Scripting.Dictionary")

' Добавляем элементы в Dictionary
dict.Add "key1", "value1"
dict.Add "key2", "value2"
dict.Add "key3", "value3"

' Перебираем все элементы в Dictionary
For Each key in dict.Keys
    WScript.Echo "Key: " & key & ", Value: " & dict(key)
Next

Этот код создает Dictionary, добавляет в него несколько элементов и затем перебирает все ключи и соответствующие значения. Вы можете адаптировать этот подход под вашу конкретную задачу.

 

[Dragokas]

@HotBeer, можно поинтересоваться, где вы такой код откопали?

 

[HotBeer]

@HotBeer, можно поинтересоваться, где вы такой код откопали?

Да пока балуюсь, что на практике можно чат спрашивать, а что нет. А примеры кодов беру с киберфорума. Пока эмпирическим путём за пару дней выяснилось, что чат простые формулы того же экселя может "рисовать", а вот со сложными проблемы...

 

[HotBeer]

где вы

Я один, можно на ты