Visual Basic

rkinning wrote:

if not I will need to search for another professional Basic that can do the job

Bastard Programmer from Hell
If you can't read my code, try converting it here[^]

jkirkerx wrote:

New ReportDataSource("ds_invoice_items", ds_items.Tables(0))

Private Sub SetSubDataSource(ByVal sender As Object, ByVal e As SubreportProcessingEventArgs)
    Dim FINVNO As Integer = Integer.Parse(e.Parameters("FINVNO").Values.First)
    Dim mainSource As ReportDataSource = DirectCast(sender, LocalReport).DataSources("ds_invoice_items")
    Dim mainTable As DataTable = DirectCast(mainSource.Value, DataTable)
    Dim subSource As New DataView(mainTable)
    subSource.RowFilter = String.Format("FINVNO = {0:D}", FINVNO)
    e.DataSources.Add(New ReportDataSource("ds_invoice_items", subSource))
End Sub

{0:d}

Dim FINVNO = Integer.Parse(e.Parameters("FINVNO").Values.First)
Dim ds_invoiceItems As ReportDataSource = CType(sender, LocalReport).DataSources("ds_invoice_items")
Dim dt_invoiceItems As DataTable = ds_invoiceItems.Value

Dim dv_invoiceItems As New DataView(dt_invoiceItems)
Dim view_items = dv_invoiceItems.ToTable().Rows.Cast(Of DataRow)()
Dim table_items As DataTable = view_items.Where(Function(row) row.Field(Of String)("FINVNO") = FINVNO).CopyToDataTable()

Dim ds_items As New DataSet()
ds_items.DataSetName = "ds_invoice_items"
ds_items.Tables.Clear()
ds_items.Tables.Add(table_Items)
ds_items.Tables(0).TableName = "tablix_invoice_items"

e.DataSources.Add(New ReportDataSource("ds_invoice_items", ds_items.Tables(0)))

Afzaal Ahmad Zeeshan wrote:

Can you show the response that it read, vs. the input that was given?

Sub readtext()
    Dim path As String = Directory.GetCurrentDirectory()
    Dim fileReader As String
    fileReader = My.Computer.FileSystem.ReadAllText(path + Form1.TextBox1.Text + ".txt")
    Form1.TextBox2.Text = fileReader
End Sub
Sub writetext()
    Dim objStreamWriter As StreamWriter
    Dim path As String = Directory.GetCurrentDirectory()
    objStreamWriter = New StreamWriter(path + Form1.TextBox1.Text + ".txt")
    objStreamWriter.WriteLine(Form2.TextBox2.Text)
    objStreamWriter.Close()

End Sub

Sub readtext()
    Dim folderPath As String = Directory.GetCurrentDirectory()
    Dim filePath As String = Path.Combine(folderPath, Form1.TextBox1.Text + ".txt")
    If Not File.Exists(filePath) Then
        MessageBox.Show("File not found.")
        Return
    End If
    
    Try
        Dim fileContents As String = File.ReadAllText(filePath)
        Form1.TextBox2.Text = fileContents
    
    Catch ex As FileNotFoundException
        MessageBox.Show("File was deleted")
    
    Catch ex As IOException
        MessageBox.Show(ex.Message)
    End Try
End Sub

Sub writetext()
    Dim folderPath As String = Directory.GetCurrentDirectory()
    Dim filePath As String = Path.Combine(folderPath, Form1.TextBox1.Text + ".txt")
    
    Using writer As StreamWriter = File.AppendText(filePath)
        writer.WriteLine(Form2.TextBox2.Text)
    End Using
End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
     Dim folderPath As String = Directory.GetCurrentDirectory()
     Dim filePath As String = Path.Combine(folderPath + ("Data1.ini"))
     TextBox7.Text = File.ReadAllLines(filePath).FirstOrDefault(Function(x) x.Contains("11/12/2016"))
 End Sub

Dim filePath As String = Path.Combine(folderPath + ("Data1.ini"))

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim folderPath As String = Directory.GetCurrentDirectory()
    Dim filePath As String = Path.Combine(folderPath, "TextFile1.txt") ' note, 2 arguments.
    TextBox1.Multiline = True
    TextBox1.Size = New Size(100, 100)
    TextBox1.Text = String.Join(Environment.NewLine, File.ReadAllLines(filePath).Where(Function(x) x.Contains("audio")))
End Sub

Bastard Programmer from Hell
If you can't read my code, try converting it here[^]