Выбрать из текста только те символы, которые встречаются в нем только один раз

@nikita95-2010 · Регистрация: 16.12.2013

Author24 — интернет-сервис помощи студентам

Дан текст на русском языке. Выбрать из него только те символы, которые встречаются в нем только один раз, в том порядке, в котором они встречаются в тексте.

Visual Basic

Dim s$, k As Integer, i As Integer, j As Integer
Private Sub Command1_Click()
Open File1.Path + "/" + File1.FileName For Input As #1
Do While Not (EOF(1))
Input #1, stra
Picture1.Print s
For i = 1 To Len(s)
k = 0
  For j = 1 To Len(s)
     If LCase(s(i)) = LCase(s(j)) Then
         k = k + 1
     End If
     If k = 1 Then
      Picture1.Print s(i)
     End If
Loop
Picture1.Print s
Close #1
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Выдаёт ошибку в 10-ой строке: expected array.
Объясните в чём смысл ошибки и как можно исправить.

toiai · 22.02.2014, 22:00

Просто у Вас "S" - строковая переменная, а обращаетесь к ней как к массиву.
Может надо так:

Visual Basic

1	LCase(mid(s,i,1))

@nikita95-2010 · 22.02.2014, 22:04 **[ТС]**

а mid-это что за функция?

toiai · 22.02.2014, 22:17

Mid - функция извлечения из строки подстроку разной длинны и с указанной позиции, а вообще есть клавиша F1

@Казанский · 22.02.2014, 22:21

nikita95-2010, эта программа написана не на VBA. Путаница с переменной s-stra.

@Sasha_Smirnov · 25.02.2014, 01:40

Варианты на VBA: универсальный от R Dmitry и мой для текста в Word: Ввести строку, оставить в ней символы, которые не дублируются.

@Alex77755 · 25.02.2014, 02:59

Visual Basic

1 2	[QUOTE]Do While Not (EOF(1)) Input #1, stra[/QUOTE]

Этот метод в данном случае не подойдёт так как считывается по одному слову, а в задании речь идёт о всём тексте. Считать лучше сразу весь файл в переменную:

Visual Basic

1	S=CreateObject("Scripting.FileSystemObject").Getfile(Name).OpenasTextStream(1).ReadAll

Name собери только правильно

@nikita95-2010 1 / 0 / 0 Регистрация: 16.12.2013 Сообщений: 5
	22.02.2014, 22:04 [ТС]	3
	а mid-это что за функция? 0

toiai 3218 / 967 / 223 Регистрация: 29.05.2010 Сообщений: 2,087
	22.02.2014, 22:17	4
	Mid - функция извлечения из строки подстроку разной длинны и с указанной позиции, а вообще есть клавиша F1 0

@Казанский 15153 / 6426 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	22.02.2014, 22:21	5
	nikita95-2010, эта программа написана не на VBA. Путаница с переменной s-stra. 0

@Sasha_Smirnov 5562 / 1368 / 150 Регистрация: 08.02.2009 Сообщений: 4,109 Записей в блоге: 30
	25.02.2014, 01:40	6
	Варианты на VBA: универсальный от R Dmitry и мой для текста в Word: Ввести строку, оставить в ней символы, которые не дублируются. 0

	25.02.2014, 02:59

Выбрать из текста только те символы, которые встречаются в нем только один раз

Решение