Alterando um arquivo txt

[DiNhOo]

Ola eu não tenho experiência em VB (até por que mesmo comecei antes de ontem e não tenho ninguém para me ensinar, mas eu leio muito tutorial). Meu Projeto é um programa que altera um arquivo txt atravez de um sistema de variaveis.

Segue abaixo os códigos:

Option Explicit
 Dim string1 As String, string2 As String, string3 As String, string4 As String, string5 As String, string6 As String, string7 As String, string8 As String, string9 As String, string10 As String, string11 As String

Private Sub Salvar_Click()
string1 = "[VERSION] 6566"
If res1 = True Then
string2 = "[RES] 1"
If res2 = True Then
string2 = "[RES] 2"
If res3 = True Then
string2 = "[RES] 3"
If res4 = True Then
string2 = "[RES] 4"
Else
If Ani = True Then
string3 = "[ANIMATION] 2"
If Ani = False Then
string3 = "[ANIMATION] 0"
Else
If Aud1 = True Then
string4 = "[SOUND] 100"
If Aud1 = False Then
string4 = "[SOUND] 0"
Else
If Aud2 = True Then
string5 = "[SOUND] 100"
If Aud2 = False Then
string5 = "[SOUND] 0"
End If
string6 = "[SERVER] 0"
string7 = "[BRIGHT] 72"
string8 = "[CURSOR] 2"
string9 = "[DEMO] 0"
If Mod1 = True Then
string10 = "[WINDOW] 0"
If Mod2 = True Then
string10 = "[WINDOW] 1"
End If
string11 = "[CLASSIC] 0"

End Sub

O meu problema é que eu não sei como fazer o programa salvar o arquivo com as informções acima e gostaria que me ajudassem (desculpe se eu fiz tudo errado é que realmente não tenho noção ainda de programação).

Se ajudar aqui está um o conteudo do arquivo original:

[VERSION]6566

[RES] 6

[ANIMATION] 2

[sOUND] 100

[MUSIC] 100

[sERVER] 0

[bRIGHT] 72

[CURSOR] 2

[DEMO] 0

[WINDOW] 1

[CLASSIC] 0

Obrigado e desculpe pelo incomodo.

Editado Julho 31, 2010 por quintelab
Título alterado conforme as regras

[raphael_suporte]

Bem vindo ao fórum e não precisa se desculpar por está aprendendo.

Sobre sua dúvida, acho que você só não está manipulando os arquivos txt, tipo abrindo ou criando um novo

acessa esse link do MSDN e vê se te ajuda

[gerarda]

olha não sei de onde vem os verdadeiros e falsos de seu programa

mas é mais ou menos isso

Option Explicit

Dim minhastring(0 To 10) As String, nomearquivo As String, contador As Double

Private Sub Salvar_Click()


minhastring(0) = "[VERSION] 6566"
    
    
If res1 = True Then minhastring(1) = "[RES] 1"
If res2 = True Then minhastring(1) = "[RES] 2"
If res3 = True Then minhastring(1) = "[RES] 3"
If res4 = True Then minhastring(1) = "[RES] 4"

If ani = True Then
minhastring(2) = "[ANIMATION] 2"
Else
minhastring(2) = "[ANIMATION] 0"
End If
                            
If aud1 = True Then minhastring(3) = "[SOUND] 100"
If aud2 = True Then minhastring(3) = "[SOUND] 0"



minhastring(4) = "[SERVER] 0"
minhastring(5) = "[BRIGHT] 72"
minhastring(6) = "[CURSOR] 2"
minhastring(7) = "[DEMO] 0"


If mod1 = True Then minhastring(8) = "[WINDOW] 0"
If mod2 = True Then minhastring(8) = "[WINDOW] 1"

minhastring(9) = "[CLASSIC] 0"

nomearquivo = "c:/meuarquivo.txt" 'caminho e nome do arquivo que vai ser gravado

Open nomearquivo For Output As #1   ' abre o arquivo

For contador = 0 To 8 ' grava minhastring do 0 ao 8
   Print #1, minhastring(contador)
Next

Close   ' fecha o arquivo



End Sub

Editado Julho 31, 2010 por kuroi
Adicionar tag CODE