使用vb.net在特定列中查找特定文本/字符串的行

-1

即時通訊新的Vb.net，並想問如何找到特定列中特定字符串的確切行號。例如：使用vb.net在特定列中查找特定文本/字符串的行

1 CEBE 
2 START 
3 Aico, Pilar 
4 END

在上面的例子我想獲得文本/字符串開頭的行數是第2行和END這是在第4行我會怎麼做呢？提前致謝。

來源

2014-01-23 Aljie

既然你沒有指定什麼類型的行，你使用列的，這裏有一個粗略的想法：'昏暗的指數作爲新的列表（整數）（）對於每一行作爲對象的東西 \t如果row.text = 「啓動」或row.text = 「END」然後 \t \t index.Add（row.index） \t結束如果 Next' – davidsbro

這是一般的行柱。 – Aljie

好的，如果您替換您使用的列和行的類型，代碼示例應該可以工作。你試過了嗎？ – davidsbro

循環代碼按列和行計數。

Dim xlApp As Excel.Application 
    Dim xlWorkBook As Excel.Workbook 
    Dim xlWorkSheet As Excel.Worksheet 
    Dim range As Excel.Range 
    Dim rCnt As Integer 
    Dim cCnt As Integer 
    Dim Obj As Object 

    xlApp = New Excel.Application 
    xlWorkBook = xlApp.Workbooks.Open("c:\Schedule.xlsx") 
    xlWorkSheet = xlWorkBook.Worksheets("sheet1") 

    range = xlWorkSheet.UsedRange 

    For rCnt = 1 To range.Rows.Count 
     For cCnt = 1 To range.Columns.Count 
      Obj = CType(range.Cells(rCnt, cCnt), Excel.Range) 
      MsgBox(Obj.value) 
     Next 
    Next 

    xlWorkBook.Close() 
    xlApp.Quit() 

    releaseObject(xlApp) 
    releaseObject(xlWorkBook) 
    releaseObject(xlWorkSheet)

末次

Private Sub releaseObject(ByVal obj As Object) 
    Try 
     System.Runtime.InteropServices.Marshal.ReleaseComObject(obj) 
     obj = Nothing 
    Catch ex As Exception 
     obj = Nothing 
    Finally 
     GC.Collect() 
    End Try

來源

2014-01-27 03:26:42

使用vb.net在特定列中查找特定文本/字符串的行

回答

相關問題