FilesExpand file tree

 master

/

StringCollection_Examples.bas

Copy path

Blame

More file actions

Blame

More file actions

Latest commit

 

History

History

History

106 lines (74 loc) · 2.3 KB

 master

/

StringCollection_Examples.bas

Top

File metadata and controls

• Code
• Blame

106 lines (74 loc) · 2.3 KB

Raw

Copy raw file

Download raw file

Open symbols panel

Edit and raw actions

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

75

76

77

78

79

80

81

82

83

84

85

86

87

88

89

90

91

92

93

94

95

96

97

98

99

100

101

102

103

104

105

106

Attribute VB_Name = "StringCollection_Examples"

'---------------------------------------------------------------------------------------

' Beispiel-Modul: StringCollection_Examples

'---------------------------------------------------------------------------------------

'/**

' \author Josef Poetzl

' \brief Beispiel zur Verwendung der StringCollection-Klasse

' \ingroup text

'**/

'---------------------------------------------------------------------------------------

'<codelib>

' <file>text\StringCollection_Examples.bas</file>

' <use>text\StringCollection.cls</use>

' <license>_codelib/license.bas</license>

'</codelib>

'---------------------------------------------------------------------------------------

Option Compare Text

Option Explicit

Private Sub Werte_anfuegen_und_mit_Komma_getrennt_als_String_ausgeben()

With New StringCollection

.Add "a"

.Add "b"

.Add "c"

Debug.Print .ToString(", ")

End With

End Sub

Private Sub Werte_anfuegen_ändern_und_mit_Komma_getrennt_als_String_ausgeben()

With New StringCollection

.Add "a"

.Add "b"

.Add "c"

.Item(2) = "bx"

Debug.Print .ToString(", ")

End With

End Sub

Private Sub Werte_anfuegen_löschen_und_per_For_Each_Schleife_durchlaufen()

Dim col As StringCollection

Set col = New StringCollection

With col

.Add "row 1"

.Add "row 2"

.Add "row 3"

.Add "remove me"

.Items.Remove 4

End With

Dim ColItm As Variant

For Each ColItm In col.Items

Debug.Print ColItm

Next

Set col = Nothing

End Sub

Private Sub Werte_anfuegen_löschen_und_per_For_Schleife_rueckwärts_durchlaufen()

Dim n As Long

With New StringCollection

.Add "row 1"

.Add "row 2"

.Add "row 3"

.Add "remove me"

.Items.Remove 4

For n = .Items.Count To 1 Step -1

Debug.Print .Item(n)

Next n

End With

End Sub

Private Sub Keine_doppelten_Werte_ausgeben()

With New StringCollection

.Add "a"

.Add "b"

.Add "b"

.Add "c"

.Add "a"

Debug.Print .ToString(", ", , , , True)

End With

End Sub