Dear Pak Taufik,
Terima kasih Banyak atas bantuannya. Regards, Wahyu _____ From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of Taufik I Sent: Thursday, March 22, 2007 02:52 PM To: [email protected] Subject: Re: [indoprog-vb] Text File kita asumsikan: - tidak menginginkan 3 angka di setiap barisnya - selalu diawali dengan 3 angka plus 1 spasi - semua spasi yang tersisa di belakang baris dibuang Hasilnya akan seperti msgbox2.jpg terlampir. Dengan VB6, 1. Pada Project, References: tambahkan Microsoft Scripting Runtime (harus, kalau tidak komponen FileSystemObject dan TextStream error) 2. buat form dan satu command button, copy paste code dibawah ini: Private mFSO As New FileSystemObject Private mts As TextStream Private mFile1 As File Option Explicit Private Sub Command1_Click() Dim vLineText As String, vTmpText As String, vText As String, _ vLen As Integer Set mFile1 = mFSO.GetFile("C:\TextFile.txt") Set mts = mFile1.OpenAsTextStream(ForReading) Do While Not mts.AtEndOfStream vLineText = Trim(mts.ReadLine) vLen = Len(vLineText) vTmpText = Right(vLineText, vLen - 4) vText = vText + vTmpText Loop MsgBox vText End Sub 'semoga membantu 'rgds F Wahyu Wijanarko <wahyu.wijanarko@ <mailto:wahyu.wijanarko%40aplcare.com> aplcare.com> wrote: Dear All, Ada yang bisa Bantu saya bagaimana script VB 6 untuk membaca file yang saya kirim, karena records nya jadi satu tidak perline. Thanks Wahyu CONFIDENTIALITY NOTICE: This communication (which term shall include any attachments) contains information which is confidential and proprietary in nature and the copyright in which belongs to Interpharma Asia Pacific or a subsidiary of Interpharma Asia Pacific (hereafter referred to jointly and singularly as Interpharma) or a third party. This communication is intended solely for the individual to whom it is addressed. If you are not the intended recipient of this communication, you may not disseminate, distribute, copy or otherwise disclose or use the contents of this communication without the written authority of Interpharma. If you have received this communication in error, please delete and destroy all copies and kindly notify the sender by return email or telephone immediately. Thank you. Interpharma makes no representations or warranties in respect of the integrity of this communication, including but not limited to any warranty that this communication is free of errors, viruses or other malicious code, interception or interference. __________________________________________________________ This message has been checked for all known viruses by the MessageLabs Virus Scanning Service. For further information, visit http:\\www.messagelabs.com\stats.asp ---------- 001 CMB 002 NBI 003 NBI & CMB 004 SSC 005 CMB & SSC 006 MAC 007 CMB & MAC 008 BII 009 CMB & BII 010 INT 011 GS1 012 GS2 013 SPI 014 JJ1 015 JJ2 016 JNJ 017 FRL 018 NIS 019 OTC 020 EIS 021 ABI 022 ABD 023 ICN 024 ULI 025 YMI 026 KFA 027 TPS 028 TMI 029 TCJ 030 DPL 031 SSL 032 GWS 033 AMR 034 UNZ 035 DPF 036 RCI 037 KFI 038 SIS 039 SNJ 040 TII 041 IDM 042 NLI 043 ATD 044 SLI 045 URC 046 KLI 047 CTA 048 CMB & ICN 049 CMB & ABI 050 CMB&SLI 051 CMB&FR 053 DGS 054 IUS 059 BYI 060 SKB 061 ABT 062 ABC 063 Reckitt Benckiser 064 Hoyu Indonesia 065 IDA 066 MJI 067 PFZ 068 PRF [Non-text portions of this message have been removed] --------------------------------- Bored stiff? Loosen up... Download and play hundreds of games for free on Yahoo! Games. [Non-text portions of this message have been removed] _____________________________________________________________________ This message has been checked for all known viruses by the MessageLabs Virus Scanning Service. For further information visit http://www.messagelabs.com/stats.asp CONFIDENTIALITY NOTICE: This communication (which term shall include any attachments) contains information which is confidential and proprietary in nature and the copyright in which belongs to Interpharma Asia Pacific or a subsidiary of Interpharma Asia Pacific (hereafter referred to jointly and singularly as Interpharma) or a third party. This communication is intended solely for the individual to whom it is addressed. If you are not the intended recipient of this communication, you may not disseminate, distribute, copy or otherwise disclose or use the contents of this communication without the written authority of Interpharma. If you have received this communication in error, please delete and destroy all copies and kindly notify the sender by return email or telephone immediately. Thank you. Interpharma makes no representations or warranties in respect of the integrity of this communication, including but not limited to any warranty that this communication is free of errors, viruses or other malicious code, interception or interference. _______________________________________________________________________ This message has been checked for all known viruses by the MessageLabs Virus Scanning Service. For further information, visit http:\\www.messagelabs.com\stats.asp ---------- 001 CMB 002 NBI 003 NBI & CMB 004 SSC 005 CMB & SSC 006 MAC 007 CMB & MAC 008 BII 009 CMB & BII 010 INT 011 GS1 012 GS2 013 SPI 014 JJ1 015 JJ2 016 JNJ 017 FRL 018 NIS 019 OTC 020 EIS 021 ABI 022 ABD 023 ICN 024 ULI 025 YMI 026 KFA 027 TPS 028 TMI 029 TCJ 030 DPL 031 SSL 032 GWS 033 AMR 034 UNZ 035 DPF 036 RCI 037 KFI 038 SIS 039 SNJ 040 TII 041 IDM 042 NLI 043 ATD 044 SLI 045 URC 046 KLI 047 CTA 048 CMB & ICN 049 CMB & ABI 050 CMB&SLI 051 CMB&FR 053 DGS 054 IUS 059 BYI 060 SKB 061 ABT 062 ABC 063 Reckitt Benckiser 064 Hoyu Indonesia 065 IDA 066 MJI 067 PFZ 068 PRF [Non-text portions of this message have been removed]
