VB 2008: Do Whie...Loop文について

質問

Function FileGetChar(ByVal f As String, ByVal p As Integer) As String
　　Dim i As Integer = 1
　　Dim j As Integer = 0
　　Dim l As Integer
　　Dim n As Integer = FreeFile()
　　Dim c As Char

　　If File.Exists(f) Then
　　　　FileOpen(n, f, OpenMode.Random, OpenAccess.Read, , 1)
　　　　l = FileLen(f)
　　　　Do While (i + j <= l)
　　　　　　FileGet(n, c, i + j)
　　　　　　j = j - (Math.Abs(Asc(c)) > 255)
　　　　　　i = i + 1
　　　　　　If i > p Then
　　　　　　　　Exit Do
　　　　　　Else
　　　　　　　　c = ""
　　　　　　End If
　　　　Loop
　　　　FileClose(n)
　　End If
　　Return c
End Function

[イミディエイトウインドウ]
? FileGetChar("D:\Temp\Test.txt",1)
"1"
? FileGetChar("D:\Temp\Test.txt",2)
"2"

と、一応は動作しています。

l------->ファイル長
i+j----->読み込みのカレントポジション
p------->読み込み指示ポジション

今、悩んでいるのはDo...Loop文中のIf Else End If の追放。
何か妙手があれば教えて頂きたい。

回答No.1

D-Matsu · ベストアンサー

Do While (i + j <= l) And (i <= p)
...
Loop

ってことですか？

お礼

Function FileGetChar4(ByVal f As String, ByVal p As Integer) As String
　　Dim i As Integer = 1
　　Dim j As Integer = 0
　　Dim l As Integer
　　Dim n As Integer = FreeFile()
　　Dim c As Char

　　If File.Exists(f) Then
　　　　FileOpen(n, f, OpenMode.Random, OpenAccess.Read, , 1)
　　　　l = FileLen(f)
　　　　Do While (i + j <= l) And (i <= p)
　　　　　　c = ""
　　　　　　FileGet(n, c, i + j)
　　　　　　j = j - (Math.Abs(Asc(c)) > 255)
　　　　　　i = i + 1
　　　　Loop
　　　　FileClose(n)
　　End If
　　Return c
End Function

これで正常に動作しないので困っています。

回答No.2

D-Matsu

あ、もひとつ。
> c = ""
はFileGet()の前に移動してください。

お礼

Function FileGetChar4(ByVal f As String, ByVal p As Integer) As String
　　Dim i As Integer = 1
　　Dim j As Integer = 0
　　Dim l As Integer
　　Dim n As Integer = FreeFile()
　　Dim c As Char

　　If File.Exists(f) Then
　　　　FileOpen(n, f, OpenMode.Random, OpenAccess.Read, , 1)
　　　　l = FileLen(f)
　　　　Do While (i + j <= l) And (i <= p)
　　　　　　FileGet(n, c, i + j)
　　　　　　j = j - (Math.Abs(Asc(c)) > 255)
　　　　　　i = i + 1
　　　　Loop
　　　　FileClose(n)
　　End If
　　Return IIf(p > i, "", c)
End Function

Do...Loop文の条件に問題があるとばっかり思い込んでいました。
要は、Return文で工夫すべき問題でした。

ともかく、回答を読んで再度テストする中で解決しました。
ありがとうございました。
これで、３、４時間も悪戦苦闘するとは我ながら情けない限りです。