anything anything 1-712-222-3333 G3 0 0
This is an address book for a fax driver. The first two columns can be anything (just need something in them). Then three blank columns, the fax number, two blank columns, 0, four blank columns, 0
The app will have a multi-line textbox that the user can paste a list of fax numbers into, press a button and have the fax numbers written to a .csv . Each row (in excel) will be exactly the same except the fax number.
So far what I have is:
Imports System Imports System.IO Imports System.Text Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim array() As String = TextBox1.Lines Dim i As Integer = 0 array = TextBox1.Text.Split(" ") For i = 0 To array.GetUpperBound(0) File.WriteAllText("c:\test.csv", "." & ",") File.AppendAllText("c:\test.csv", array(i)) Next i End Sub
This gets me a .csv with all the fax numbers, but i have no idea how to add in the static text and spaces for each row.
Any suggestions will be hugely appreciated. Thanks,