Comments by Mr.Kim2050 (Top 61 by date)

hi OriginalGriff

do you have sample in vb.net ?

so for example if you using Binary reader to read text file line by line and you want to search each string contain in text you being read is match with any string like Dim str() As String = {"chat.com", "ABC.com", "stripABC.com"} , how can you do the code ?

yes it read successful to read line but when i try to take the LoadLine.contains , it has the problem appear

so for example if you using Binary reader to read text file line by line and you want to search each string contain in text you being read is match with any string like Dim str() As String = {"chat.com", "ABC.com", "stripABC.com"} , how can you do the code ?

so, how could i using binary reader file text line by line in formload and using string.contain to check if text file really contain the value i need or not ?

thanks with your answer , hope i could find any solution other to solve it.

I try to use String.Contains() like this but when i start to compile the program it show the message error

System.NullReferenceException: Object reference not set to an instance of an object.
at WindowsApp1.Form1.Form1_Load(Object sender, EventArgs e) in C:\Users\USER\source\repos\WindowsApp1\WindowsApp1\Form1.vb:line 20



Imports System.IO
Imports System.Text

Public Class Form1

Dim TextBinaryWrite As BinaryWriter
Dim MyFileName As String = "MyFavorith.txt"
Dim str() As String = {"chat.com", "ABC.com", "stripABC.com"}
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
If My.Computer.FileSystem.FileExists(MyFileName) Then

Dim Loadline As String
Dim readFile As System.IO.TextReader = New StreamReader(MyFileName)
Dim MName As String
Dim WebType As String = ""
Try
While True
Loadline = readFile.ReadLine()

If Loadline.Contains("stripABC.com") = True Then
WebType = "stripABC.com"
End If

If Loadline Is Nothing Then
Exit While
End If

Dim Row As String() = New String() {MName, Loadline}
'Dim Row As String() = New String() {MName, WebType, "", Loadline}
DataGridView1.Rows.Add(Row)

End While
readFile.Close()
readFile = Nothing
LbStatuse.Text = "State : File is load completed."

Catch ex As Exception
TextBox1.Text = ex.ToString
LbStatuse.Text = "Error Try when load file" & ex.ToString
End Try

Else
'Create new file if no have
Try
TextBinaryWrite = New BinaryWriter(New FileStream(MyFileName, FileMode.Create))
LbStatuse.Text = "Statuse : " & MyFileName & " is created."
TextBinaryWrite.Close()
Catch ex As Exception
LbStatuse.Text = ex.Message + "Cannot create file."
Return
End Try
End If

End Sub


I dont know why can't use this code ??

If Loadline.Contains("stripABC.com") = True Then
WebType = "stripABC.com"
End If

yes i know this code below is not work , that why i try to find other solution, do you have any example code for me beside Microsoft Docs , because i am not good with it .

I used to search inside the internet, i found this code is work with richtextbox search , i want to edit inside this code below by change from using richtexbox.find to using value "Line" which get from loading textfile "www.live.com" ,


Dim str() As String = {"ABA.com", "live.com", "chat.com"}
Dim WebType as string

If FindMyText(str(0)) = True Then 'chaturbate.com
WebType = str(0)

TextAppend(MName, WebType, WebURL, MyFileName)
ElseIf FindMyText(str(1)) Then
WebType = str(1)
End if


Public Function FindMyText(text As String) As Boolean

Dim returnValue As Boolean = False ' Initialize the return value to false by default.
If text.Length > 0 Then ' Ensure a search string has been specified.
Dim indexToText As Integer = RichTextBox1.Find(text) ' Obtain the location of the search string in richTextBox1.
If indexToText >= 0 Then ' Determine whether the text was found in richTextBox1.
returnValue = True
End If
End If
Return returnValue
End Function

hi bro, my problem is when i try to read data "www.live.com " in text file load into datagridview when formload by using function FindMyText to compare "www.live.com" from text file isn't have any values match with Str() array or not? if it has value match, just return the index. but i have problem can't compare text , i dont know how to do with it , pls help me if you know how to compare string like this

Dim indexToText As Integer = text

Error code 3:

Try
Br = New BinaryReader(New FileStream(MyFileName, FileMode.Open))
AcceptValue = Br.ReadString()
Dim Row As String() = New String() {"Pos1", AcceptValue, "Online"}
DataGridView1.Rows.Add(Row)
Catch ex As Exception
txtStatuse.Text = ex.Message & "Error Load File"
Return
End Try
Br.Close()
Else
Try
TextBinaryWrite = New BinaryWriter(New FileStream(MyFileName, FileMode.Create))
txtStatuse.Text = "Statuse : " & MyFileName & " is created."
TextBinaryWrite.Close()
Catch ex As Exception
txtStatuse.Text = ex.Message + "Cannot create file."
Return
End Try

Error code 2:


If My.Computer.FileSystem.FileExists(MyFileName) Then
Dim Br As BinaryReader
Dim AcceptValue As String

Try
Using BinReader As New BinaryReader(File.Open(MyFileName, FileMode.Open))
Dim Pos As Integer = 0
Dim Length As Integer = BinReader.BaseStream.Length

While Pos < Length
Dim AcceptValue As String = BinReader.ReadString
Dim Row As String() = New String() {Pos, AcceptValue, "Online"}
DataGridView1.Rows.Add(Row)
Pos += 1
End While
End Using

Else
Try
TextBinaryWrite = New BinaryWriter(New FileStream(MyFileName, FileMode.Create))
txtStatuse.Text = "Statuse : " & MyFileName & " is created."
TextBinaryWrite.Close()
Catch ex As Exception
txtStatuse.Text = ex.Message + "Cannot create file."
Return
End Try
End If

hi OriginalGriff

thanks, with your reply I will try the code you send to me soon but i have some more question relate to this code below which i have search from internet how to read binary text file into DataGridview, i got 3 kinds of code which i dont know why or where error with logic, please help to edit or correct the mistake for me if you know the answer why? thanks in advance

Code1:

If My.Computer.FileSystem.FileExists(MyFileName) Then
' Need to write load text file
Dim ReadStream As FileStream
Dim AcceptValue As String

Try
' Here is the error part
ReadStream = New FileStream(MyFileName, FileMode.Open)
Dim ReadBinaryVal As New BinaryReader(ReadStream)
AcceptValue = ReadBinaryVal.ReadString()
Dim Row As String() = New String() {"Model 1", AcceptValue, "Online"}
DataGridView1.Rows.Add(Row)
ReadStream.Close()
Else
Try
TextBinaryWrite = New BinaryWriter(New FileStream(MyFileName, FileMode.Create))
txtStatuse.Text = "Statuse : " & MyFileName & " is created."
TextBinaryWrite.Close()
Catch ex As Exception
txtStatuse.Text = ex.Message + "Cannot create file."
Return
End Try
End If

ooh yes, it working right now, thanks you so much for your help, finally i could finish it as what i dream.

ooh yes, it working right now, thanks you so much for your help, finally i could finish it as what i dream

what i expected with this code do is like this, when i click the button convert it will go to call cmd.exe and FFEMG.exe start to process covert the .TS to .MP4 by using timer to count the how many minutes will spend to finish these jobs and after cmd.exe and FFEMG.exe finish the jobs, it will go to close windows and timer also stop to count period too. i try to find this solution but i dont know how to do.

what i expected with this code do is like this, when i click the button convert it will go to call cmd.exe and FFEMG.exe start to process covert the .TS to .MP4 by using timer to count the how many minutes will spend to finish these jobs and after cmd.exe and FFEMG.exe finish the jobs, it will go to close windows and timer also stop to count period too. i try to find this solution but i dont know how to do.

i am not sure how to build this code , could you help to build this could out ?

i try to follow using while loop but it still meet problem that timer is not running , i dont know why.

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnCovert.Click

btnCovert.Enabled = False
Dim FileName1 As String = System.IO.Path.GetFileNameWithoutExtension(OpenFileDialog1.FileName) 'Get only Flie name without extension
Dim FileName2 As String = OpenFileDialog1.FileName
Dim programName As String = "ffmpeg.exe"
System.Diagnostics.Process.Start(Application.StartupPath & "\" & programName)
'Process.Start("cmd.exe", "/c ffmpeg.exe -i " & FileName2 & " -c:v libx264 " & "Down\" & FileName1 & ".mp4")
'============================================================================

Dim p As System.Diagnostics.Process
Dim active As Boolean = True
AMins = 0
ASecond = 0
'p = Process.Start("cmd.exe", "/c ffmpeg.exe -i " & FileName2 & " -c:v libx264 " & "Down\" & FileName1 & ".mp4")
p = System.Diagnostics.Process.Start("cmd.exe", "/c ffmpeg.exe -i " & FileName2 & " -c:v libx264 " & "Down\" & FileName1 & ".mp4")

Timer1.Start()
While p.HasExited = False

btnFileOutInfor.PerformClick()
Timer1.Stop()
End While

'============================================================================


End Sub

i want to create one program which able to convert .TS file to .MP4 file, by using one button click to make process convert with cmd.exe and FFMEG commend. when click button convert i want to know how many minutes will spend to convert this process finish and when cmd.exe is done, the timer also stop.

it still meet the problem to call timer.stop() , i dont know why, i have change from IF to WHILE.

thanks let me try it after this.

because i dont know when FFEMG is finish to convert the .MP4 ready. so how can we do ?

if i dont need System.Threading.Thread.Sleep(500) , to delay isn't ok ???

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnCovert.Click
Dim p As Process
Dim active As Boolean = True
Timer1.Start()
p = Process.Start("cmd.exe", "/c ffmpeg.exe -i " & FileName2 & " -c:v libx264 " & "Down\" & FileName1 & ".mp4")
if p.HasExited then
Timer1.Stop()
msgbox("Close")
end if
end sub

i have try to using *.hasExited as you say but not working well, could you help check why ?



Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnCovert.Click
Dim p As Process
Dim active As Boolean = True
Timer1.Start()
p = Process.Start("cmd.exe", "/c ffmpeg.exe -i " & FileName2 & " -c:v libx264 " & "Down\" & FileName1 & ".mp4")
if p.HasExited then
Timer1.Stop()
msgbox("Close")
end if
end sub

i have follow what your code but not working well as what i need.

hi , could you have told me, seem that not working well, i dont know why. do you have any solution more ?

@Richard , can you advice me how to correct this code? i try to detect the cmd.exe when it finish job and close the main windows then timer will stop. but i can't set the right condition on it. could you help me how to do ?


Dim p As System.Diagnostics.Process
p = Process.Start("cmd.exe", "/c ffmpeg.exe -i " & FileName2 & " -c:v libx264 " & "Down\" & FileName1 & ".mp4")
Timer1.Start()

While p Is Nothing = True
Timer1.Stop()
MsgBox("Hello")
End While

@Dave Kreskowiak, can you advice me how to correct this code? i try to detect the cmd.exe when it finish job and close the main windows then timer will stop. but i can't set the right condition on it. could you help me how to do ?


Dim p As System.Diagnostics.Process
p = Process.Start("cmd.exe", "/c ffmpeg.exe -i " & FileName2 & " -c:v libx264 " & "Down\" & FileName1 & ".mp4")
Timer1.Start()

While p Is Nothing = True
Timer1.Stop()
MsgBox("Hello")
End While

i have long time never touch with vb.net, since i finished from school and i just try to use with FFMEG first time. so i meet lot of confuse with logic and syntax sometime . thanks with your share

^^ , Oh Yes, it really work. thanks you

Richard, could you give me example of it ?

i try to create one code which can download website source code, then after i got the web source code, i want to search and select from which first keyword until end keyword. but i dont know how to do. if you know how to do , pls help show me.

thanks let me check.

the problem is this vb6 code is not my own code build up, is someone post in google, and i try to rewrite this code again. i really hope someone will know how to do it

the problem is this vb6 code is not my own code build up, is someone post in google, and i try to rewrite this code again. i really hope someone will know how to do it

ok thanks you

hi, Richard, may i ask more question relate to code in cmd.exe? I want to write more code inside the code you provide me yesterday like this:

Process.Start("cmd.exe", "/k ffmpeg -i " & FileName2 & " -c:v libx264 " & "Down\\" & FileName1 & ".mp4")

1. when the cmd.exe is finish to covert the file from .TS to .MP4, i want to add code to make cmd.exe to exit or i want to make cmd.exe to continues remove the source file .TS before exit.

how can i do that? i try to think using if condition but not working because i dont know how to write the code continue to control cmd.exe to make it execute. please help me if you can. thanks in advance

Richard, have you ever try to create any live streaming recorder before with Newtonsoft.Json.dll , i being looking to create this program with vb.net, if you have know , pls share with me

oh thanks you with your help.

how to do in batch script ?

oh yes , it really works , thanks you so much for your help, i have try to find the answer while google around 1 week ready but no one used to show the code in public before. now i got my answer from you help.

oh thank you , let me try this code i hope it work

when i try to add more commend inside cmd.exe like this

Process.Start("cmd.exe", "/k cd Down & ffmpeg -i " & FileName2 & " -c:v libx264 " & FileName1 & ".mp4")


it go to show the message below


'ffmpeg' is not recognized as an internal or external command,
operable program or batch file.

C:\Users\USER\source\convertTS\convertTS\bin\Debug\Down>

the problem inside this code like this, i try to create one convertor program which can convert .TS to .MP4 by using with FFMEG.exe file compeller, this FFEMG.exe need to using with cmd.exe.

I try to write code to commend cmd.exe to process convert file and put finish file .MP4 in one folder "Down" but i could do only ask cmd.exe to covert outside the folder "Down". i dont know how to edit the code to make it process as what i need in using cmd commend. pls help me if you know



Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Dim FileName1 As String = System.IO.Path.GetFileNameWithoutExtension(OpenFileDialog1.FileName) 'Get only Flie name without extension
Dim FileName2 As String = OpenFileDialog1.FileName
Dim programName As String = "ffmpeg.exe"

System.Diagnostics.Process.Start(Application.StartupPath & "\" & programName)
Process.Start("cmd.exe", "/k ffmpeg -i " & FileName2 & " -c:v libx264 " & FileName1 & ".mp4")

End Sub

Richard, i still wonder with one code below, i try to write code to control cmd.exe by give code to make of file into folder "DOWN" and continues to give one more commend to make file convert from .TS to .MP4 ? do you know how to do ?


Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim FileName1 As String = System.IO.Path.GetFileNameWithoutExtension(OpenFileDialog1.FileName) 'Get only Flie name without extension
Dim FileName2 As String = OpenFileDialog1.FileName
Dim programName As String = "ffmpeg.exe"

System.Diagnostics.Process.Start(Application.StartupPath & "\" & programName)
Process.Start("cmd.exe", "/k ffmpeg -i " & FileName2 & " -c:v libx264 " & FileName1 & ".mp4")

End Sub

oh yes, it works now , thanks you so much with your help , ^_^

may i know how to write the code which i can click to browse into application which i being running in Bin\Debug folder ? i have try this code but it show only main folder or root folder only which is not point into Bin\Debug folder i need. pls help me if you know

Private Sub bFolder_Click(sender As Object, e As EventArgs) Handles bFolder.Click
Process.Start(Environment.GetFolderPath(Environment.SpecialFolder.MyComputer))
End Sub

may i know how to write the code which i can click to browse into application which i being running in Bin\Debug folder ? i have try this code but it show only main folder or root folder only which is not point into Bin\Debug folder i need. pls help me if you know

Private Sub bFolder_Click(sender As Object, e As EventArgs) Handles bFolder.Click
Process.Start(Environment.GetFolderPath(Environment.SpecialFolder.MyComputer))
End Sub

what is difference between /K and /C ?

how can i edit this code to receive what i need ?

Process.Start("cmd.exe", "/k ffmpeg -i " & FileName2 & " -c:v libx264 " & FileName1 & ".mp4")

could you help me to full statement to control the cmd.exe , when it start to process to convert .TS to .MP4, let it create into any specific folder we need, example i want to create mp4 into folder name "Down" and when it finish create file, it auto close the cmd.exe


Process.Start("cmd.exe", "/k ffmpeg -i " & FileName2 & " -c:v libx264 " & FileName1 & ".mp4")

for this FFMPEG Video Converter with Progressbar VB.NET can convert .TS to .MP4 ?

can you help to write the full statement for me to see ?