I-BEGO

parah master mohon bantuannya :

pada sebuah file txt ada isi sbb :

MHS 001 NPPRomiAndela
MHS 002 NPPAndro
MHS 003 NPPHerry
...
dst ..

tugasnya membuat sebuah form dengan openfiledialog, lalu melakukan proses penggabungan menjadi :

MHS001 NPPRomiAndela
MHS002 NPPAndro
MHS003 NPPHerry

codingnnya bagaimana ya masta ..
mohon bantuannya ...

makasih

mungkin kaya gini oom ..

Code: Select all

Imports System.IO
Public Class Form1
    Dim newstr As String
    Dim op As OpenFileDialog
    Private Sub btnOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOpen.Click
        op = New OpenFileDialog
        If op.ShowDialog = Windows.Forms.DialogResult.OK Then
            If op.FileName <> "" Then
                Dim oRead As New StreamReader(op.FileName)
                Dim strinput As String = oRead.ReadToEnd()
                newstr = strinput.Replace("MHS ", "MHS")
                oRead.Close()
            End If
        End If
    End Sub

    Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
        If op.FileName <> "" Then
            Dim FStream As IO.FileStream = New IO.FileStream(op.FileName, IO.FileMode.Create, IO.FileAccess.Write)
            Dim oWrite As IO.StreamWriter = New IO.StreamWriter(FStream)
            oWrite.WriteLine(newstr)
            oWrite.Close()
            FStream.Close()
        End If
    End Sub
End Class


Hope this help