search file and write on position x

[akim]

hi,

 

i want to search a file for a specific number.

 

the number is 10 positions after the word PPI in the textfile.

when the number is found, i want to take the number and compare it to the another number.

 

can anyone give me an example???????

 

 

thx akim123

[dynamic_sysop]

   Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
       Dim sr As IO.StreamReader = New IO.StreamReader(New IO.FileStream("C:\test.txt", IO.FileMode.Open))
       Dim i As Integer, s As String, c As Char
       s = sr.ReadToEnd
       If InStr(s, "PPI", CompareMethod.Text) Then
           i = InStr(s, "PPI", CompareMethod.Text)
           c = Mid(s, i + 10) '/// get the char 10 places after PPI
           '/// do your stuff to compare numbers , eg:
           Select Case c
               Case "7"
                   MessageBox.Show("the numbers match!")
               Case Else
                   MessageBox.Show("the numbers are different!")
           End Select
       End If
       sr.Close()
   End Sub

hope this helps :)

[akim]

hi,

 

first af all , thanx for your great example!!!!!!!!!

 

now i have the problems that i want to have not only position 10 after the word PPI , i want to have the numbers 10 - 15 after ppi.

 

can you help me??

 

thanx alot

 

 

akim123

[mutant]

Dim reader As New IO.StreamReader("pathtofile")
Dim filetext As String = reader.ReadToEnd()
Dim ppistart As Integer = filetext.IndexOf("PPI") + 3 'add 3 becuase 
'the word is 3 letter long so we get the number right after the word
Dim numbers() As Char = filetext.Substring(ppistart + 10, 5)
'start at 10 positions after "PPI" was found, and get next 5 characters
reader.Close()

The numbers() array will now contain all the 5 numbers 10-15.

You should use those methods of the string instead of the ones dynamic_sysop showed you.

[akim]

thx alot for your example. it really helped me out.

 

with your example i got the value i want into numbers.

 

but it is of type char.

 

i can't say

 

dim i,s as integer

 

i = 200

 

s = i + numbers.

 

can you help me

 

thx akim

[mutant]

Change the declaration of numbers() to:

Dim numbers As String = filetext.Substring(ppistart + 10, 5)
'then convert the string to a number
Convert.ToInt32(numbers)

Then convert the string to a number.

[akim]

Hi,

 

thx for your example.

 

ok,

 

i made it like th is:

 

dim numbers as double = filetext.Substring(ppistart + 10, 5)

 

it works.

 

but the value in my textfile is for example 23.5332

 

it should be a double value.

when i see the output of numbers it gives me 235332

it must be 23,5332. --> a double value in the end .

 

can you help me???????

 

 

thx akim

[xSwan]

Try convert Convert.ToDouble(numbers)?