quicker way to write file?

[jimmygoska]

Sorry to be a pest, but you guys were really helpful with the last issue so maybe you can correct my methods again?
The program I'm writing also creates that hammer_8_8.txt file which is a column of variables next to a column of their values. at the moment my program is really slow at writing the text file so I was wondering if there is a quicker way to do it than the way I have it?

My.Computer.FileSystem.WriteAllText("OASIC\hammer_8_8.txt", "no_bess                         " & BesselsText.Text & vbNewLine, True)
        My.Computer.FileSystem.WriteAllText("OASIC\hammer_8_8.txt", "nx_dx                           " & trans & " " & TransText.Text & vbNewLine, True)
        My.Computer.FileSystem.WriteAllText("OASIC\hammer_8_8.txt", "nz_dz                           " & trans & " " & AxialText.Text & vbNewLine, True)
        My.Computer.FileSystem.WriteAllText("OASIC\hammer_8_8.txt", "nx_min_nx_max                   " & TransMinText.Text & " " & TransMaxText.Text & vbNewLine, True)
        My.Computer.FileSystem.WriteAllText("OASIC\hammer_8_8.txt", "nz_min_nz_max                   " & AxialMinText.Text & " " & AxialMaxText.Text & vbNewLine, True)
        My.Computer.FileSystem.WriteAllText("OASIC\hammer_8_8.txt", "set_xsymmetry                   " & SymmetryText.Text & vbNewLine, True)
        My.Computer.FileSystem.WriteAllText("OASIC\hammer_8_8.txt", "set_triangular                  " & tri & vbNewLine, True)
        My.Computer.FileSystem.WriteAllText("OASIC\hammer_8_8.txt", "hole_radii(no_power_of_2)       " & RadiusText.Text & " " & RadiusText2.Text & vbNewLine, True)
        My.Computer.FileSystem.WriteAllText("OASIC\hammer_8_8.txt", "neff                            " & neffText.Text & vbNewLine, True)
        My.Computer.FileSystem.WriteAllText("OASIC\hammer_8_8.txt", "ip_width_op_width               " & IPText.Text & ". " & OPText.Text & "." & vbNewLine, True)
        My.Computer.FileSystem.WriteAllText("OASIC\hammer_8_8.txt", "lam                             " & WavelengthText.Text & vbNewLine, True)
        My.Computer.FileSystem.WriteAllText("OASIC\hammer_8_8.txt", "ip_ang                          " & IPAngleText.Text & vbNewLine, True)
        My.Computer.FileSystem.WriteAllText("OASIC\hammer_8_8.txt", "ip_z_op_z                       " & IPzText.Text & " " & OPzText.Text & vbNewLine, True)
        My.Computer.FileSystem.WriteAllText("OASIC\hammer_8_8.txt", "no_passes                       " & PassesText.Text & vbNewLine, True)
        My.Computer.FileSystem.WriteAllText("OASIC\hammer_8_8.txt", "no_in_pop                       " & PopulationText.Text & vbNewLine, True)
        My.Computer.FileSystem.WriteAllText("OASIC\hammer_8_8.txt", "mut%                            " & MutText.Text & vbNewLine, True)
        My.Computer.FileSystem.WriteAllText("OASIC\hammer_8_8.txt", "ip_xcen_op_xcen                 " & IPxText.Text & " " & OPxText.Text & vbNewLine, True)
        My.Computer.FileSystem.WriteAllText("OASIC\hammer_8_8.txt", "ov_nx_ox_max                    " & ovnxText.Text & " " & ovxmaxText.Text & vbNewLine, True)
        My.Computer.FileSystem.WriteAllText("OASIC\hammer_8_8.txt", "crossover%                      " & CrossoverText.Text & vbNewLine, True)
        My.Computer.FileSystem.WriteAllText("OASIC\hammer_8_8.txt", "ref_wt                          " & refwtText.Text & vbNewLine, True)
        My.Computer.FileSystem.WriteAllText("OASIC\hammer_8_8.txt", "no_elites                       " & ElitesText.Text & vbNewLine, True)
        My.Computer.FileSystem.WriteAllText("OASIC\hammer_8_8.txt", "seed_random_seed                " & RandomSeedsText.Text & vbNewLine, True)
        My.Computer.FileSystem.WriteAllText("OASIC\hammer_8_8.txt", "solver_res_tol                  " & SolvResText.Text & vbNewLine, True)
        My.Computer.FileSystem.WriteAllText("OASIC\hammer_8_8.txt", "solver_overlap_tol              " & SolvResText.Text & vbNewLine, True)
        My.Computer.FileSystem.WriteAllText("OASIC\hammer_8_8.txt", "use_iterative                   " & 1 & vbNewLine, True)
        My.Computer.FileSystem.WriteAllText("OASIC\hammer_8_8.txt", "use_FMM                         " & 1 & vbNewLine, True)
        My.Computer.FileSystem.WriteAllText("OASIC\hammer_8_8.txt", "solver_max_iter                 " & MaxIterText.Text & vbNewLine, True)
        My.Computer.FileSystem.WriteAllText("OASIC\hammer_8_8.txt", "no_pars                         " & noparsText.Text & vbNewLine, True)

 

[JohnH]

How to: Write Text to a File