Script ile tanımlama yapmadan veri okuma

[Berk epli]

script yaparken array bir alan oluşturup yada datablock da ki tüm verileri tek tek tanımalama yapmadan hepsini bir kere de okuyup kaydedebiliyor muyuz
örneğin dbx0.0/dbx10.0 a kadar olan tüm değerleri

 

[servetd]

yaparsında soruyu açman lazım

 

[Berk epli]

yaparsında soruyu açman lazım

Dim val1,val2,val3,val4,val5,val6,val7,val8,val9,val10,val11,val12,val13,val14,val15,val16,val17,val18,val19,val20,val21,val22,val23,val24,val25


val1= SmartTags("barkod_data_barkod")
val2= SmartTags("creat_data_sonuc")
val3= SmartTags("klıps_1")
val4=SmartTags("klıps_2")
val5=SmartTags("klıps_3")
val6=SmartTags("klıps_4")
val7=SmartTags("klıps_5")
val8=SmartTags("klıps_6")
val9=SmartTags("klıps_7")
val10=SmartTags("klıps_8")
val11=SmartTags("klıps_9")
val12=SmartTags("klıps_10")
val13=SmartTags("klıps_11")
val14=SmartTags("klıps_12")
val15=SmartTags("klıps_13")
val16=SmartTags("klıps_14")
val17=SmartTags("klıps_15")
val18=SmartTags("klıps_16")
val19=SmartTags("klıps_17")
val20=SmartTags("klıps_18")
val21=SmartTags("klıps_19")
val22=SmartTags("klıps_20")
val23=SmartTags("klıps_21")
val24=SmartTags("klıps_22")
val25=SmartTags("sıcıl")

üstte yazdığım gibi tek tek tanımalama yapıyorum bu şekilde değilde array alan açıp mesela 100 tane onun içine yazdırıp burda da array alanı bir kere de yazabilir miyim






fso3.WriteLine d & ";" & Mon & ";" &Y & ";" & H & ":" & Min & ":" & S &";" & val25 & ";" & val1 & ";" & val2 & ";" & val3 & ";" & val4 & ";" & val5 & ";" & val6 & ";" & val7 & ";" & val8 & ";" & val9 & ";" & val10 & ";" & val11 & ";" & val12 & ";" & val13 & ";" & val14 & ";" & val15 & ";" & val16 & ";" & val17 & ";" & val18 & ";" & val19 & ";" & val20 & ";" & val21 & ";" & val22 & ";" & val23 & ";" & val24


burda da excele yazıyor burda da tek tek yazıyorum bir sürü değer olduğunda bunu tek tek yazmak anlamsız oluyor