Jump to content
hc19

Scripts

Recommended Posts

hc19

Bom dia,

Queria saber se alguém sabe alguma maneira para que se consiga juntar 2 ou mais script's (sql query's) numa só, gerando uma script única e nova,  sem as abrir, só através de código.

Comprimentos e obrigado.

Share this post


Link to post
Share on other sites
Caça

Explica melhor... Como é que pretendes fazer?


Pedro Martins

Não respondo a duvidas por PM

Share this post


Link to post
Share on other sites
hc19

Tenho 2 ou mais ficheiros do tipo .sql,  ou seja script's. e queria através de linha de código (clique num só botão) juntar as varias script's numa só, gerando um ficheiro do tipo .sql novo.

Share this post


Link to post
Share on other sites
hc19

obrigado pelo exemplo.

Mas não sabes de mais algum que tenha a possibilidade juntar 2 ou mais ficheiros num novo?.

Obrigado

Share this post


Link to post
Share on other sites
Rechousa
    Public Sub text_combine( _
        ByVal path_to_read_file As String, _
        ByVal path_to_append_file As String _
    )
        System.IO.File.AppendAllText( _
            path_to_append_file, _
            System.IO.File.ReadAllText(path_to_read_file) _
        )
    End Sub


Pedro Martins

Sharing is Knowledge!

http://www.linkedin.com/in/rechousa

Share this post


Link to post
Share on other sites
hc19

Podes-me explicar como aplico isso com este exemplo:

OpenFileDialog1.Filter = "Ficheiros de sql (*.sql)|*.sql"
OpenFileDialog1.ShowDialog()
Dim SR As New IO.StreamReader(OpenFileDialog1.FileName, True)
RichTextBox1.Text = SR.ReadToEnd
SR.Close()

se poderes agradecia.

Obrigado

Share this post


Link to post
Share on other sites
ribeiro55

http://wiki.portugal-a-programar.org/dev_net:vb.net:common_dialogs#entender_a_multiseleccao

OpenFileDialog1.Multiselect = True

OpenFileDialog1.Filter = "Ficheiros de sql (*.sql)|*.sql"
OpenFileDialog1.ShowDialog()
For Each Fname As String In OpenFileDialog1.Filenames
    Dim SR As New IO.StreamReader(Fname, True)
    RichTextBox1.Text &= SR.ReadToEnd & vbLf
    SR.Close()
Next

Verifica apenas se não precisas de terminar o último comando com ;.

Alguns clients podem optar por não o colocar nos dumps/exports, por ser o último statement.


Sérgio Ribeiro


"Great coders aren't born. They're compiled and released"
"Expert coders do not need a keyboard. They just throw magnets at the RAM chips"

Share this post


Link to post
Share on other sites
hc19

Obrigado.

Mais uma coisa, eu utilizei este tipo de código para ir buscar o nome do ficheiro a um ficheiro .txt, mas só consigo  caso o txt tenha uma só linha, ou seja um só nome, será que me podem dizer como ir buscar o nome a cada uma das linhas e abrir cada uma das script's, juntando-as numa só.

OpenFileDialog1.Filter = "Ficheiros de texto|*.txt"
OpenFileDialog1.ShowDialog()
Dim coiso As New IO.StreamReader(OpenFileDialog1.FileName, True)
Dim SR As New IO.StreamReader(" pasta do ficheiro" & coiso.ReadToEnd & ".sql", True)
SaveFileDialog1.Filter = "Ficheiros sql|*.sql"
SaveFileDialog1.ShowDialog()
Dim objWriter As New StreamWriter(SaveFileDialog1.FileName, True)
linha = SR.ReadToEnd
objWriter.WriteLine(linha)
linha = ""
objWriter.Close()
SR.Close()
coiso.Close()

Obrigado

Share this post


Link to post
Share on other sites
hc19

Obrigado,

Mas se for varias linhas de uma coluna de uma DataGridView, como é que faço?

Share this post


Link to post
Share on other sites
bioshock

Decide-te homem. Para futuros problemas que não coincidem com o intuito do tópico criado, novos tópicos devem ser criados.

Share this post


Link to post
Share on other sites
hc19

Sim, tens razão.

Peço desculpa, mas mudaram-me os objectivos pretendidos pela aplicação.

Obrigado

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.