C# と VB.NET の質問掲示板

■No44461 (gonna さん) に返信
> 文字列の行数を取得するにはどうすればよいでしょうか?

Dim Line As Integer = 0
Using sr As New StringReader(文字列変数)
    While sr.Peek() <> -1
        sr.ReadLine()
        Line +=1
    End While
End Using

Line が行数

Module Program
  Sub Main()
    Dim input As String = "この文字列は" & Chr(10) & "３行で" & Chr(10) & "構成されています"
    Console.WriteLine( input.Split( New Char() { Chr(10) } ).Length )
  End Sub
End Module

# ...VBわかんねーや...

# ネタにつき注意

Module Module1
    Sub Main()
        Dim input As String = "この文字列は" & Chr(10) & "３行で" & Chr(10) & "構成されています"
        Dim filename As String = Path.GetTempFileName
        File.WriteAllText(filename, input)
        Console.WriteLine(File.ReadAllLines(filename).Length)
        File.Delete(filename)
        Console.ReadLine()
    End Sub
End Module

# ネタにつき注意
# Scripting Guy に教えてもらいました

Const adOpenStatic = 3
Const adLockOptimistic = 3
Const adCmdText = &H0001

Set objConnection = CreateObject("ADODB.Connection")
Set objRecordSet = CreateObject("ADODB.Recordset")

strPathToTextFile = "C:\temp\"
strFile = "Test.txt"

objConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                   "Data Source=" & strPathtoTextFile & ";" & _
                   "Extended Properties=""text;HDR=NO;FMT=Delimited"""

objRecordSet.Open "select count(*) from " & strFile, _
                  objConnection, adOpenStatic, adLockOptimistic, adCmdText

Wscript.Echo objRecordSet.Fields.Item(0).Value   

[解決済みチェック付けました]