REPLACE

 Tópico anterior Próximo tópico Novo tópico

REPLACE

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#483108 - 17/07/2018 18:24:30

ISABELLASILVA
BLUMENAU
Cadast. em:Novembro/2017


   Olá, a todos!

Tenho alguns registros que esta identificando parcelas Exemplo:
1ª|10
2ª|10
3ª|10
...
Como faço um replace para eliminar o ª|10 em diante...
queria deixar só as primeiras casas numéricas, antes do ( ª ) 1,2,3,5,10,11...


                            




Isabella


Resposta escolhida #483112 - 17/07/2018 19:24:16

ALVAROVB2009
GUARULHOS
Cadast. em:Maio/2009


replace(texto,ª|10,'')

Segue um link   com mais alguns detalhes




Teoria é quando se sabe tudo, e nada funciona. Prática e quando tudo funciona e ninguém sabe porque.
"Aquele que quer aprender gosta que lhe digam quando esta errado;
só o tolo não gosta de ser corrigido -"Prov.12:1


#483114 - 17/07/2018 20:49:19

EPISCOPAL
VARZEA GRANDE
Cadast. em:Maio/2009


Citação:
Tenho alguns registros


Que registros? É uma string? Campos em banco de dados?

Cada coisa trataria de maneira diferente.

____________________________________________________________________
Episcopal Studios





#483126 - 18/07/2018 09:33:26

ISABELLASILVA
BLUMENAU
Cadast. em:Novembro/2017


Bom dia,
Esta primeiro sendo formado na coluna listview e depois esta indo para mysql como texto

segue onde esta sendo formado "ª"
ListCondicoes.ListItems.Clear
         For i = 1 To qtd
            Set Item = ListCondicoes.ListItems.Add(, , i & "ª" & "|" & txtQtdParc)
            Item.SubItems(1) = dHoje
            dHoje = dHoje + 30
            Item.SubItems(2) = Format(vlParcela, "Currency")
         Next

Aqui em baixo segue onde preciso dar o replace
For x = 1 To ListCondicoes.ListItems.Count
      If ListCondicoes.ListItems(x).SubItems(6) <> "" Then ColorListviewRow ListCondicoes, ListCondicoes.ListItems(x), &H8000000D
   Next x                                                                                                                                    




Isabella


#483127 - 18/07/2018 10:24:08

ISABELLASILVA
BLUMENAU
Cadast. em:Novembro/2017


estou tentando colorir o SubItems
mas não esta aceitando o SubItems...

For x = 1 To ListCondicoes.ListItems.Count
      If ListCondicoes.ListItems(x).SubItems(6) <> "" Then
      
         ListCondicoes.ListItems(x).ForeColor = &H8000000D
         ListCondicoes.ListItems(x).SubItems(1).ForeColor = &H8000000D
         ListCondicoes.ListItems(x).SubItems(2).ForeColor = &H8000000D
      End If
   Next x

Isabella


#483130 - 18/07/2018 10:36:00

ALVAROVB2009
GUARULHOS
Cadast. em:Maio/2009


Quando vc estiver preenchendo o seu list no campo 6, que é onde acredito que tenha os dados a ser alterados
ListCondicoes.ListItems(x).SubItems(6) = replace(texto,ª|10,'')




Teoria é quando se sabe tudo, e nada funciona. Prática e quando tudo funciona e ninguém sabe porque.
"Aquele que quer aprender gosta que lhe digam quando esta errado;
só o tolo não gosta de ser corrigido -"Prov.12:1


#483131 - 18/07/2018 10:39:06

ALVAROVB2009
GUARULHOS
Cadast. em:Maio/2009


Quanto a sua dúvida para colorir o list

Aqui tem um   link , que mostra direitinho como faz e ele até no final da página permite que pegue o projeto

Teoria é quando se sabe tudo, e nada funciona. Prática e quando tudo funciona e ninguém sabe porque.
"Aquele que quer aprender gosta que lhe digam quando esta errado;
só o tolo não gosta de ser corrigido -"Prov.12:1


#483133 - 18/07/2018 11:22:05

ISABELLASILVA
BLUMENAU
Cadast. em:Novembro/2017


Citação:
:
Quanto a sua dúvida para colorir o list

Aqui tem um   link , que mostra direitinho como faz e ele até no final da página permite que pegue o projeto


Já tinha visto estes materiais,
mas não consegui utilizar neste caso a baixo onde não aceita SubItems

Citação:
:
For x = 1 To ListCondicoes.ListItems.Count
      If ListCondicoes.ListItems(x).SubItems(6) <> "" Then
      
         ListCondicoes.ListItems(x).ForeColor = &H8000000D
         ListCondicoes.ListItems(x).SubItems(1).ForeColor = &H8000000D
         ListCondicoes.ListItems(x).SubItems(2).ForeColor = &H8000000D
      End If
   Next x


Isabella


#483135 - 18/07/2018 12:25:26

ALVAROVB2009
GUARULHOS
Cadast. em:Maio/2009


Isabella aqui segue uma rotina que tenho em um módulo, para poder preencher qqer list e com várias opções, acho que pode te ajudar, não só na cor más em outras coisas que pode colocar

Public Sub PreencheListView(List As ListView, SQL As String, Optional Negrito As Integer, Optional Total As Boolean, Optional Text As TextBox, Optional FormataCampoValor_Coluna As Integer, Optional CorFonte As Cor, Optional Sim_Nao_Coluna As Integer, Optional Sim_Valor As Integer, Optional Sim As Boolean)
    On Error GoTo TrataErro
    Dim I As Integer
    Dim Rs As Recordset
    Dim curTotal As Currency
    
    Set Rs = New Recordset
    
    Rs.Open SQL, Conexao, adOpenKeyset, adLockOptimistic
    
    'conexao.ExecutaSQL(SQL, Cliente, AbrirSomenteFrente, SomenteLeitura)

    List.ListItems.Clear
    List.ForeColor = CorFonte
    Do Until Rs.EOF
        Set LV = List.ListItems.Add(, , "" & Rs(0))
        For I = 1 To List.ColumnHeaders.Count - 1
            ' Formata a coluna indicada como currency
            If I = FormataCampoValor_Coluna Then
                LV.SubItems(I) = "" & FormatCurrency(UCase(Rs(I)))
            Else
                LV.SubItems(I) = "" & UCase(Rs(I))
            End If
            ' Modifica o valor da coluna para a palavra "Sim" ou "Não"
            If Sim = True Then
                If I = Sim_Nao_Coluna And Sim_Valor = 1 Then
                    If Rs(I) = 1 Then LV.SubItems(I) = "Sim"
                End If
            End If
        Next I
        'coloca 1º coluna em negrito
        List.ListItems.Item(Negrito).Bold = True
        Negrito = Negrito + 1
        If Total = True Then
            curTotal = curTotal + Rs!TotalRecebido
            Text = curTotal
        End If
        'faz calculo se for necessario total
        Rs.MoveNext
    Loop

    Set Rs = Nothing
    Set LV = Nothing
    SQL = Empty
    Negrito = 0

TrataErro:
    If Err <> 0 Then
        MsgBox Err.Number & " " & Err.Description, vbInformation, App.Title
        Err.Clear
        Exit Sub
    End If
End Sub

Teoria é quando se sabe tudo, e nada funciona. Prática e quando tudo funciona e ninguém sabe porque.
"Aquele que quer aprender gosta que lhe digam quando esta errado;
só o tolo não gosta de ser corrigido -"Prov.12:1


#483143 - 18/07/2018 19:37:54

ISABELLASILVA
BLUMENAU
Cadast. em:Novembro/2017


Olá, ALVARO!
Bacana esse seu código, ai me ajudar muito, principalmente em colocar em negrito a coluna, muito obrigada!
estou muito feliz! obrigada mesmo!

Mas para efeito de aprendizagem,
porque aquele código não aceitou o SubItems?  não é dessa forma que que funciona>>>ListCondicoes.ListItems(x).SubItems(1).ForeColor = &H8000000D

Quanto ao Replece
não consegui fazer...
Citação:
:
Quando vc estiver preenchendo o seu list no campo 6, que é onde acredito que tenha os dados a ser alterados
ListCondicoes.ListItems(x).SubItems(6) = replace(texto,ª|10,'')







Isabella


#483147 - 18/07/2018 22:15:45

ALVAROVB2009
GUARULHOS
Cadast. em:Maio/2009


Deixa eu corrigir, errei

Postei isso
ListCondicoes.ListItems(x).SubItems(6) = replace(texto,ª|10,'')

Correto é isso
ListCondicoes.ListItems(x).SubItems(6) = replace(texto,"ª|10","")


Quanto a sua pergunta, ele deveria aceitar sim, depois fala a mensagem de erro que esta dando



Teoria é quando se sabe tudo, e nada funciona. Prática e quando tudo funciona e ninguém sabe porque.
"Aquele que quer aprender gosta que lhe digam quando esta errado;
só o tolo não gosta de ser corrigido -"Prov.12:1


 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por ISABELLASILVA em 19/07/2018 22:58:33