vb.net - Translation program from VBA to vb NET -


generally have working program macro in excel , wanted extract 1 button simple windows application. there simple way or better try recognize differences between vba , vb.net , try write scratch?

sub zapisywanie_txt_biesse_wr()      dim textfile integer     dim filepath string     dim filecontent string, strcontent() string     dim newname string     dim strfile string     dim filenum string     dim last_dot long     dim posstart integer     dim poslength integer     dim integer     dim j integer     dim lpx integer     dim mytxtfile      on error goto errorhandle      'zmienic domyslna lokacje na lokacje aplikacji     'chdir "c:\users\marcin.perz\desktop\makro zmieniajace pliki"     chdir activeworkbook.path      'spytac sie o plik przerobienia     filepath = application.getopenfilename("text files (*.txt),*.txt")      'nastepny wolny numer dla txt     textfile = freefile      'otworzenie txt w trybie odczytu     open filepath input textfile      'zapisanie zawartosci pliku pamieci     filecontent = input(lof(textfile), textfile)      'zamkniecie pliku     close textfile      'znajdz/zamien prcedury     filecontent = replace(filecontent, "campod0=labl,a,4,4,null,0,0", "campod0=labl,a,4,4,null,0,0")     filecontent = replace(filecontent, "campod1=prog,a,256,8,null,0,2", "campod1=prog,a,256,8,null,0,2")     filecontent = replace(filecontent, "campod2=qnta,u,4,4,null,0,0", "campod2=qnta,u,4,4,null,0,0")     filecontent = replace(filecontent, "campod3=cont,u,4,4,null,0,0", "campod3=cont,u,4,4,null,0,0")     filecontent = replace(filecontent, "campod4=comm,a,768,80,null,0,0", "campod4=comm,a,768,80,null,0,0")     filecontent = replace(filecontent, "ordre", "$ ordre")     filecontent = replace(filecontent, "," & vbcrlf, " $, " & vbcrlf)      'nastepny wolny numer dla txt     textfile = freefile      'nadanie nowej nazwy lokazcji     last_dot = instrrev(filepath, ".")     newname = left$(filepath, last_dot - 1) & "_rover35" & mid$(filepath, last_dot)     filepath = newname      'otworzenie txt w trybie zapisu     open filepath output textfile      'zapisanie zmienionej zawartosci pliku     print #textfile, filecontent      'zakmniecie pliku     close textfile      '~~> podzielenie pliku na linie binarnie     open filepath binary #1     filecontent = space$(lof(1))     #1, , filecontent     close #1     strcontent() = split(filecontent, vbcrlf)      ' here conditional replecments split text array lines etc.      'polaczenie pliku     filecontent = join(strcontent, vbcrlf)      'otworzenie txt w trybie zapisu     open filepath output textfile      'zapisanie zmienionej zawartosci pliku     print #textfile, filecontent      'zakmniecie pliku     close textfile      mytxtfile = shell("c:\windows\notepad.exe " & filepath, 1)      'etykieta wyjscia z programu beforeexit:     'wyjscie z programu     exit sub     'etykieta radzenia sobie z bledami errorhandle:     msgbox err.description     'skierowanie wyjscia z programu     resume beforeexit     'koniec makra end sub

you try 1 of following:

  1. copy code vb.net windows form , correct errors go
  2. install vb6 , paste code project (since vba vb6 code). attempt open vb6 project in vb.net, @ point it'll perform upgrade process you

good luck.


-

Comments

Post a Comment

Popular posts from this blog

c# - Binding a comma separated list to a List<int> in asp.net web api -

the default binder in web api expecst http://url.com/webapi/report/?pageids=3243&pageids=2365 to bind public ihttpactionresult report(list<int> pageids){ // exciting webapi code} i wish bind http://url.com/webapi/report/?pageids=3243,2365 as running out of space in url get . i have created class public class commaseparatedmodelbinder : system.web.http.modelbinding.imodelbinder { public bool bindmodel(httpactioncontext actioncontext, modelbindingcontext bindingcontext) { //binding in here } } and registered in webapiconfig.cs var provider = new simplemodelbinderprovider( typeof(list<int>), new commaseparatedmodelbinder()); config.services.insert(typeof(modelbinderprovider), 0, provider); i have altered method signature use model binder so public ihttpactionresult report( [modelbinder] list<int> pageids){ // exciting webapi code} however break point in binder not being ...
Read more

how to prompt save As Box in Excel Interlop c# MVC 4 -

i want export excel sheet using excel interloop... i have datatable convert excel sheet... now there way save file using save dialogue box in mvc 4 here code public string datatabletoexcel(datatable dt, string htmlheading, string key) { try { microsoft.office.interop.excel.application excel; microsoft.office.interop.excel.workbook excelworkbook; microsoft.office.interop.excel.worksheet excelsheet; microsoft.office.interop.excel.range excelcellrange; excel = new microsoft.office.interop.excel.application(); excel.visible = false; excel.displayalerts = false; excelworkbook = excel.workbooks.add(type.missing); excelsheet = (microsoft.office.interop.excel.worksheet)excelworkbook.activesheet; excelsheet.name = "sheet1"; dataset ...
Read more

xslt 1.0 - How to access or retrieve mets content of an item from another item? -

my use case have item has link in item. example, item 123456789/152 has metadata field dc.relation.hasversion=123456789/717 . within item view of 123456789/152 , how can retrieve values of metadata of 123456789/717 ? example, want retrieve dc.language.iso value of 123456789/717 123456789/152 . i looked @ related items feature in dspace don't know how metadata displayed in related items list pulled items in list. i using dspace version 5.3 mirage 2 theme . edit based on schweerelos answer, below actual code. using custom metadata field dc.relation.languageversion . basically, want link other version instead of displaying value, display dc.language.iso of other version in item-view.xsl . i've incorporated answer of schweerelos question in code just displaying value of dc.relation.languageversion . sample values of dc.relation.languageversion 10665.1/9843 ; 10665.1/9844 ie not complete uri handle. thanks in advance! actual code <xsl:template name=...
Read more