2 / 2 / 1
Регистрация: 16.08.2011
Сообщений: 76
1

Определить, входит ли символ в заданную строку

10.04.2012, 09:46. Показов 1956. Ответов 10
Метки нет (Все метки)

Подскажите, пожалуйста в чем ошибка?
В ChekBox записывается строка текстового файла. Нужно проверить начинается ли строка на символ *, если да, то выполняется условие.
Вот что я написала

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Imports System
Imports System.IO
Imports System.Text
Public Class Form1
        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        
        Dim MyFile1 As String = My.Computer.FileSystem.ReadAllText(My.Application.Info.DirectoryPath & "\вопросы\1.txt")
        Dim SplittedTXT1() As String = MyFile1.Split(vbCrLf)
        TextBox1.Text = SplittedTXT1(0)
        CheckBox1.Text = SplittedTXT1(1)
        CheckBox2.Text = SplittedTXT1(2)
        CheckBox3.Text = SplittedTXT1(3)
 
        Dim i As Integer
        If CheckBox1.Checked = True Then
            For i = 1 To Len(SplittedTXT1(1))
                If Mid(SplittedTXT1(1), 1, 1) = "*" Then
                    Label1.Text = "прав"
                Else : Label1.Text = "не прав"
                End If
            Next
        End If
но так не идет, помогите исправить!!!
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.04.2012, 09:46
Ответы с готовыми решениями:

Функция, находящая в строке первый символ, который входит в другую заданную строку
Доброго времени суток! Есть такое задание: написать функцию, которая находит в строке первый...

Функция находит в строке первый символ, который входит в другую заданную строку
нужно написать собственную функцию, которая находит в строке первый символ, который входит в другую...

Строка: Как найти в строке первый символ, который входит во другую заданную строку?
Как найти в строке первый символ, который входит во другую заданную строку используя указатели и...

Ввести строку и определить, входит ли в неё данный символ?
program m1; var s,z:string; i:integer; begin readln(s); readln(z); i:=pos('z',s); if i=0...

10
Почетный модератор
21308 / 9042 / 1082
Регистрация: 11.04.2010
Сообщений: 11,014
10.04.2012, 11:17 2
Для размышления:
VB.NET
1
2
        Dim S As String = "*123456789"
        If S(0) = "*" Then MsgBox("Строка начинается с '*'")
0
2 / 2 / 1
Регистрация: 16.08.2011
Сообщений: 76
10.04.2012, 11:38  [ТС] 3
а если написать так, то не работает

VB.NET
1
2
3
4
5
6
7
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim S As String = CheckBox1.Text
        If S(0) = "*" Then
            MsgBox("Строка начинается с '*'")
        Else : MsgBox("Строка не начинается с '*'")
        End If
    End Sub
0
Почетный модератор
21308 / 9042 / 1082
Регистрация: 11.04.2010
Сообщений: 11,014
10.04.2012, 11:41 4
Lilek, вставил код - работает как по маслу
0
2 / 2 / 1
Регистрация: 16.08.2011
Сообщений: 76
10.04.2012, 12:19  [ТС] 5
ну да, когда текст checkBox вводишь непосредственно в сойстве, то работает. А если из текстового файла, то говорит ("Строка не начинается с '*'")

VB.NET
1
2
3
4
5
6
7
8
Dim MyFile1 As String = My.Computer.FileSystem.ReadAllText(My.Application.Info.DirectoryPath & "\вопросы\1.txt")
        Dim SplittedTXT1() As String = MyFile1.Split(vbCrLf)
        CheckBox1.Text = SplittedTXT1(1)
        Dim S As String = CheckBox1.Text
        If S(0) = "*" Then
            MsgBox("Строка начинается с '*'")
        Else : MsgBox("Строка не начинается с '*'")
        End If
0
Почетный модератор
21308 / 9042 / 1082
Регистрация: 11.04.2010
Сообщений: 11,014
10.04.2012, 14:41 6
Цитата Сообщение от Lilek Посмотреть сообщение
Строка не начинается с
А она начинается?
Визуально в чекбоксе действительно стоит звездочка первым символом?
0
2 / 2 / 1
Регистрация: 16.08.2011
Сообщений: 76
10.04.2012, 15:23  [ТС] 7
ну да, в текстовом файле такие строки:

*текст
текст
текст

и в checkBox записывается: *текст
0
Почетный модератор
21308 / 9042 / 1082
Регистрация: 11.04.2010
Сообщений: 11,014
10.04.2012, 15:29 8
Lilek, у Вас неверный подход к чтению файла.
VB.NET
1
2
3
4
5
6
7
        Dim Str() As String = IO.File.ReadAllLines(My.Application.Info.DirectoryPath & "\вопросы\1.txt", System.Text.Encoding.Default)
        CheckBox1.Text = Str(0)
        Dim S As String = CheckBox1.Text
        If S(0) = "*" Then
            MsgBox("Строка начинается с '*'")
        Else : MsgBox("Строка не начинается с '*'")
        End If
1
2 / 2 / 1
Регистрация: 16.08.2011
Сообщений: 76
11.04.2012, 11:07  [ТС] 9
Памирыч Спасибо большое, все получается.
А можно еще вопросик? Возможно ли что бы визуально скрыть символ * в checkBox, т.е. в checkBox.text ее не видна для пользователя, но она там есть для проверки условия.

Добавлено через 5 минут
Получается что надо проверять строку в текстовом файле, тогда
VB.NET
1
2
3
Dim S As String = CheckBox1.Text
        If S(0) = "*" Then
            MsgBox("Строка начинается с '*'")
не подходит.
0
Почетный модератор
21308 / 9042 / 1082
Регистрация: 11.04.2010
Сообщений: 11,014
11.04.2012, 11:25 10
VB.NET
1
2
3
4
5
6
Dim Str() As String = IO.File.ReadAllLines(My.Application.Info.DirectoryPath & "\вопросы\1.txt", System.Text.Encoding.Default)
        CheckBox1.Text = Str(0).Replace("*", "")
        If Str(0) = "*" Then
            MsgBox("Строка начинается с '*'")
        Else : MsgBox("Строка не начинается с '*'")
        End If
Код с коленки, возможно где-то ошибся.
Смысл: В чекбокс пишем строку без звездочки, ее и проверяем, а не чекбокс
1
2 / 2 / 1
Регистрация: 16.08.2011
Сообщений: 76
11.04.2012, 12:33  [ТС] 11
так почему то не идет, а вот так

VB.NET
1
2
3
4
5
6
Dim Str() As String = IO.File.ReadAllLines(My.Application.Info.DirectoryPath & "\вопросы\1.txt", System.Text.Encoding.Default)
        CheckBox1.Text = Str(0).Replace("*", "")
        If mid(Str(0),1,1) = "*" Then
            MsgBox("Строка начинается с '*'")
        Else : MsgBox("Строка не начинается с '*'")
        End If
получается.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.04.2012, 12:33

Функция: определить, сколько раз входит в строку некоторый произвольный символ
Описать функцию работы со строкой символов, которая найдет, сколько раз входит в строку некоторый...

Подсчитать, сколько раз входит в заданную строку заданное слово
прошу помогите со строками! задание: Написать программу, которая подсчитывает сколько раз входит...

Подсчитать,сколько гласных русских букв входит в заданную строку текста
Подсчитать,сколько гласных русских букв входит в заданную строку текста.

Определить, входит ли точка в заданную область
Помогите, пожалуйста, составить программу, определяющую входит ли точка в закрашенную область.Нужно...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
11
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.