Ir para conteúdo
Fórum Script Brasil

Ramon Fontanesi

Membros
  • Total de itens

    1
  • Registro em

  • Última visita

Sobre Ramon Fontanesi

Ramon Fontanesi's Achievements

0

Reputação

  1. Boa noite estou tentando fazer um programa que localiza uma determinada palavra em um bloco de notas... Ate ai tudo bem, mas eu não consegui fazer repetir para as outras ocorrência Private Sub txtDragDrop(sender As Object, e As DragEventArgs) Handles TextBox1.DragDrop '-----abre arquivo Dim feed As String() = CType(e.Data.GetData(DataFormats.FileDrop), String()) For Each nome As String In feed TextBox1.Text = nome 'abrir Caminho.Text = TextBox1.Text Dim arquivo As String = Caminho.Text IO.File.Exists(arquivo) TextBox2.Text = IO.File.ReadAllText(arquivo) Dim returnValue As Boolean = False '-----subistitui G01 por G00 Do While TextBox2.Text.Contains("F12700.") TextBox4.Text = File.ReadAllLines(arquivo).FirstOrDefault(Function(x) x.Contains("F12700.")) TextBox2.Text.Contains(TextBox4.Text) TextBox5.Text = TextBox4.Text TextBox4.Text = Replace(TextBox4.Text, "F12700", "(F)") TextBox4.Text = Replace(TextBox4.Text, "G01", "G00") TextBox2.Text = Replace(TextBox2.Text, TextBox5.Text, TextBox4.Text) Loop Next Exemplo % O900(..Haas....16596-3023-LD2-3...) G17 G21 G40 G54 G80 G90 G00 M00 ( Operação : CAVITY_MILL ) M84 M08 T02 M06 (FRTP08R0.5) S4000 M03 G43 G00 H02 Z53.4 G01 G90 X0.0 Y10.857 F12700. '1º linha a ser substituída G00 Z44.25 G01 Z43.25 D02 F800. G01 X0.0 Y10.997 F12700. '2º linha a ser substituída Localizar o F12700. e substituir o G01 por G00 e retirar o F12700. do final do texto % O900(..Haas....16596-3023-LD2-3...) G17 G21 G40 G54 G80 G90 G00 M00 ( Operação : CAVITY_MILL ) M84 M08 T02 M06 (FRTP08R0.5) S4000 M03 G43 G00 H02 Z53.4 G00 G90 X0.0 Y10.857 F12700. ´nova linha alterando o G01 por G00 e retirando o F12700. G00 Z44.25 G01 Z43.25 D02 F800. G00 X0.0 Y10.997 F12700. ´nova linha alterando o G01 por G00 e retirando o F12700.
×
×
  • Criar Novo...