vba - Access variables and their names from the current scope -


is possible to:

  1. access list of variables in vba runtime environment?
  2. access name of variable vba?

example:

function v2s(str string) string     each variable in variables         dim integer         = 1 10             v2s = replace(v2s,"%" & variable.name & "%", variable.value)         next     next end function

example use case:

dim skycolor string skycolor = "green" debug.print v2s("the sky %skycolor% today!")

there application can send commands via com object , wish along lines of:

dim integer = 1 mi.eval("numtables()")     mi = getobject(,"mapinfo.application.x64")     debug.print mi.eval(v2s("tableinfo(%i%,1)")) ' print name of table next

the above looks cleaner than:

dim integer = 1 mi.eval("numtables()")     mi = getobject(,"mapinfo.application.x64")     debug.print mi.eval(v2s("tableinfo(" & & ",1)")) ' print name of table next

but of course if possible want general may difficult...

for own use case this pretty good.

however still isn't readable. option. it's more readable more cluttered:

sub main()     dim vars object, mystring string     set vars = createobject("scripting.dictionary")     vars.add "var1","val1"     vars.add "var2","val2"     '...     mystring = r("var1: #{var1} , var2: #{var2}", vars) end sub  function r(byval s string, byval o object) string     each key in o.keys         s = replace(s,"#{" & key & "}",o.item(key))     next     r = s end function

i wish string interpolation functionality existed default in vba.


Comments

Post a Comment

Popular posts from this blog

inversion of control - Autofac named registration constructor injection -

does autofac support specifying registration name in components' constructors? example: ninject's namedattribute . you need use autofac.extras.attributed package on top achieve this so let's have 1 interface , 2 classes: public interface ihello { string sayhello(); } public class englishhello : ihello { public string sayhello() { return "hello"; } } public class frenchhello : ihello { public string sayhello() { return "bonjour"; } } then have consumer class, in want select instance injected: public class helloconsumer { private readonly ihello helloservice; public helloconsumer([withkey("en")] ihello helloservice) { if (helloservice == null) { throw new argumentnullexception("helloservice"); } this.helloservice = helloservice; } public string sayhello() { return this.helloservice.sayhello()...
Read more

verilog - Systemverilog dynamic casting issues -

i've code snippet following in testbench function void write_to_port( my_data_type_base data ); my_data_type_extended data_ext; if(!$cast(data_ext, data)); `uvm_error(get_type_name(), "failed cast"); `uvm_info(get_name(), $psprintf("data_ext :\n%s", data_ext.sprint()), uvm_medium) // write data_ext out port.... endfunction when run it, i'm getting uvm_error "failed cast." i'm not quire sure why $cast not returning 1. can see, i'm printing out extended class data item after casting uvm_info. can see it's being cast properly. if don't use $cast if condition, don't runtime error. isn't coding practice use if dynamic cast check if $cast returning 1 ? what might reason behind cast not returning 1 in above case? i think semicolon on line 'if' not belong? i think consumes if statement, , uvm_error executes regardless of how if evaluates: if(!$cast(data_ext, data)); <- no semico...
Read more

ios - Change Storyboard View using Seague -

i have following code checks connection server, , depending on want change views if no connection found. nsstring *connect = [nsstring stringwithcontentsofurl:[nsurl urlwithstring:@"http://myserver.com"] encoding:nsutf8stringencoding error:nil]; if (connect == null) { [self performseguewithidentifier:@"network_failure" sender:self]; } else { // other code here } my problem not change views. have added storyboard segue between 2 views identifier of network_failure . not have navigation controller or that, problem? thanks help! no not problem. first of all, in objectivec exists nil object oriented null . must use that. so: if(connect == nil) or better: if(!connect) so due fact nil not same of null , probably code does't enter in if scope . you have been able discover breakpoint. anyway: be sure set trigger segue (line) 2 view controller , , name network_failure (that not best name. should instead view1toview2 ) as, m...
Read more