Sonderzeichen werden richtig geschrieben, aber dann falsch ausgelesen

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von Eierlein.

    Sonderzeichen werden richtig geschrieben, aber dann falsch ausgelesen

    Moin,

    ich bin gerade dabei ein kleines Programm zum Verwalten eines Stundenplans zu schreiben. Klappt bis jetzt fast alles so, wie ich es will, aber diese Sonderzeichen machen mir zu schaffen.
    Ich habe bereits das Problem gelöst, dass Sonderzeichen nicht richtig ausgelesen werden. Dies habe ich mit diesem Beitrag gelöst. Wenn ich jetzt aber ein Sonderzeichen in eine Textbox eingebe, wird es zwar richtig gespeichert,
    aber wenn ich es dann im Programm wieder auslesen lasse, erhalte ich nur komische Zeichen an der Stelle des Sonderzeichens. Wenn ich in der Textdatei das Sonderzeichen einmal lösche und wieder hinschreibe, wird es aber wieder
    perfekt ausgelesen. Also schließe ich daraus, dass der Fehler beim Schreiben entstehen muss (Korrigiert mich, wenn dies nicht so ist). Also habe ich versucht, das Problem genauso zu lösen, wie ich es beim Lesen auch getan habe.
    Dies habe ich mit dem kleinen Code hier gelöst

    VB.NET-Quellcode

    1. System.Text.Encoding.UTF7​

    Das bringt mir aber auch nichts...
    Spoiler anzeigen
    ​Code zum Schreiben:

    VB.NET-Quellcode

    1. ​sw.WriteLine("1: " + textSub1_mo.Text, System.Text.Encoding.UTF7)

    Code zum Lesen:

    VB.NET-Quellcode

    1. ​For Each line In IO.File.ReadAllLines(plan_dir + "\Montag.txt", System.Text.Encoding.UTF7)
    2. If line.StartsWith("1: ") Then
    3. textSub1_mo.Text = line.Replace("1: ", "")

    Kann mir hier jemand behilflich sein?

    Liebe Grüße
    Ich kam, sah und vergaß, was ich vorhatte.

    Alles n bisken wenig vorgegebener Code, um ihn zu verbessern oder den Fehler zu finden, aber ich komm auch ohne irgendeine Codierungsangabe klar:

    VB.NET-Quellcode

    1. Private Sub LoadButton_Click(sender As System.Object, e As System.EventArgs) Handles LoadButton.Click
    2. TextBox1.Clear()
    3. For Each line In IO.File.ReadAllLines("D:\1.txt") 'oder eben die passende Datei
    4. If line.StartsWith("1: ") Then TextBox1.Text = line.Replace("1: ", "")
    5. If line.StartsWith("2: ") Then TextBox1.Text = line.Replace("2: ", "")
    6. Next
    7. End Sub
    9. Private Sub SaveButton_Click(sender As System.Object, e As System.EventArgs) Handles SaveButton.Click
    10. Dim sw As New StreamWriter("D:\1.txt") 'siehe oben
    11. For lp_Index = 1 To TextBox1.Lines.Count
    12. sw.WriteLine(lp_Index & ": " & TextBox1.Lines(lp_Index - 1))
    13. Next
    14. sw.Close()
    15. End Sub


    Soviel dazu. Stellt sich die nächste Frage, was alles in die TextBox soll. Denn TextBox1.Text = line.Replace("1: ", "") überschreibt ja immer alles, was schon in der TextBox drin ist. Wenn das so sein soll, ok.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    @VaporiZed Die StreamWriter-Instanz packst Du bitte in einen Using-Block.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @Eierlein ich komme auf UTF-7, da dass so um Post erklärt wurde und diese Person das selbe Problem wie ich hatte. Sein Problem wurde aber nicht durch UTF-8 gelöst sondern durch UTF-7. also habe ich das genauso getan.

    @VaporiZed und @RodFromGermany vielen Dank für den Code. Ich werde ihn mir heute Nachmittag mal anschauen.
    Ich kam, sah und vergaß, was ich vorhatte.

    Also ich habe es mir jetzt nochmal angeschaut, alle Stellen, wo ich Encoding benutzt habe, erstmal entfernt, jedoch ändert das leider nichts an meinem Problem...
    Hier ist der Komplette Code:
    Spoiler anzeigen
    ​

    Quellcode

    1. ​Imports System.IO
    3. Public Class Form1
    5. #Region "Deklarationen"
    7. Dim dir As String = My.Computer.FileSystem.SpecialDirectories.MyDocuments + "\Schulplaner"
    8. Dim plan_dir As String = dir + "\Plan"
    9. Dim fächer_dir As String = dir + "\Fächer"
    11. Dim mo_file As String = plan_dir + "\Montag.txt"
    12. Dim di_file As String = plan_dir + "\Dienstag.txt"
    13. Dim mi_file As String = plan_dir + "\Mittwoch.txt"
    14. Dim do_file As String = plan_dir + "\Donnerstag.txt"
    15. Dim fr_file As String = plan_dir + "\Freitag.txt"
    17. Dim lel As Integer = 0
    19. Dim dirs As ArrayList = New ArrayList()
    20. Dim files As ArrayList = New ArrayList()
    22. #End Region
    24. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    26. dirs.Add(dir)
    27. dirs.Add(plan_dir)
    28. dirs.Add(fächer_dir)
    30. files.Add(mo_file)
    31. files.Add(di_file)
    32. files.Add(mi_file)
    33. files.Add(do_file)
    34. files.Add(fr_file)
    36. For Each dir In dirs
    37. If Not (IO.Directory.Exists(dir)) Then
    38. Try
    39. IO.Directory.CreateDirectory(dir)
    40. Catch ex As Exception
    41. MessageBox.Show("Es ist ein unerwarteter Fehler aufgetreten. " + ex.Message, "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1)
    42. End Try
    43. End If
    44. Next
    46. End Sub
    48. Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles listDays.SelectedIndexChanged
    50. listSubs.Items.Clear()
    52. For Each file In IO.Directory.GetFiles(plan_dir)
    53. Dim name As String = file.Replace(plan_dir + "\", "")
    54. If (listDays.SelectedItem = name.Replace(".txt", "")) Then
    55. For Each line In IO.File.ReadAllLines(file)
    56. If line.StartsWith("1: ") Then
    57. listSubs.Items.Add(line.Replace("1: ", ""))
    58. ElseIf line.StartsWith("2: ") Then
    59. listSubs.Items.Add(line.Replace("2: ", ""))
    60. ElseIf line.StartsWith("3: ") Then
    61. listSubs.Items.Add(line.Replace("3: ", ""))
    62. ElseIf line.StartsWith("4: ") Then
    63. listSubs.Items.Add(line.Replace("4: ", ""))
    64. ElseIf line.StartsWith("5: ") Then
    65. listSubs.Items.Add(line.Replace("5: ", ""))
    66. ElseIf line.StartsWith("6: ") Then
    67. listSubs.Items.Add(line.Replace("6: ", ""))
    68. ElseIf line.StartsWith("7: ") Then
    69. listSubs.Items.Add(line.Replace("7: ", ""))
    70. ElseIf line.StartsWith("8: ") Then
    71. listSubs.Items.Add(line.Replace("8: ", ""))
    72. ElseIf line.StartsWith("9: ") Then
    73. listSubs.Items.Add(line.Replace("9: ", ""))
    74. End If
    75. Next
    76. Else
    77. End If
    78. Next
    80. End Sub
    82. Private Sub tabOptions_SelectedIndexChanged(sender As Object, e As EventArgs) Handles tabOptions.SelectedIndexChanged
    83. Dim selectedDay As String = plan_dir + "\" + tabStunden.SelectedIndex.ToString + ".txt"
    85. #Region "TabOptions"
    87. If (tabOptions.SelectedIndex.ToString = 0) Then
    88. Select Case tabStunden.SelectedIndex.ToString
    89. #Region "Montag"
    90. Case 0
    91. For Each line In IO.File.ReadAllLines(plan_dir + "\Montag.txt")
    92. If line.StartsWith("1: ") Then
    93. textSub1_mo.Text = line.Replace("1: ", "")
    94. ElseIf line.StartsWith("2: ") Then
    95. textSub2_mo.Text = line.Replace("2: ", "")
    96. ElseIf line.StartsWith("3: ") Then
    97. textSub3_mo.Text = line.Replace("3: ", "")
    98. ElseIf line.StartsWith("4: ") Then
    99. textSub4_mo.Text = line.Replace("4: ", "")
    100. ElseIf line.StartsWith("5: ") Then
    101. textSub5_mo.Text = line.Replace("5: ", "")
    102. ElseIf line.StartsWith("6: ") Then
    103. textSub6_mo.Text = line.Replace("6: ", "")
    104. ElseIf line.StartsWith("7: ") Then
    105. textSub7_mo.Text = line.Replace("7: ", "")
    106. ElseIf line.StartsWith("8: ") Then
    107. textSub8_mo.Text = line.Replace("8: ", "")
    108. ElseIf line.StartsWith("9: ") Then
    109. textSub9_mo.Text = line.Replace("9: ", "")
    110. End If
    111. Next
    112. #End Region
    113. #Region "Dienstag"
    114. Case 1
    115. For Each line In IO.File.ReadAllLines(plan_dir + "\Dienstag.txt")
    116. If line.StartsWith("1: ") Then
    117. textSub1_di.Text = line.Replace("1: ", "")
    118. ElseIf line.StartsWith("2: ") Then
    119. textSub2_di.Text = line.Replace("2: ", "")
    120. ElseIf line.StartsWith("3: ") Then
    121. textSub3_di.Text = line.Replace("3: ", "")
    122. ElseIf line.StartsWith("4: ") Then
    123. textSub4_di.Text = line.Replace("4: ", "")
    124. ElseIf line.StartsWith("5: ") Then
    125. textSub5_di.Text = line.Replace("5: ", "")
    126. ElseIf line.StartsWith("6: ") Then
    127. textSub6_di.Text = line.Replace("6: ", "")
    128. ElseIf line.StartsWith("7: ") Then
    129. textSub7_di.Text = line.Replace("7: ", "")
    130. ElseIf line.StartsWith("8: ") Then
    131. textSub8_di.Text = line.Replace("8: ", "")
    132. ElseIf line.StartsWith("9: ") Then
    133. textSub9_di.Text = line.Replace("9: ", "")
    134. End If
    135. Next
    136. #End Region
    137. #Region "Mittwoch"
    138. Case 2
    139. For Each line In IO.File.ReadAllLines(plan_dir + "\Mittwoch.txt")
    140. If line.StartsWith("1: ") Then
    141. textSub1_mi.Text = line.Replace("1: ", "")
    142. ElseIf line.StartsWith("2: ") Then
    143. textSub2_mi.Text = line.Replace("2: ", "")
    144. ElseIf line.StartsWith("3: ") Then
    145. textSub3_mi.Text = line.Replace("3: ", "")
    146. ElseIf line.StartsWith("4: ") Then
    147. textSub4_mi.Text = line.Replace("4: ", "")
    148. ElseIf line.StartsWith("5: ") Then
    149. textSub5_mi.Text = line.Replace("5: ", "")
    150. ElseIf line.StartsWith("6: ") Then
    151. textSub6_mi.Text = line.Replace("6: ", "")
    152. ElseIf line.StartsWith("7: ") Then
    153. textSub7_mi.Text = line.Replace("7: ", "")
    154. ElseIf line.StartsWith("8: ") Then
    155. textSub8_mi.Text = line.Replace("8: ", "")
    156. ElseIf line.StartsWith("9: ") Then
    157. textSub9_mi.Text = line.Replace("9: ", "")
    158. End If
    159. Next
    160. #End Region
    161. #Region "Donnerstag"
    162. Case 3
    163. For Each line In IO.File.ReadAllLines(plan_dir + "\Donnerstag.txt")
    164. If line.StartsWith("1: ") Then
    165. textSub1_do.Text = line.Replace("1: ", "")
    166. ElseIf line.StartsWith("2: ") Then
    167. textSub2_do.Text = line.Replace("2: ", "")
    168. ElseIf line.StartsWith("3: ") Then
    169. textSub3_do.Text = line.Replace("3: ", "")
    170. ElseIf line.StartsWith("4: ") Then
    171. textSub4_do.Text = line.Replace("4: ", "")
    172. ElseIf line.StartsWith("5: ") Then
    173. textSub5_do.Text = line.Replace("5: ", "")
    174. ElseIf line.StartsWith("6: ") Then
    175. textSub6_do.Text = line.Replace("6: ", "")
    176. ElseIf line.StartsWith("7: ") Then
    177. textSub7_do.Text = line.Replace("7: ", "")
    178. ElseIf line.StartsWith("8: ") Then
    179. textSub8_do.Text = line.Replace("8: ", "")
    180. ElseIf line.StartsWith("9: ") Then
    181. textSub9_do.Text = line.Replace("9: ", "")
    182. End If
    183. Next
    184. #End Region
    185. #Region "Freitag"
    186. Case 4
    187. For Each line In IO.File.ReadAllLines(plan_dir + "\Freitag.txt")
    188. If line.StartsWith("1: ") Then
    189. textSub1_fr.Text = line.Replace("1: ", "")
    190. ElseIf line.StartsWith("2: ") Then
    191. textSub2_fr.Text = line.Replace("2: ", "")
    192. ElseIf line.StartsWith("3: ") Then
    193. textSub3_fr.Text = line.Replace("3: ", "")
    194. ElseIf line.StartsWith("4: ") Then
    195. textSub4_fr.Text = line.Replace("4: ", "")
    196. ElseIf line.StartsWith("5: ") Then
    197. textSub5_fr.Text = line.Replace("5: ", "")
    198. ElseIf line.StartsWith("6: ") Then
    199. textSub6_fr.Text = line.Replace("6: ", "")
    200. ElseIf line.StartsWith("7: ") Then
    201. textSub7_fr.Text = line.Replace("7: ", "")
    202. ElseIf line.StartsWith("8: ") Then
    203. textSub8_fr.Text = line.Replace("8: ", "")
    204. ElseIf line.StartsWith("9: ") Then
    205. textSub9_fr.Text = line.Replace("9: ", "")
    206. End If
    207. Next
    208. #End Region
    209. End Select
    210. End If
    211. #End Region
    212. End Sub
    214. Private Sub tabMain_SelectedIndexChanged(sender As Object, e As EventArgs) Handles tabMain.SelectedIndexChanged
    215. If (tabMain.SelectedIndex.ToString = 1 And tabOptions.SelectedIndex.ToString = 0) Then
    216. Select Case tabStunden.SelectedIndex.ToString
    217. #Region "Montag"
    218. Case 0
    219. For Each line In IO.File.ReadAllLines(plan_dir + "\Montag.txt")
    220. If line.StartsWith("1: ") Then
    221. textSub1_mo.Text = line.Replace("1: ", "")
    222. ElseIf line.StartsWith("2: ") Then
    223. textSub2_mo.Text = line.Replace("2: ", "")
    224. ElseIf line.StartsWith("3: ") Then
    225. textSub3_mo.Text = line.Replace("3: ", "")
    226. ElseIf line.StartsWith("4: ") Then
    227. textSub4_mo.Text = line.Replace("4: ", "")
    228. ElseIf line.StartsWith("5: ") Then
    229. textSub5_mo.Text = line.Replace("5: ", "")
    230. ElseIf line.StartsWith("6: ") Then
    231. textSub6_mo.Text = line.Replace("6: ", "")
    232. ElseIf line.StartsWith("7: ") Then
    233. textSub7_mo.Text = line.Replace("7: ", "")
    234. ElseIf line.StartsWith("8: ") Then
    235. textSub8_mo.Text = line.Replace("8: ", "")
    236. ElseIf line.StartsWith("9: ") Then
    237. textSub9_mo.Text = line.Replace("9: ", "")
    238. End If
    239. Next
    240. #End Region
    241. #Region "Dienstag"
    242. Case 1
    243. For Each line In IO.File.ReadAllLines(plan_dir + "\Dienstag.txt")
    244. If line.StartsWith("1: ") Then
    245. textSub1_di.Text = line.Replace("1: ", "")
    246. ElseIf line.StartsWith("2: ") Then
    247. textSub2_di.Text = line.Replace("2: ", "")
    248. ElseIf line.StartsWith("3: ") Then
    249. textSub3_di.Text = line.Replace("3: ", "")
    250. ElseIf line.StartsWith("4: ") Then
    251. textSub4_di.Text = line.Replace("4: ", "")
    252. ElseIf line.StartsWith("5: ") Then
    253. textSub5_di.Text = line.Replace("5: ", "")
    254. ElseIf line.StartsWith("6: ") Then
    255. textSub6_di.Text = line.Replace("6: ", "")
    256. ElseIf line.StartsWith("7: ") Then
    257. textSub7_di.Text = line.Replace("7: ", "")
    258. ElseIf line.StartsWith("8: ") Then
    259. textSub8_di.Text = line.Replace("8: ", "")
    260. ElseIf line.StartsWith("9: ") Then
    261. textSub9_di.Text = line.Replace("9: ", "")
    262. End If
    263. Next
    264. #End Region
    265. #Region "Mittwoch"
    266. Case 2
    267. For Each line In IO.File.ReadAllLines(plan_dir + "\Mittwoch.txt")
    268. If line.StartsWith("1: ") Then
    269. textSub1_mi.Text = line.Replace("1: ", "")
    270. ElseIf line.StartsWith("2: ") Then
    271. textSub2_mi.Text = line.Replace("2: ", "")
    272. ElseIf line.StartsWith("3: ") Then
    273. textSub3_mi.Text = line.Replace("3: ", "")
    274. ElseIf line.StartsWith("4: ") Then
    275. textSub4_mi.Text = line.Replace("4: ", "")
    276. ElseIf line.StartsWith("5: ") Then
    277. textSub5_mi.Text = line.Replace("5: ", "")
    278. ElseIf line.StartsWith("6: ") Then
    279. textSub6_mi.Text = line.Replace("6: ", "")
    280. ElseIf line.StartsWith("7: ") Then
    281. textSub7_mi.Text = line.Replace("7: ", "")
    282. ElseIf line.StartsWith("8: ") Then
    283. textSub8_mi.Text = line.Replace("8: ", "")
    284. ElseIf line.StartsWith("9: ") Then
    285. textSub9_mi.Text = line.Replace("9: ", "")
    286. End If
    287. Next
    288. #End Region
    289. #Region "Donnerstag"
    290. Case 3
    291. For Each line In IO.File.ReadAllLines(plan_dir + "\Donnerstag.txt")
    292. If line.StartsWith("1: ") Then
    293. textSub1_do.Text = line.Replace("1: ", "")
    294. ElseIf line.StartsWith("2: ") Then
    295. textSub2_do.Text = line.Replace("2: ", "")
    296. ElseIf line.StartsWith("3: ") Then
    297. textSub3_do.Text = line.Replace("3: ", "")
    298. ElseIf line.StartsWith("4: ") Then
    299. textSub4_do.Text = line.Replace("4: ", "")
    300. ElseIf line.StartsWith("5: ") Then
    301. textSub5_do.Text = line.Replace("5: ", "")
    302. ElseIf line.StartsWith("6: ") Then
    303. textSub6_do.Text = line.Replace("6: ", "")
    304. ElseIf line.StartsWith("7: ") Then
    305. textSub7_do.Text = line.Replace("7: ", "")
    306. ElseIf line.StartsWith("8: ") Then
    307. textSub8_do.Text = line.Replace("8: ", "")
    308. ElseIf line.StartsWith("9: ") Then
    309. textSub9_do.Text = line.Replace("9: ", "")
    310. End If
    311. Next
    312. #End Region
    313. #Region "Freitag"
    314. Case 4
    315. For Each line In IO.File.ReadAllLines(plan_dir + "\Freitag.txt")
    316. If line.StartsWith("1: ") Then
    317. textSub1_fr.Text = line.Replace("1: ", "")
    318. ElseIf line.StartsWith("2: ") Then
    319. textSub2_fr.Text = line.Replace("2: ", "")
    320. ElseIf line.StartsWith("3: ") Then
    321. textSub3_fr.Text = line.Replace("3: ", "")
    322. ElseIf line.StartsWith("4: ") Then
    323. textSub4_fr.Text = line.Replace("4: ", "")
    324. ElseIf line.StartsWith("5: ") Then
    325. textSub5_fr.Text = line.Replace("5: ", "")
    326. ElseIf line.StartsWith("6: ") Then
    327. textSub6_fr.Text = line.Replace("6: ", "")
    328. ElseIf line.StartsWith("7: ") Then
    329. textSub7_fr.Text = line.Replace("7: ", "")
    330. ElseIf line.StartsWith("8: ") Then
    331. textSub8_fr.Text = line.Replace("8: ", "")
    332. ElseIf line.StartsWith("9: ") Then
    333. textSub9_fr.Text = line.Replace("9: ", "")
    334. End If
    335. Next
    336. #End Region
    337. End Select
    338. End If
    339. End Sub
    341. Private Sub tabStunden_SelectedIndexChanged(sender As Object, e As EventArgs) Handles tabStunden.SelectedIndexChanged
    342. Select Case tabStunden.SelectedIndex.ToString
    343. #Region "Montag"
    344. Case 0
    345. For Each line In IO.File.ReadAllLines(plan_dir + "\Montag.txt")
    346. If line.StartsWith("1: ") Then
    347. textSub1_mo.Text = line.Replace("1: ", "")
    348. ElseIf line.StartsWith("2: ") Then
    349. textSub2_mo.Text = line.Replace("2: ", "")
    350. ElseIf line.StartsWith("3: ") Then
    351. textSub3_mo.Text = line.Replace("3: ", "")
    352. ElseIf line.StartsWith("4: ") Then
    353. textSub4_mo.Text = line.Replace("4: ", "")
    354. ElseIf line.StartsWith("5: ") Then
    355. textSub5_mo.Text = line.Replace("5: ", "")
    356. ElseIf line.StartsWith("6: ") Then
    357. textSub6_mo.Text = line.Replace("6: ", "")
    358. ElseIf line.StartsWith("7: ") Then
    359. textSub7_mo.Text = line.Replace("7: ", "")
    360. ElseIf line.StartsWith("8: ") Then
    361. textSub8_mo.Text = line.Replace("8: ", "")
    362. ElseIf line.StartsWith("9: ") Then
    363. textSub9_mo.Text = line.Replace("9: ", "")
    364. End If
    365. Next
    366. #End Region
    367. #Region "Dienstag"
    368. Case 1
    369. For Each line In IO.File.ReadAllLines(plan_dir + "\Dienstag.txt")
    370. If line.StartsWith("1: ") Then
    371. textSub1_di.Text = line.Replace("1: ", "")
    372. ElseIf line.StartsWith("2: ") Then
    373. textSub2_di.Text = line.Replace("2: ", "")
    374. ElseIf line.StartsWith("3: ") Then
    375. textSub3_di.Text = line.Replace("3: ", "")
    376. ElseIf line.StartsWith("4: ") Then
    377. textSub4_di.Text = line.Replace("4: ", "")
    378. ElseIf line.StartsWith("5: ") Then
    379. textSub5_di.Text = line.Replace("5: ", "")
    380. ElseIf line.StartsWith("6: ") Then
    381. textSub6_di.Text = line.Replace("6: ", "")
    382. ElseIf line.StartsWith("7: ") Then
    383. textSub7_di.Text = line.Replace("7: ", "")
    384. ElseIf line.StartsWith("8: ") Then
    385. textSub8_di.Text = line.Replace("8: ", "")
    386. ElseIf line.StartsWith("9: ") Then
    387. textSub9_di.Text = line.Replace("9: ", "")
    388. End If
    389. Next
    390. #End Region
    391. #Region "Mittwoch"
    392. Case 2
    393. For Each line In IO.File.ReadAllLines(plan_dir + "\Mittwoch.txt")
    394. If line.StartsWith("1: ") Then
    395. textSub1_mi.Text = line.Replace("1: ", "")
    396. ElseIf line.StartsWith("2: ") Then
    397. textSub2_mi.Text = line.Replace("2: ", "")
    398. ElseIf line.StartsWith("3: ") Then
    399. textSub3_mi.Text = line.Replace("3: ", "")
    400. ElseIf line.StartsWith("4: ") Then
    401. textSub4_mi.Text = line.Replace("4: ", "")
    402. ElseIf line.StartsWith("5: ") Then
    403. textSub5_mi.Text = line.Replace("5: ", "")
    404. ElseIf line.StartsWith("6: ") Then
    405. textSub6_mi.Text = line.Replace("6: ", "")
    406. ElseIf line.StartsWith("7: ") Then
    407. textSub7_mi.Text = line.Replace("7: ", "")
    408. ElseIf line.StartsWith("8: ") Then
    409. textSub8_mi.Text = line.Replace("8: ", "")
    410. ElseIf line.StartsWith("9: ") Then
    411. textSub9_mi.Text = line.Replace("9: ", "")
    412. End If
    413. Next
    414. #End Region
    415. #Region "Donnerstag"
    416. Case 3
    417. For Each line In IO.File.ReadAllLines(plan_dir + "\Donnerstag.txt")
    418. If line.StartsWith("1: ") Then
    419. textSub1_do.Text = line.Replace("1: ", "")
    420. ElseIf line.StartsWith("2: ") Then
    421. textSub2_do.Text = line.Replace("2: ", "")
    422. ElseIf line.StartsWith("3: ") Then
    423. textSub3_do.Text = line.Replace("3: ", "")
    424. ElseIf line.StartsWith("4: ") Then
    425. textSub4_do.Text = line.Replace("4: ", "")
    426. ElseIf line.StartsWith("5: ") Then
    427. textSub5_do.Text = line.Replace("5: ", "")
    428. ElseIf line.StartsWith("6: ") Then
    429. textSub6_do.Text = line.Replace("6: ", "")
    430. ElseIf line.StartsWith("7: ") Then
    431. textSub7_do.Text = line.Replace("7: ", "")
    432. ElseIf line.StartsWith("8: ") Then
    433. textSub8_do.Text = line.Replace("8: ", "")
    434. ElseIf line.StartsWith("9: ") Then
    435. textSub9_do.Text = line.Replace("9: ", "")
    436. End If
    437. Next
    438. #End Region
    439. #Region "Freitag"
    440. Case 4
    441. For Each line In IO.File.ReadAllLines(plan_dir + "\Freitag.txt")
    442. If line.StartsWith("1: ") Then
    443. textSub1_fr.Text = line.Replace("1: ", "")
    444. ElseIf line.StartsWith("2: ") Then
    445. textSub2_fr.Text = line.Replace("2: ", "")
    446. ElseIf line.StartsWith("3: ") Then
    447. textSub3_fr.Text = line.Replace("3: ", "")
    448. ElseIf line.StartsWith("4: ") Then
    449. textSub4_fr.Text = line.Replace("4: ", "")
    450. ElseIf line.StartsWith("5: ") Then
    451. textSub5_fr.Text = line.Replace("5: ", "")
    452. ElseIf line.StartsWith("6: ") Then
    453. textSub6_fr.Text = line.Replace("6: ", "")
    454. ElseIf line.StartsWith("7: ") Then
    455. textSub7_fr.Text = line.Replace("7: ", "")
    456. ElseIf line.StartsWith("8: ") Then
    457. textSub8_fr.Text = line.Replace("8: ", "")
    458. ElseIf line.StartsWith("9: ") Then
    459. textSub9_fr.Text = line.Replace("9: ", "")
    460. End If
    461. Next
    462. #End Region
    463. End Select
    464. End Sub
    466. Private Sub btnSpeichern_Click(sender As Object, e As EventArgs) Handles btnSpeichern.Click
    468. Select Case tabOptions.SelectedIndex.ToString
    469. Case 0
    470. Dim selectedDay As String = tabStunden.SelectedIndex.ToString
    471. Select Case selectedDay
    472. #Region "Montag"
    473. Case 0
    474. Using sw As StreamWriter = New StreamWriter(mo_file)
    475. sw.Write("")
    476. sw.WriteLine("1: " + textSub1_mo.Text)
    477. sw.WriteLine("2: " + textSub2_mo.Text)
    478. sw.WriteLine("3: " + textSub3_mo.Text)
    479. sw.WriteLine("4: " + textSub4_mo.Text)
    480. sw.WriteLine("5: " + textSub5_mo.Text)
    481. sw.WriteLine("6: " + textSub6_mo.Text)
    482. sw.WriteLine("7: " + textSub7_mo.Text)
    483. sw.WriteLine("8: " + textSub8_mo.Text)
    484. sw.WriteLine("9: " + textSub9_mo.Text)
    485. sw.Close()
    486. sw.Dispose()
    487. MsgBox("Klappt")
    488. End Using
    490. #End Region
    491. #Region "Dienstag"
    492. Case 1
    493. MsgBox("Dienstag")
    494. #End Region
    495. #Region "Mittwoch"
    496. Case 2
    497. MsgBox("Mittwoch")
    498. #End Region
    499. #Region "Donnerstag"
    500. Case 3
    501. MsgBox("Donnerstag")
    502. #End Region
    503. #Region "Freitag"
    504. Case 4
    505. MsgBox("Freitag")
    506. #End Region
    507. End Select
    508. Case 1
    509. End Select
    510. End Sub
    511. End Class

    Fällt euch etwas auf, was das Problem sein könnte? @RodFromGermany @VaporiZed
    Ich habe hier nochmal ein Bild von dem Problem.
    Ich kam, sah und vergaß, was ich vorhatte.

    @Cozy Verwende mal bei ReadAllLines() ebenfalls dieses Encoding als 2. Parameter.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @RodFromGermany vielen dank! Habe es jetzt mit UTF8 probiert, da es mit UTF7 immer noch nicht geklappt hatte. Tut mir leid @Eierlein
    Habe jetzt fürs schreiben:

    VB.NET-Quellcode

    1. sw.WriteLine("1: " + textSub1_mo.Text, System.Text.Encoding.UTF8)​

    Und fürs auslesen:

    VB.NET-Quellcode

    1. IO.File.ReadAllLines(file, System.Text.Encoding.UTF8)​
    Ich kam, sah und vergaß, was ich vorhatte.

Facebook
Telefonspende