字符处理

klever 2005-09-30 05:50:16
想把这段字符按" "为标记分行
82 97 114 33 26 7 0 207 144 115 0 0 13 0 0 0 0 0 0 0 4 206 116 32 130 185 0 102 3 0 0 0 12 0 0 2 13 216 189 44 185 100 60 51 29 51 153 0 32 0 0 0 103 97 109 101 115 92 181 219 185 250 50 43 213 247 183 254 213 223 213 189 210 219 200 171 188 175 92 65 118 105 92 113 113 108 111 103 92 81 81 76 111 103 83 97 118 101 114 53 92 116 101 109 112 49 50 53 49 54 48 57 52 55 92 77 115 103 69 120 46 100 98 0 94 216 4 29 253 86 50 42 43 129 95 13 103 5 128 170 24 98 121 95 104 81 198 150 0 92 65 118 105 0 92 113 113 108 0 111 103 92 81 0 81 76 111 103 0 83 97 118 101 0 114 53 92 116 0 101 109 112 49 0 50 53 49 54 0 48 57 52 55 0 92 77 115 103 0 69 120 46 100 0 98 12 29 85 24 200 147 205 129 159 47 149 41 93 1 154 106 104 144 36 27 65 213 221 216 38 147 64 98 74 122 24 192 83 77 70 20 217 160 179 117 208 41 69 10 130 128 172 64 167 166 208 133 168 16 217 225 13 216 14 168 163 183 106 89 181 16 174 133 13 147 96 89 109 41 233 129 65 241 26 83 209 74 69 35 232 26 200 164 177 165 160 48 243 194 163 175 194 211 208 198 63 23 248 7 153 59 51 39 38 76 231 102 114 115 191 207 254 153 63 103 125 51 147 156 238 102 119 62 57 147 59 222 206 231 195 51 170 112 28 114 107 172 157 86 131 222 16 96 30 13 13 29 152 8 123 133 142 215 173 59 124 163 0 180 241 236 59 49 176 118 136 213 241 124 204 241 142 134 189 108 181 220 198 117 241 105 49 96 229 180 215 52 4 129 12 14 83 77 230 65 54 13 55 78 96 108 246 207 7 0 110 20 33 164 143 203 74 156 112 246 156 238 2 214 46 36 18 26 171 233 64 77 1 156 45 160 7 14 216 88 16 6 217 176 174 154 235 26 54 135 176 23 1 96 51 120 228 0 134 200 200 1 90 160 8 2 203 141 8 101 107 241 173 108 182 172 141 103 198 193 139 92 248 218 41 35 165 179 210 249 62 62 192 162 255 5 97 71 14 34 0 135 131 179 95 99 171 7 237 36 245 125 154 29 144 183 3 111 174 219 216 35 36 41 191 239 117 32 17 185 125 29 20 85 219 115 252 72 171 25 248 245 220 237 171 47 230 146 86 187 38 192 251 16 174 42 90 246 191 239 243 73 103 192 3 34 17 91 216 215 245 90 90 187 125 214 138 161 48 206 88 46 49 227 120 71 128 140 131 172 92 185 206 18 68 50 217 197 7 244 163 164 176 175 167 220 229 161 162 195 237 189 74 125 148 146 43 247 116 39 155 47 44 191 94 235 154 103 102 213 177 241 187 149 237 252 131 53 188 126 35 130 83 195 255 100 69 161 16 202 103 69 166 168 81 186 119 197 228 193 67 209 185 101 190 102 215 85 32 136 158 34 162 14 177 70 124 178 247 71 235 77 2 123 239 197 247 180 199 42 104 196 156 205 252 255 66 209 105 251 242 181 119 56 252 88 223 7 233 89 79 158 240 67 173 106 184 165 156 115 253 73 218 154 95 225 109 188 198 113 52 21 126 91 62 148 73 147 13 236 8 211 104 198 185 18 205 227 76 151 198 220 118 184 112 197 92 30 80 18 252 215 35 94 253 215 201 232 21 201 220 65 69 101 211 240 68 88 192 237 181 243 254 241 142 12 197 171 214 43 202 148 89 151 119 81 221 255 236 186 94 125 83 113 57 14 51 212 73 192 188 222 47 13 110 80 35 34 167 99 33 252 137 126 103 111 201 109 148 12 70 12 103 214 224 172 79 246 230 55 122 224 241 89 70 216 90 172 197 165 236 186 35 39 186 207 50 114 240 57 146 83 220 92 23 68 171 201 8 115 205 59 129 64 110 33 146 66 201 30 235 202 227 159 154 250 167 63 12 122 21 110 216 120 54 201 186 187 79 156 234 178 124 201 21 239 71 251 12 49 224 31 63 115 204 38 255 169 202 106 138 99 43 190 221 252 173 233 56 38 230 255 62 236 173 44 233 130 133 25 98 222 135 106 227 17 120 129 21 108 47 160 185 62 3 46 191 211 209 119 135 169 218 154 150 251 226 104 24 225 21 170 158 221 109 184 70 13 238 95 92 68 30 112 161 1 224 181 182 236 240 218 58 101 39 200 72 29 214 66 100 161 226 41 194 86 169 102 31 77 146 148 233 85 93 134 34 129 18 221 92 226 106 2 116 211 234 33 255 230 155 82 15 33 152 13 169 93 64 214 41 89 144 196 78 226 170 35 70 189 81 186 42 53 56 198 142 155 58 211 215 176 130 216 31 31 1 122 254 148 157 125 116 32 130 185 0 195 0 0 0 0 10 0 0 2 199 222 191 186 186 100 60 51 29 51 153 0 32 0 0 0 103 97 109 101 115 92 181 219 185 250 50 43 213 247 183 254 213 223 213 189 210 219 200 171 188 175 92 65 118 105 92 113 113 108 111 103 92 81 81 76 111 103 83 97 118 101 114 53 92 116 101 109 112 49 50 53 49 54 48 57 52 55 92 110 111 116 101 115 46 100 98 0 94 216 4 29 253 86 50 42 43 129 95 13 103 5 128 170 24 98 121 95 104 81 198 150 0 92 65 118 105 0 92 113 113 108 0 111 103 92 81 0 81 76 111 103 0 83 97 118 101 0 114 53 92 116 0 101 109 112 49 0 50 53 49 54 0 48 57 52 55 0 92 110 111 116 0 101 115 46 100 0 98 8 21 17 16 151 220 210 175 53 80 248 48 107 11 3 19 196 145 133 224 44 172 76 27 3 14 58 42 32 241 199 130 60 25 25 151 130 44 44 15 3 65 119 16 187 205 133 66 205 55 83 6 53 151 245 133 25 133 92 30 203 130 185 7 160 244 94 60 86 22 101 23 13 153 151 102 67 135 184 111 181 199 94 203 156 135 194 188 34 19 59 248 88 130 50 165 190 35 68 199 239 201 231 85 76 228 62 127 103 116 212 208 55 159 49 184 70 85 230 129 116 96 13 94 243 13 65 246 173 138 254 239 132 19 132 184 187 99 231 183 113 68 190 239 211 27 104 52 131 56 159 37 144 69 81 216 18 137 122 117 160 175 112 227 210 36 93 207 94 228 95 139 71 222 163 12 39 28 193 246 214 7 232 252 78 143 255 215 196 58 12 249 156 240 128 196 61 123 0 64 7 0
我用这段代码,为什么只能到127,下面的都没了,FileString是上面字符的变量
Dim Where1 As Integer, Where2 As Integer
Where1 = 1
For i = 1 To Len(FileString)
Where2 = InStr(Where1, FileString, " ")
If Where2 = 0 Then exit for
Debug.Print Mid(FileString, Where1, Where2 - Where1)
Where1 = Where2 + 1
Next i
...全文
615 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
northwolves 2005-09-30
  • 打赏
  • 举报
回复
前边的会被后边的顶掉,但应该不会出错
kmzs 2005-09-30
  • 打赏
  • 举报
回复
Debug.Print Replace(filestring, " ", vbCrLf)
就是不过似乎不能一次Print那么多行?或许吧
northwolves 2005-09-30
  • 打赏
  • 举报
回复
下面一句就够了:


Debug.Print Replace(filestring, " ", vbCrLf)

7,763

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧