ramon

Ta ai sim, acho que você não viu mesmo De um CTRL+F e digite split ou @ e você verá Bom valeu pela ajuda no fim terei que fazer como sempre fiz linha por linha

Se você ver bem eu coloquei um delimitador que é o simbolo "@" usando a funcão split eu consigo separar cada item e adicionar ele na matriz A não ser que eu faço para salvar o arquivo linha por linha ai acho que não tem erro. Outra coisa tive notando outros programas quando salva um arquivo eles salvam em um formato que você não consegue reconhecer. já no meu você abre com um editor de textos e ve o que ta escrito Mesmo em binario Eles criptografam os arquivos salvo? Tem como fazer no VB?

O que eu quero é salvar tudo que tiver dentro da matriz em um arquivo este é um exemplo, meu programa tem 5 matrizes e preciso salvar o conteudo dela em um arquivo Então estou tentando fazer com que salve as matrizes em um arquivo e depois eu carregue o arquivo de volta para as matrizes. o mais rapido possivel tanto no salvar como no carregar

Mas ai que ta você esta calculando como se cada dimensão dela tivesse apenas 1 caracter e na verdade poderia conter mais tipo "ramon" tem 5 caracteres Testa isso para você ver Num modulo coloque Public Times(3, 3) As String Public Sub Calendario() 'Calendario gremio Times(0, 0) = "Gremio" Times(0, 1) = "Juventude" Times(0, 2) = "Coritiba" Times(0, 3) = "Flamengo" 'Calendario flamengo Times(1, 0) = "Flamengo" Times(1, 1) = "Coritiba" Times(1, 2) = "Juventude" Times(1, 3) = "Gremio" 'Calendario coritiba Times(2, 0) = "Coritiba" Times(2, 1) = "Flamengo" Times(2, 2) = "Gremio" Times(2, 3) = "Juventude" 'Calendario juventude Times(3, 0) = "Juventude" Times(3, 1) = "Gremio" Times(3, 2) = "Flamengo" Times(3, 3) = "Coritiba" End Sub Num form com dois botao Private Sub Command1_Click() Dim conteudo As String Dim i As Long Call Calendario conteudo = String(3 * 3, Chr(0)) g = 1 For a = 0 To 3 For b = 1 To 3 d = Len(Times(a, b)) + 1 Mid(conteudo, g, d) = Times(a, b) & "@" g = g + d Next b Next a n = FreeFile() Open (App.Path + "\teste.txt") For Binary As #1 Put #1, , conteúdo Close #1 End Sub Private Sub Command3_Click() n = FreeFile() Open (App.Path + "\teste.txt") For Binary As #n conteúdo = Input(LOF(n), n) Close #n varray = Split(conteúdo, "@") q = UBound(varray) i = 1 C = 0 For a = 0 To 3 For b = 1 To 3 Times(a, b) = varray(C) C = C + 1 Next b Next a End Sub Se fizer 3*3 vai dar erro pois tem mais de 1 caracteres em cada vetor na matriz

sim fica rapido mas ali você especificou 52000 caracteres mas na verdade a minha matriz pode conter bem mais E como eu vou definir isto já que não sei qiuntos caracteres tem minha matriz Se eu for verificar vai gastar muito tempo

Bom a leitura ficou bem rapida mas a gravação ficou lentaaaaaaaaaaa Arrumamos uma e agora o problema esta na gravação

E para gravar como seria pois eu não consegui abrir o arquivo usando este codigo? Ah eu tenho mais duas matrizae para gravar e 2 variaveis como eu faria isso

Por que demora para carregar o meu arquivo que foi salvo em binario Tipo veja se pode ser melhorado Open caminho For Binary As #1 For Y = 0 To 200 For X = 0 To 20 For Z = 0 To 13 dado = Space(LOF(1)) Get #1, , dado Banco(Y, X, Z) = dado Next Z Next Y Next X Close #1 Para gravar é rapido mas para ler demoraaaaaa Poque tem algum jeito de se fazer a leitura mais rapido no modo binario?

Seria assim la no meu site < a href="menu_opcional.htm" target='menu' onclick='abrir_frame()'>MENU OPCIONAL<a/> <script> function abrir_frame() { top.menu2.document.location.href='menu_opcional2.htm'; } </script> quando clicar em MENU OPCIONAL então abrira uma pagina na direita menu_opcional2.htm e outra na esquerda menu_opcional.htm

Tenho um script que ao clicar em um link abre duas paginas mas só funciona neste endereço http://planetanetgamez.web1000.com/secao_manager/ Clique em MENU OPCIONAL no topo do site e pronto abrira dois menus Agora neste endereco que na verdade é um redirecionador para o endereço acima não funciona http://www.pnsecaomanager.cjb.net alguém poderia me ajudar a resolver este problema?

Coloque uma caixa de texto. e dpois cole este codigo Falou

Bom eu sei pois estou usando bastante a listview Agora quando eu parar de mexer nela não sei se vou me lenbrar mais tarde

Bom se for o que eu penso então marque como TRUE a propiedade FullRowSelect da listview

Valeu Graymalkin Só mais uma duvida se eu comprar o visual studio 6 original este que contem o vb6, C++ 6 o c++ 6 e o vb 6 rodarão no meu sistema?

E o Visual Studio.NET completo roda em todos os sitemas? E você sabe me dizer o preço e quantos cds ele vem?

Bom, então se eu comprar o Visual Studio .Net o que exatamente vem neste pacote?. O Visual Studio .Net é a versão que vem depois do vb6 ou tem uma antes?

Então nem adinta eu baixar pois eu estou com windows ME a não se que eu instale o XP numa outra repartição do hd Mais uma este vb 2005 vem com o compilador para criar os executaveis?

Bom eu acho que é isto que ele quisz dizer Dissesse o quê? Que me dissese que eu estou mudando para o delphi por que não consegui fazer no vb e vice-versa. Eu pelo menos entendi assim

Bem lembrado. Os seguintes posts falam disso: http://scriptbrasil.com.br/forum/index.php?showtopic=28791 http://scriptbrasil.com.br/forum/index.php?showtopic=28792 Abraços, Graymalkin Por curiosidade Essas versões rodam em qualquer sistema e qual o tamanho do visual basic 2005?

Eu não sabia disso pensei que API poderia captar qualquer coisa do sistema

você já terminou Bom eu só vou terminar daqui dois anos e meio pois o curso é longo e recem comecei

Eu prefiro paginas leves principalmente a primeira pois ai o usuario podera ver se tem o que interessa rapidamente

Faz assim cara Use este que é bem menor <embed src="toca.mp3" width="200" height="44" autostart="true"> Falou

você ta querendo fazer um mecanismo de busca própio se for isso você tera que criar um em php ou asp pois em html não tem como

Primeiro você deve divulgar seus sites nos mecanismos de busca e no propio google e depois sim você use metags para colocar as palavras se não não adinta pois o google capta os sites atraves de outros sistemas de busca como yahoo radar etc..