Pesquisar na Comunidade

Eu criei uma macro onde ela copia células de uma planilha e cola na segunda como valores. Para não sobrepor as informações antigas, fui orientado a adicionar uma linha antes de colar. O problema é que quando executo a macro, as informações (células) não deslocam-se para baixo. Ao invés disso, apenas cola em cima e apaga o que havia. Acredito que era pra estar funcionando devido ao "shift:=xlDown"... Aqui está o código: Sub CADASTRAR() Dim LC As Worksheet Dim CD As Worksheet Set CD = Worksheets("CADASTRO") Set LC = Worksheets("LISTA DE CLIENTES") ' INSERE AS INFORMAÇÕES DO CLIENTE NA LISTA DE CLIENTES. LC.Select LC.Rows("4:4").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrAbove Range("C14").Select CD.Range("C7:P8").Copy LC.Range("B4").PasteSpecial Paste:=xlPasteValues CD.Range("L19:P20").Copy LC.Range("C4").PasteSpecial Paste:=xlPasteValues CD.Range("C19:E20").Copy LC.Range("D4").PasteSpecial Paste:=xlPasteValues CD.Range("G19:J20").Copy LC.Range("E4").PasteSpecial Paste:=xlPasteValues CD.Range("C11:M12").Copy LC.Range("F4").PasteSpecial Paste:=xlPasteValues CD.Range("O11:P12").Copy LC.Range("G4").PasteSpecial Paste:=xlPasteValues CD.Range("C15:E16").Copy LC.Range("H4").PasteSpecial Paste:=xlPasteValues CD.Range("G15:J16").Copy LC.Range("I4").PasteSpecial Paste:=xlPasteValues CD.Range("L15:M16").Copy LC.Range("J4").PasteSpecial Paste:=xlPasteValues CD.Range("O15:P16").Copy LC.Range("K4").PasteSpecial Paste:=xlPasteValues CD.Range("C7:P8").ClearContents CD.Range("L19:P20").ClearContents CD.Range("C19:E20").ClearContents CD.Range("G19:J20").ClearContents CD.Range("C11:M12").ClearContents CD.Range("O11:P12").ClearContents CD.Range("C15:E16").ClearContents CD.Range("G15:J16").ClearContents CD.Range("L15:m16").ClearContents CD.Range("O15:P16").ClearContents CD.Select CD.Range("C7:P8").Select End Sub Planilha onde colo as informações: Primeira Execução: Segunda Execução: Aparentemente ele está sobrepondo as informações anteriores e adicionando linhas abaixo... Não entendo o porquê. :(

Bom dia, pessoal preciso somar os valores pegos em uma pagina html aos valores de um linha já existente em uma tabela no banco de dados, como posso fazer isso?

Pessoal, criei um formulário no Excel e estou com dificuldade de completar um dos módulos integrados com o Word. Gostaria que alguém me ajudasse a completar os códigos faltantes na rotina abaixo. No documento gerado é necessário localizar algumas partes do texto e, caso localizadas, selecioná-las e substituí-las por "inserir texto do arquivo". Porém, não estou conseguindo definir o código aplicável para condicionar que somente sejam substituídos e inseridos os textos dos arquivos cujos textos forem efetivamente localizados e, caso não existentes no documento, seguir com a rotina para a parte seguinte que precisa ser substituída. A rotina é a seguinte: 'abrir o documento - localizar e selecionar cada um dos textos que serão substituídos - se não localizado, ir para o próximo - se localizado, selecionar e substituir por "inserir texto do arquivo" - ir para o próximo aplicando a rotina até o último - salvar o documento para revisão - finalizar a rotina. Grato pelo retorno. Sub GERAR_MINUTA() ' ' GERAR_MINUTA Macro ' GERAR DOCUMENTO PARA REVISÃO TEXTO ' Dim WORD As WORD.Application Dim DOC As WORD.Document Set DOC = ActiveDocument '(DOCUMENTO-1.DOCM) With DOC .Application.Selection.Find.Text = "TEXTO1 TEXTO1 TEXTO1" .Application.Selection.Find.Execute .Application.Selection.InsertFile FileName:="C:\TEXTO1 PARA INSERIR.docx", Range:="", _ ConfirmConversions:=False, Link:=False, Attachment:=False .Application.Selection.Find.Text = "TEXTO2 TEXTO2 TEXTO2" .Application.Selection.Find.Execute .Application.Selection.InsertFile FileName:="C:\TEXTO2 PARA INSERIR.docx", Range:="", _ ConfirmConversions:=False, Link:=False, Attachment:=False .Application.Selection.Find.Text = "TEXTO3 TEXTO3 TEXTO3" .Application.Selection.Find.Execute .Application.Selection.InsertFile FileName:="C:\TEXTO3 PARA INSERIR.docx", Range:="", _ ConfirmConversions:=False, Link:=False, Attachment:=False .Application.Selection.Find.Text = "TEXTO4 TEXTO4 TEXTO4" .Application.Selection.Find.Execute .Application.Selection.InsertFile FileName:="C:\TEXTO4 PARA INSERIR.docx", Range:="", _ ConfirmConversions:=False, Link:=False, Attachment:=False With DOC .SaveAs2 ("DOCUMENTO-2.DOCX") End With Set DOC = Nothing Set WORD = Nothing End With End Sub

Gente, estou desenvolvendo um sistema para clínica odontológica (algo relativamente simples. Porém, muito funcional) e esbarrei no primeiro problema: Tabela de especialidades. Faz uma semana que venho trabalhando nisso. Tudo bem até agora. Registro de pacientes, edição e exclusão; datas, estados, etc. Agora, eu comecei a criar a estrutura visual da parte de PLANOS ODONTOLÓGICOS (Amil, Excelsior, etc..) Meu raciocínio, de primeira, foi o seguinte: Tabelas: Planos: plan_id e plan_nome (Amil, Excelsior, etc) Especialidades: esp_id e esp_nome (Ortodontia, periodontia, próteses, dentística, etc) Procedimentos: proc_id, proc_nome, proc_valor, proc_faces (Ex: Limpeza no valor de R$250,00 e aceita faces..) O administrador do sistema vai precisar cadastrar ou excluir um plano. De repente, chegou a notícia que a clínica vai trabalhar com a Amil. OU seja, o operador vai no sistema e criar o plano, escolhe a especialidade e começa a inserir (através de form) os procedimentos. Sinceramente, não estou conseguindo raciocinar sobre como resolver essa questão. Agradeço desde já qualquer ajuda.

Olá, estou com um problema: tenho que ler um arquivo de .csv que contem simulações de jogos entre dois times e/ou consultas ao ranking.Foi especificado que o numero de consultas é muito maior que o numero de simulações de jogos. Para não ficar muito custoso pensei em sempre inserir os times após cada simulação já de maneira ordenada, e se o time já tiver feito algum outro jogo, eu removo e insiro novamente ordenado. /**************************** Estruturas ****************************/ typedef int TipoChave; typedef struct TipoTime { char *nome; int classificacao; int pontos; }TipoTime; typedef struct TipoItem{ TipoChave Chave; TipoTime Time; }TipoItem; typedef struct TipoCelula *TipoApontador; typedef struct TipoCelula{ TipoItem Item; TipoApontador Prox; }TipoCelula; typedef struct TipoLista{ TipoApontador Primeiro, Ultimo; }TipoLista;/**************************** Funcoes ****************************/ void FLVazia (TipoLista *Lista); int Vazia(TipoLista Lista); void Insere (TipoItem x, TipoLista *Lista); void Retira (TipoApontador p, TipoLista *Lista, TipoItem *Item); void Imprime (TipoLista Lista); void ImprimeNoArquivoDeSaida (TipoLista Lista); int pesquisarTime(TipoLista *L , char *nome, TipoCelula *Celula); void inserirOrdenado(TipoLista Lista , TipoItem *Time); void atualizaVitoria(TipoLista Lista, TipoItem *Item, TipoApontador p); void atualizaEmpate(TipoLista Lista, TipoItem *Item, TipoApontador p);/*Função que faz uma lista vazia*/ void FLVazia (TipoLista *Lista){ Lista -> Primeiro = (TipoApontador) malloc (sizeof(TipoCelula)); Lista -> Ultimo = Lista -> Primeiro; Lista -> Primeiro -> Prox = NULL; } int Vazia(TipoLista Lista){ return (Lista.Primeiro == Lista.Ultimo); } /*Insere na lista*/ void Insere (TipoItem x, TipoLista *Lista){ Lista -> Ultimo -> Prox = (TipoApontador) malloc (sizeof (TipoCelula)); Lista -> Ultimo = Lista -> Ultimo -> Prox; Lista -> Ultimo -> Item = x; Lista -> Ultimo -> Prox = NULL; } /*Remove da lista*/ void Retira (TipoApontador p, TipoLista *Lista, TipoItem *Item){ TipoApontador q; if ( (Vazia(*Lista)) || (p == NULL) || (p -> Prox == NULL) ){ printf ("\nErro: lista vazia ou posicao nao existe!!\n"); return; } q = p -> Prox; *Item = q -> Item; p -> Prox = q -> Prox; if (p -> Prox == NULL){ Lista -> Ultimo = p; } free (q); } /*Imprime a lista*/ void Imprime (TipoLista Lista){ TipoApontador Aux; Aux = Lista.Primeiro -> Prox; while (Aux != NULL){ printf ("%d \n" , Aux -> Item.Chave); Aux = Aux -> Prox; } } /*void ImprimeNoArquivoDeSaida (TipoLista Lista){ TipoApontador Aux; Aux = Lista.Primeiro -> Prox; while (Aux != NULL){ fprintf (ArqSaida,"%d, \n" , Aux -> Item.Chave); Aux = Aux -> Prox; } }*/ //pesquisa se já existem o time na lista. int pesquisarTime(tlista *L,char *nome, TipoCelula *Celula){ TipoCelula *p; TipoTime *Time; while (p !=NULL){ Time = L->nome; if (strcmp(nome,Time->nome)==0){ return 1; } } return 0; } /*Esta função faz a inserção na lista de maneira ordenada*/ void inserirOrdenado(TipoLista Lista **p, *Time) { lista *atual, *novo, *anterior; int num; novo = (lista *) malloc(sizeof(lista)); atual = *p; anterior = NULL; novo->valor = Time; if(atual == NULL){ novo->prox = NULL; *p = novo; } else{ while(atual != NULL && atual->valor < num){ anterior = atual; atual = atual->prox; } novo->prox = atual; if(anterior == NULL){ *p = novo; } else{ anterior->prox = novo; } } } /*A função recebe o time vitorioso, copia para um time temporário. chama a função Retira, para remover o item da lista soma os 3 pontos da vitória e insere novamente de maneira ordenada*/ void atualizaVitoria(TipoLista Lista, TipoTime Time, TipoApontador p){ TipoItem ItemTemp; //Copia o time para um TipoTime temporário. ItemTemp.Time.nome = Item.Time.nome; ItemTemp.Time.classificacao = Item.Time.classificacao; ItemTemp.Time.pontos = Item.Time.pontos+3;//Ponteiro ou conteudo ? Retira ( p, *Lista, *Item); inserirOrdenado( Lista **p, *ItemTemp); } /*A função recebe os times que empataram(um por vez), copia para um time temporário. chama a função Retira, para remover o item da lista soma o 1 ponto da vitória e insere novamente de maneira ordenada*/ void atualizaEmpate(TipoLista Lista, TipoItem *Item, TipoApontador p){ TipoItem ItemTemp; ItemTemp.Time.nome = Item.Time.nome; ItemTemp.Time.classificacao = Item.Time.classificacao; ItemTemp.Time.pontos = Item.Time.pontos+3;//Ponteiro ou conteudo ? Retira ( p, *Lista, *Item); inserirOrdenado( Lista **p, *ItemTemp); }int main(){ /************************** VARIAVEIS *****************************/ char buffer[100]; int i = 0; int flag = 1; TipoLista Campeonato; TipoItem ItemAux; char *Acao; char *TipoDaAcao; char *NomeDoTime1; char *NomeDoTime2; /************************ LEITURA ARQUIVOS *******************************/ FILE *ArqEntrada; // leitura dos comandos FILE *ArqSaida; // resultado dos comandos FILE *ArqRanking; // arquivo do ranking ordenado ArqEntrada = fopen("entrada.csv","r"); ArqSaida = fopen("saida.csv", "w"); ArqRanking = fopen("ranking.csv","r"); if (ArqEntrada == NULL) { printf ("\nERRO: Arquivo de entrada incorreto!"); } if (ArqSaida == NULL){ printf("\nERRO: Arquivo de saida incorreto!"); } if (ArqRanking == NULL){ printf("\nERRO: Ranking nao encontrado. Sera gerado um novo."); ArqRanking = fopen("ranking.csv","w"); flag = 0; } /************************ CARREGANDO SIMULAÇÕES ANTERIORES *******************************/ if (flag==1){ fgets (buffer, 100, ArqRanking); while (!feof(ArqRanking)){ printf ("\n"); ItemAux.Time.nome = atoi (strtok (buffer, ",")); printf ("\nNome: %s", ItemAux.Time.nome); ItemAux.Time.classificacao = atoi (strtok (buffer, ",")); printf ("\nClassificacao: %d", ItemAux.Time.classificacao ); ItemAux.Time.pontos = atoi(strtok (NULL, ",")); printf ("\nPontuacao: %d", ItemAux.Time.pontos); fgets (buffer, 100, ArqRanking); } } /************************ LEITURA DA ENTRADA *******************************/ while (!feof(ArqEntrada)){ Acao = strtok (NULL, ","); if (strcmp("CONSULTA", Acao)==0){ TipoDaAcao = atoi (strtok (buffer, ",")); NomeDoTime1 = atoi (strtok (buffer, ",")); //if (pesquisarTime(&Campeonato, *NomeDoTime1, ItemAux )==0){ if (1){ printf("/nERRO: Time nao encontrado para consulta."); } if (strcmp("PONTUACAO", Acao)==0){ fprintf(ArqSaida, "%s,%s,%d", TipoDaAcao, NomeDoTime1, ItemAux.Time.pontos); } else if (strcmp("RANKING", Acao)==0){ fprintf(ArqSaida, "%s,%s,%d", TipoDaAcao, NomeDoTime1, ItemAux.Time.classificacao); } } else if(strcmp("VITORIA", Acao)==0){ NomeDoTime1 = atoi (strtok (buffer, ",")); NomeDoTime2 = atoi (strtok (buffer, ",")); if (1){//*pesquisarTime(*NomeDoTime1, Campeonato, ItemAux )*/){ atualizaVitoria(Campeonato, *Item, p); } else if(1){ //(pesquisarTime(*NomeDoTime1, Campeonato, ItemAux )==0){ //Como somar os 3 pontos para inserir ordenado? inserirOrdenado(Campeonato p, *Time); } if (1){ //(pesquisarTime(*NomeDoTime2, Campeonato, ItemAux )==0){ inserirOrdenado(Campeonato p, *Time); } /* else if(strcmp("EMPATE", Acao)==0){ NomeDoTime1 = atoi (strtok (buffer, ",")); NomeDoTime2 = atoi (strtok (buffer, ",")); /* pesquisarTime retorna 1 se o time for encontrado e 0 se não. if (pesquisarTime(*NomeDoTime1, Campeonato, ItemAux )){ atualizaEmpate(Campeonato, *Item, p); } /* pesquisarTime retorna 1 se o time for encontrado e 0 se não. else if (pesquisarTime(*NomeDoTime1, Campeonato, ItemAux )==0){ //Como somar o 1 ponto para inserir ordenado? inserirOrdenado(Campeonato p, *Time); } /* pesquisarTime retorna 1 se o time for encontrado e 0 se não. if (pesquisarTime(NomeDoTime2, Campeonato, ItemAux )){ atualizaEmpate(Campeonato, *Item, p); } /* pesquisarTime retorna 1 se o time for encontrado e 0 se não. else if (pesquisarTime(*NomeDoTime2, Campeonato, ItemAux )==0){ //Como somar o 1 ponto para inserir ordenado? inserirOrdenado(Campeonato p, *Time); } */ } else{ printf("/nErro: Primeiro argumento invalido."); } } /************************ IMPRIME RANKING *******************************/ ImprimeNoArquivoDeSaida(Campeonato); fclose(ArqEntrada); fclose(ArqSaida); fclose(ArqRanking); return 0; }Fiz o código desta maneira porém estou com muitas duvidas quanto as passagens dos parâmetros para as funções. Vocês podem me ajudar ? Obrigado

Geralmente pra se ter uma leitura com êxito de um arquivo devemos analizá-lo antes, isto porque o arquivo pode está todo desorganizado, então criamos um certo padrão. Agora pergunto, se estamos criando um arquivo que será lido pelo programa Porque não organizá-lo antes? Precisamos saber quantas strings, floats e inteiros o programa precisa para a leitura; Então criei um arquivo e estou utilizando-o para preenchimento dos campos de uma struct,onde declarei cinco chars e três ints. A struct recebe memória alocada dinamicamente, e é liberada por free(); no término do programa. Veja abaixo imagens do programa em execução: Veja abaixo o link do código do programa: http://codigosfontes-ccplus-plus.blogspot.com.br/2015/10/arquivo-inserindo-dados-em-struct.html

Boa tarde, Pessoal! Bom... Trabalho na área de banco de dados e por esses dias apareceu um problema em um cliente... Esse cliente tem um TXT que contém informações que devem ser inseridas no banco de dados. Eu consigo fazer isso manualmente no Banco de Dados SQL Server, utilizando o BULK INSERT. Mas a pessoa que ficara responsável por fazer essa inserção não conhece nada de banco de dados e nem tem permissão de acesso. Gostaria de saber se em Python eu conseguiria fazer alguma aplicação que faça a leitura e inserção no banco de dados automaticamente para o usuário. O arquivo TXT tem as informações separadas por: '|' (pipe), e cada quebra de linha é um registro novo. Segue exemplo: ||0123||FULANO JOSE DOS SANTOS||28||RJ||RIO DE JANEIRO|| ||0134||JOSE DA SILVA TESTE||30||SP||são PAULO|| ||0432||MARIA DA EUGENIA ||60||MG||BELO HORIZONTE|| Como não conheço nada de Python e sempre me dizem que é simples de programar usando a linguagem pensei que poderia desenvolver algo que fizesse isso. Alguém poderia me ajudar? Skype: edsonreis85

#include <stdlib.h> #include <stdio.h> #include <conio.h> #include <ctype.h> typedef struct No { int numero; struct No *pEsquerda; struct No *pDireita; } No; void criarArvore(No **pRaiz) { *pRaiz = NULL; } void inserir(No **pRaiz, int numero) { if(*pRaiz == NULL) { *pRaiz = (No *) malloc(sizeof(No)); (*pRaiz)->pEsquerda = NULL; (*pRaiz)->pDireita = NULL; (*pRaiz)->numero = numero; } else { if(numero < (*pRaiz)->numero) inserir(&(*pRaiz)->pEsquerda, numero); if(numero > (*pRaiz)->numero) inserir(&(*pRaiz)->pDireita, numero); } } int menu(){ int opcao; printf("\n\nO que deseja fazer? \n\n"); printf("0 - Sair\n"); printf("1 - Inserir Elementos\n"); scanf("%d", &opcao); return opcao; } int main(void){ int opcao; criarArvore(); do { opcao = menu(); switch (opcao) { case 0: break; case 1: inserir(); break; default: printf("\nOPCAO INVALIDA!"); } } while (opcao != 0); return 0; } Iniciei a implementação de inserção de elemento em árvore binária e, apresentou o seguinte erro: Linha Col. In function 'main': 49 2 [Error] too few arguments to function 'criarArvore' 13 6 [Note] declared here 56 2 [Error] too few arguments to function 'inserir' 18 6 [Note] declared here O que devo fazer?