| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1720 人关注过本帖
标题:求助VB转C#
只看楼主 加入收藏
wyw9982006
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2016-9-18
结帖率:0
收藏
已结贴  问题点数:20 回复次数:2 
求助VB转C#
各位好,新手刚接触C#,有份VB版的小程序代码,需要转换成C#,需要寻求帮助,可适当付费,麻烦大家看看,多谢

部分代码如下:
Dim Input_Data_APP As Excel.Application
Dim Input_Data_WB As Excel.Workbook
Dim Input_Data_WS Data1 As Excel.Worksheet
Dim Input_Data_WS_Data2AsExcel.Worksheet
Dim Output_Data WS A sExcel.Worksheet
Set Input_Data_APP = CreateObject("Excel.Application")
Set Input_Data_WB = Input_Data_APP.Workbooks.Open(LOCA_DIF_Path)
Set Input_Data_WS_Data1 = Input_Data_WB.Worksheets(1)
Set Input_Data_WS_Data2 = Input_Data_WB.Worksheets(2)
Input_Data_APP.Visible = True
Dim V(1 To 9,1 To 2)                 
Dim L(1 To 100,1 To 31)
Dim D_Ele(1 To 100,1 To 2)            
Dim D_Par(1 To 100,1 To 2)            
Dim R(1 To 100,1 To 9)
Dim Rate_I_Ele                     
Dim Rate_I_Par                        
Dim Rate_I_Org                        
Dim Name_Ele(1 To 200)
Dim Style_Ele(1 To 200)
Dim Lamda(1 To 200)
Dim A_Core(1 To 200)
Dim A_Start(1 To 200)
Dim T_Start
Dim NO_Ele
Dim V_CODE(1 To 9)
Dim L_CODE(1 To 9, 1 To 9, 1 To 730)
Dim L_Out_Total(1 To 9, 1 To 730)
Dim D_Ele_CODE(1 To 7300)
Dim D_Par_CODE(1 To 7300)
Dim R_C0DE(1 To 8,1 To 7300)
Dim T_Fenduan(0 To 20000)
Dim A_Node(1To200,1To9)
Dim A_Ele_Node(1 To 200, 1 To 9)
Dim A_Org_Node(1 To 200, 1 To 9)
Dim A_Par_Node(1 To 200, 1 To 9)
     For i = 1 To 9
       For j = 1 To 2                  
         V(i,j) = Input_Data_WS_Data1.Cells(i + 5, j + 1)
       Next j
     Next i
     For i = 1 To 100
       For j = 1 To 31
         L(i,j) = Input_Data_WS_Data1.Cells(i + 4, j + 24)
       Next j
     Next i
     For i = 1 To 100
       For j = 1 To 2
         D_Ele(i,j) = Input_Data_WS_Data1.Cells(i + 5, j + 5)
       Next j
     Next i
     For i = 1 To 100
       For j = 1 To 2
         D_Par(i,j) = Input_Data_WS_Data1.Cells(i + 5, j + 9)
       Next j
     Next i
     For i = 1 To 100
       For j = 1 To 9
         R(i,j) = Input_Data_WS_Data1.Cells(i + 5, j + 13)
       Next j
     Next i
     Rate_I_Ele = Input_Data_WS_Data1.Cells(l, 6)
     Rate_I_Org = Input_Data_WS_Data1.Cells(2, 6)
     Rate_I_Par = Input_Data_WS_Data1.Cells(3, 6)
     NO_Ele = 0
     For i = 4 To 203
       If Input_Data_WS_Data2.Cells(i, 3) <> "" Then
         NO_Ele = NO_Ele + 1
         Name_Ele(NO_Ele) = Input_Data_WS_Data2.Cells(i, 3)
         Style_Ele(NO_Ele) = Input_Data_WS_Data2.Cells(i, 4)
         Lamda(NO_Ele) = Input_Data_WS_Data2.Cells(i, 5)
         A_Core(NO_Ele) = Input_Data_WS_Data2.Cells(i, 6)
         A_Start(NO_Ele) = Input_Data_WS_Data2.Cells(i, 7)
       End if  
2016-09-18 15:19
wp231957
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:神界
等 级:贵宾
威 望:423
帖 子:13688
专家分:53332
注 册:2012-10-18
收藏
得分:20 
看样子是和excel数据提取有关   你可以说一下你的需求

不一定要翻译其他代码

DO IT YOURSELF !
2016-09-18 15:31
wyw9982006
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2016-9-18
收藏
得分:0 
回复 2楼 wp231957
对的,与excel相关,主要是以excel为总的输入数据,从中提取对应的数据,然后根据数学公式进行计算,输出结果。
不知阁下可否提供帮助?愿意提供一定的报酬。有意我们详谈,谢支持。
2016-09-18 16:49
快速回复:求助VB转C#
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.027839 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved