judulnya

FileRead, vText, keyword.txt word_array := StrSplit(vText, "`r`n") ktx := word_array.MaxIndex() FileRead, vText, jadwal.txt tanggal_array := StrSplit(vText, "`r`n") lup := 1 Loop, %ktx% { label = "" nt := lup tanggal := tanggal_array[nt] katakw := word_array[nt] kata2 := word_array[nt-1] kata3 := word_array[nt+1] label = %katakw%,%kata2%,%kata3% MsgBox % "" tanggal katakw label FileRead, OutputVar, konten.txt for index, color in StrSplit(OutputVar, " ") { if(InStr(color,"|") > 0 ) { word_array2 := StrSplit(color, "|") kt := word_array2.MaxIndex() jml := Mod(lup,kt) if(jml = 0) { jml := kt } kata := word_array2[jml] }else { kata:= color } kalimat = %kalimat% %kata% } kalimat:= StrReplace(kalimat,"+"," ") kalimat:= StrReplace(kalimat,"#keyword#",katakw) MsgBox % "" kalimat Sleep, 100 lup := lup + 1 }