سرچ در فایل text

[Rain_Saeid]

سلام و درود

دوستان عزیز من یک فایل متنی دارم که میخوام ازش برای آدرس گرفتن فایل هام ازش استفاده کنم
به این صورت که :



:proc/1/net/dev_snmp6/
ccmni0
ccmni1
ccmni2
ifb0tunl0
wlan0

:proc/1/net/netfilter/
nf_log
nf_queue
nfnetlink_log
nfnetlink_queue



مثلا اگه فایل nf_queue رو خواستم، آدرسی که (همون آدرس که آخرش با : هست رو برام پیدا کنه) بالاتر از خودش هست رو جستجو کنه و اون آدرس رو برام چاپ کنه

ممنون میشم راهنمایی بفرمایید

[Alirezanet]

راه که زیاد داره ولی یه سمپل ساده براتون نوشتم.

Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
MsgBox(GetAddress("nf_queue"))
End Sub


Function GetAddress(name As String) As String
Dim x = ":proc/1/net/dev_snmp6/
ccmni0
ccmni1
ccmni2
ifb0tunl0
wlan0

:proc/1/net/netfilter/
nf_log
nf_queue
nfnetlink_log
nfnetlink_queue"


Dim lists = x.Split(":proc")
For Each l In lists
If l.Contains(name) Then
Return l.Split(vbNewLine).First
End If
Next


Return "NOT FOUND"
End Function
End Class