Text Array

Hvad er det til, ASP, VB, VBS ?

Denne her burde virke uanset hvad du skal bruge den til.

'******************************************************
Option Explicit


'----------------------------------------------------------------
Dim StrTekst, StrNyTekst, ArrArray, Fso, File, T


'----------------------------------------------------------------
' Læs filen
Set Fso = CreateObject("Scripting.FileSystemObject")
Set File = fso.OpenTextFile("C:\1.txt")


While Not File.AtEndOfStream
    StrTekst = StrTekst & file.ReadLine
Wend

File.Close

Set File = Nothing
Set Fso = Nothing


'----------------------------------------------------------------
' Lav Array
ArrArray = Split(StrTekst, ",")


'----------------------------------------------------------------
' Generer ny tekststreng

For T=0 To Ubound(ArrArray)
    StrNyTekst = StrNyTekst & "," & ArrArray(T)
Next

'----------------------------------------------------------------
' Gem ny fil
Set Fso = CreateObject("Scripting.FileSystemObject")

Fso.CreateTextFile("c:\2.txt")

Set File = Fso.OpenTextFile("C:\2.txt", 2)


File.WriteLine StrNyTekst

File.Close

Set File = Nothing
Set Fso = Nothing
'----------------------------------------------------------------
'******************************************************

hej strcoder
Tak for hjælpen, med lidt tilretning er det bare fjong!

'******************************************************
Option Explicit


'----------------------------------------------------------------
Dim StrTekst, StrNyTekst, Arr, Fso, IFile, Ofile, T


'----------------------------------------------------------------
' Læs filen
Set Fso = CreateObject("Scripting.FileSystemObject")
Set IFile = fso.OpenTextFile("user.txt")


Fso.CreateTextFile("2.txt")
Set OFile = Fso.OpenTextFile("2.txt", 2)


While Not IFile.AtEndOfStream
    StrTekst = Ifile.ReadLine
strtekst=replace(strtekst,chr(34) ,"")
'msgbox strtekst
'----------------------------------------------------------------
' Lav Array
Arr = Split(StrTekst, ",")
strNyTekst = arr(0) & "!" & arr(1) & "!" & arr(3)  & "!" & arr(11) & "!" & arr(18) & "!" & arr(25) & "!" & arr(30) & "!" & (31) & "!" &

arr(32) & "!" & arr(35) & "!" & arr(36) & "!" & arr(37) & "!" & arr(38) & "!" & arr(39) & "!" & arr(40)

OFile.WriteLine StrNyTekst

Wend

IFile.Close
OFile.Close

Set IFile = Nothing
Set OFile = Nothing
Set Fso = Nothing

-----------------------------------------------------------------

'****************************************************************

Jamen det er da ok fint, jeg glad for at den kunne bruges :)
Tak for points :)