Como repitir um código até que o valor de uma varíavel seja maior que o valor de outra variável?

Question

Boa noite!

Gostaria de saber como fazer um código ser repetido até que o valor de uma variável seja maior que o valor de outra variavel? Estou usando esse código, mas ele não esta funcionando corretamente:

            Dim NumeroDelinhasInicial As Integer = TextBox1.Lines.Length
            Dim ValorDeLinhaCorreto As Integer = 8
            
                For Contadordelinhas As Integer = 1 To ValorDeLinhaCorreto >= NumeroDelinhasInicial
                    ValorDeLinhaCorreto = ValorDeLinhaCorreto + 8
                Next

O que preciso fazer é se o valor que consta na na variável ValorDeLinhaCorreto for maior que o valor da varíavel NumeroDelinhaInicial ele não faz nada. Mas se não for maior, ele adiciona mais 8 na variável ValorDeLinhaCorreto e verifica de novo, e se continuar menor o valor vai adicionando mais 8 até que o valor da varíavel ValorDelinhaCorreto fique maior que o ValorDelinhaInicial!

Obrigado desde já!

Answer 1

Acho que o que você quer é isso

Dim NumeroDelinhasInicial As Integer = TextBox1.Lines.Length
Dim ValorDeLinhaCorreto As Integer = 8

While (ValorDeLinhaCorreto < NumeroDelinhasInicial)
    ValorDeLinhaCorreto = (ValorDeLinhaCorreto + 8)    
End While

---

Uma imagem vale mais do que mil palavras, mas ocupa 3 mil vezes mais espaço em disco

Answer 2

Boa noite!

Obrigado, era isso mesmo que eu precisava!

Não querendo abusar mas você sabe como remover linhas que não possuem nada escrito de uma textbox? Pesquisei na internet sobre isso mas não encontrei!

Obrigado mais uma vez!

Answer 3

Você pode acessar o conteúdo de cada linha e verificar se ela não é vazia.

 var count = 0;
 foreach (var item in textBox1.Lines)
     if (!string.IsNullOrEmpty(item))
            count++;

o count fica com a quantidade de linhas preenchidas.

---

Uma imagem vale mais do que mil palavras, mas ocupa 3 mil vezes mais espaço em disco